在PB窗体中插入数据显示“插入成功”但查询后没有数据

string r_dept_code, r_date1,r_date2,r_sp_code
dec r_amount1,r_amount2,r_amount3
integer r_row,r_rowcount
r_row=dw_1.getrow()
r_rowcount=dw_1.rowcount()
for r_row=1 to r_rowcount

r_dept_code= dw_1.getitemstring(r_row,'dept_code')
r_date1= dw_1.getitemstring(r_row,'date1')
r_date2= dw_1.getitemstring(r_row,'date2')
r_sp_code=dw_1.getitemstring(r_row,'sp_code')
r_amount1=dw_1.getitemdecimal(r_row,'amount_1')
r_amount2=dw_1.getitemdecimal(r_row,'amount_2')
r_amount3=dw_1.getitemdecimal(r_row,'amount_3')
insert into sjfx_amount1 values (:r_dept_code,:r_date1,:r_date2,:r_sp_code,:r_amount1,:r_amount2,:r_amount3);
next
if g_trans1.sqlcode = 0 then
commit;
messagebox("提示","插入成功!")
else
messagebox("提示","插入错误,错误信息为"+string(g_trans1.sqlerrtext))
rollback;
end if
dw_2.update()
运行时显示“插入成功”但查询后没有数据

1个回答

PB窗体中插入数据显示“插入成功”但查询后没有数据
string r_dept_code, r_date1,r_date2,r_sp_code
dec r_amount1,r_amount2,r_amount3
integer r_row,r_rowcount
r_row=dw_1.getrow()
r_rowcount=dw_1.rowcount()
for r_row=1 to r_rowcount

r_dept_code= dw_1.getitemstring(r_row,'dept_code')
r_date1= dw_1.getitemstring(r_row,'date1')
r_date2= dw_1.getitemstring(r_row,'date2')
r_sp_code=dw_1.getitemstring(r_row,'sp_code')
r_amount1=dw_1.getitemdecimal(r_row,'amount_1')
r_amount2=dw_1.getitemdecimal(r_row,'amount_2')
r_amount3=dw_1.getitemdecimal(r_row,'amount_3')

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
PB点击按钮插入表数据

就是在医生选病人界面,点确定按钮的时候,往这张表插数据( 科室叫号表(清零时间,早上,下午) 科室代码(ksdm),医生代码(ysdm),当前就诊号(dqjzh),就诊开始时间(jzkssj) 这个功能怎么实现啊

pb怎样获取数据窗口一个列值,在文本框显示?

pb怎样获取数据窗口一个列值,在文本框显示? string ls_empid long ll_row if row <= 0 then return ll_row=this.getrow() ll_row = dw_1.getSelectedRow(0) ls_empid =dw_1.GetItemString(ll_row,'列字段名') sle_1.text=ls_empid ``` ```哪里错了,小白菜鸟请教各位。可以麻烦各位帮我改正。谢谢!

在pb中如何向数据窗口传参,急急急急急急

问题需求: 省份需要管理到城市,故在省份的窗口里自定义一个变量(假设为a1),在城市的窗口里同样也定义一个变量(为a2) 即省份有一个触发事件,需要要将省份所触发的值传到查询城市的sql里面,在城市的窗口里也需要 将省份所触发的值传到城市所定义的变量值里面,即这个数据要怎么传,在数据窗口里面, 望各位大神指教!!!!

PB更新数据窗口的问题

获取当前操作员的科室代码 操作员代码 生成就诊号 取服务器时间赋值给以上字段 其他信息输入完成后 保存进数据库 全局变量是go_user.UserID这个就是操作员工的工号,科室代码的话在gy_ksdm里面有,就诊号的话MS_GHMX这里面有jzxh, dw_1.object.ksdm[1] =go_user.UserID//"select gy_ygdm.ksdm from gy_ygdm where ygdm=go_user.UserID " dw_1.Object.ysdm[1] = go_user.UserID dw_1.object.dqjzh[1] =go_user.UserID//dw_main.GetItemNumber(ll_Row, "JZXH") dw_1.Object.jzkssj[1] = gf_server_date() dw_1.update() //dw_1.settransobject(sqlca) dw_1.retrieve() 怎么写啊,我这写的好多错误的

powerbuilder如何实现选择数据窗口中的多行并且放到另一个数据窗口内?

为了大作业初学PowerBuilder,想用pb9做一个类似网购的系统,打算做一个界面能让客户选择需要购买的商品。先建立了一个数据窗口,设置下拉文本框,选择商品类别之后可以看到该类别下的商品条目。 同时在下方新建了一个空白的数据窗口,打算用它来显示客人已经选择要购买的商品。 所以第一个问题是怎么能选中上面查询结果中的一部分?其次是怎么把选中的这些合并起来变成一个订单的记录?

PB中外部数据窗添加数据

怎么给外部自由格式数据窗对应的表增加数据,我不会写增加的语法以及赋值操作,急急急!!!

PB中如何得到动态Crosstab中的某个单格列名和数据

PB中如何得到动态Crosstab中的某个单元格列名和数据,当选中某个单元格列名的数据时, 数据的color就会改变,其他的还是原来的color.

怎么在pb9中添加字段、、、、、

刚接触pb9,数据库是sql,在sql里面已经添加了字段,但是在pb9里面没有添加字段,请 问大家,如何在pb9里面添加字段呢,望大家指教!

delphi DLL数据及窗体调用

DLL工程文件代码: ``` library DLLUSERS; uses Windows, ADODB, Dialogs, Forms, SysUtils, Classes, U_DataModule in 'U_DataModule.pas' {DataModule1: TDataModule}, U_Users in 'U_Users.pas' {Frm_Users}, U_Initialize in 'U_Initialize.pas'; {$R *.res} function GetForm(ClassName: PChar; DM: TDataModule1): TFormClass; stdcall; begin DataModule1 := DM; Result:=TFormClass(FindClass(ClassName)); end; procedure InitDLL(DM: TDataModule1); stdcall; begin DataModule1:=DM; end; exports GetForm,InitDLL,SetUseName; begin end. ``` DLL公共单元代码: ``` unit U_Initialize; {DLL公共单元UNIT} interface function GetUseName: PChar; stdcall; procedure SetUseName(SName: PChar); stdcall; var StrName: PChar; implementation uses U_DataModule, ActiveX; function GetUseName: PChar; stdcall; begin Result:=StrName; end; procedure SetUseName(SName: PChar); stdcall; begin StrName:=SName; end; initialization CoInitialize(nil); DataModule1 := TDataModule1.Create(nil); finalization DataModule1.Free; CoUninitialize; end. ``` DLL数据模块代码: ``` unit U_DataModule; {数据模块} interface uses SysUtils, Classes, DB, ADODB; type TDataModule1 = class(TDataModule) ADOCNT: TADOConnection; private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {$R *.dfm} end. ``` DLL内部窗体代码: ``` unit U_Users; {DLL内部窗体} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBGridEhGrouping, ComCtrls, GridsEh, DBGridEh, ExtCtrls, RzPanel, Menus, ADODB, DB, EhlibCDS, EhlibADO, Comobj, DBGridEhImpExp, U_DataModule; type TFrm_Users = class(TForm) MainMenu1: TMainMenu; mmAdd: TMenuItem; mmEdit: TMenuItem; mmDelete: TMenuItem; mmRight: TMenuItem; mmFind: TMenuItem; mmDataOut: TMenuItem; mmClose: TMenuItem; RzGroupBox1: TRzGroupBox; DBGridEhUsers: TDBGridEh; StatusBar1: TStatusBar; SaveDialog1: TSaveDialog; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ADOUsers,ADODelete:TADOQuery; DSUsers: TDataSource; { Public declarations } end; var Frm_Users: TFrm_Users; implementation uses U_Initialize; {$R *.dfm} procedure TFrm_Users.FormCreate(Sender: TObject); begin Font.Name:='Arial'; ADOUsers:=TADOQuery.Create(nil); ADODelete:=TADOQuery.Create(nil); DSUsers:=TDataSource.Create(nil); ADOUsers.Connection:=DataModule1.ADOCNT; ADODelete.Connection:=DataModule1.ADOCNT; //设置文件类型列表和默认文件类型 SaveDialog1.Filter:='Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft Excel Workbook (*.xls)|*.XLS'; SaveDialog1.FilterIndex:=0; end; procedure TFrm_Users.FormShow(Sender: TObject); begin StrName:=GetUseName; with ADOUsers do begin Close; SQL.Clear; if String(StrName)='alsaby' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'order by a.User_Name') else if String(StrName)='admin' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' order by a.User_Name') else SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' and a.User_Name<>''admin'' order by a.User_Name'); Open; end; DSUsers.DataSet:=ADOUsers; DBGridEhUsers.DataSource:=DSUsers; StatusBar1.Panels[1].Text:=IntToStr(ADOUsers.RecordCount) +' 条数据。'; end; procedure TFrm_Users.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOUsers.Close; ADOUsers.Destroy; ADODelete.Close; ADODelete.Destroy; DSUsers.Destroy; Action:=caFree; end; initialization RegisterClass(TFrm_Users); finalization UnRegisterClass(TFrm_Users); end. ``` 主程序调用代码: ``` unit U_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList, ComCtrls, ADODB, DB, jpeg, ExtCtrls, RzPanel, RzSplit, RzTreeVw, U_DataModule; type TInitDLL = procedure(DM: TFrm_DataModule); stdcall; TSetUseName = procedure(SName: PChar); stdcall; TGetForm = function(ClassName: PChar; DM: TFrm_DataModule): TFormClass; stdcall; TFrm_Main = class(TForm) MainMenu1: TMainMenu; mmSysFlies: TMenuItem; mmUserChange: TMenuItem; N2: TMenuItem; mmExit: TMenuItem; N1: TMenuItem; mmBakRecover: TMenuItem; mmSysUser: TMenuItem; N5: TMenuItem; StatusBar1: TStatusBar; OpenDialog1: TOpenDialog; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure mmSysUserClick(Sender: TObject); private { Private declarations } public UName: String; { Public declarations } end; var Frm_Main: TFrm_Main; implementation uses U_Public; {$R *.dfm} procedure TFrm_Main.FormCreate(Sender: TObject); begin Font.Name:='Arial'; UName:=Frm_DataModule.ADO_User.FieldByName('User_Name').AsString; end; procedure TFrm_Main.mmSysUserClick(Sender: TObject); var DLLName: String; DLLHandle: THandle; FarProc: TFarProc; Form: TForm; SetUseName: TSetUseName; GetForm: TGetForm; InitDLL: TInitDLL; begin GetDir(0,DLLName); DLLName := DLLName + '\DLLUSERS.dll'; DLLHandle:= SafeLoadLibrary(DLLName); if DLLHandle > 0 then Try FarProc := GetProcAddress(DLLHandle, 'InitDLL'); if FarProc<>nil then begin InitDLL := TInitDLL(FarProc); InitDLL(Frm_DataModule); end; FarProc := GetProcAddress(DLLHandle, 'SetUseName'); if FarProc<>nil then begin SetUseName := TSetUseName(FarProc); SetUseName(PChar(Trim(UName))); end; FarProc := GetProcAddress(DLLHandle, 'GetForm'); if FarProc<>nil then begin GetForm := TGetForm(FarProc); Form := GetForm('TFrm_Users', Frm_DataModule).Create(nil); Form.ShowModal; FreeAndNil(Form); end; Finally FreeLibrary(DLLHandle); End else ShowMessage(DLLName+'文件不存在!'); end; end. ``` 以上在运行程序时没有错误,数据也正常显示,但是关闭调用的DLL内部窗体后,再次通过主程序调用就出现了Read of Address 00000008错误,请高手指点这是咋回事?

pb数据窗口中editmask 小数点位数怎么设置,比如我要设置4位小数

pb数据窗口中editmask 小数点位数怎么设置,比如我要设置4位小数?那些####.0000代表什么意思哈

PB数组的使用及数据窗口的接收

想要实现这样的一个功能:通过选择左边列的不同方式,右边数据窗口显示相应的内容。 如下图:![图片说明](https://img-ask.csdn.net/upload/201508/10/1439213723_731567.png) 选择左边的1,则右边数据窗口显示1对应的数据,以选择1-5,则显示所有数据。

pb连接oracle后看不到表

pb9连接上oracle10,能连接上,但是在pb中数据库画板哪里看不到连接上oracle中的表

PB的数据窗口中怎样选中一列?

我做的是一个图书馆信息管理系统,我想在数据窗口中把读者信息中的“在校”的一列都变成“毕业” 的字样,这怎么实现啊!

请问这查询出来的两张表使用了union all 后数据为什么不正常,

请问这查询出来的两张表使用了union all 后数据为什么不正常,可是如果我把这两张表查询出来的数据插入到两张真实表中,然后使用union all 查询出来的数据是正确的,是不是在查询这两张表中已经使用了union all ,然后再次使用有问题,有人晓得吗 SELECT device_name,device_ip ,module_name, area_name,0 unusual_num,usual_num FROM( SELECT device_name,device_ip ,module_name, area_name,usual_num FROM ( SELECT device_name,device_ip ,module_name, area_name,COUNT(id) usual_num FROM( SELECT device_name,device_ip ,module_name, area_name,id,time FROM (SELECT DATE_ADD('2017-07-04',INTERVAL @i:=@i+1 DAY) as time FROM ( select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 ) as tmp,(SELECT @i:= -1) t) a left JOIN (SELECT DATE_FORMAT(p.first_find_time,'%Y-%m-%d') first_time ,d.entip device_ip,p.id,d.entname device_name, s.entname module_name, ar.entname area_name,DATE_FORMAT(p.recent_find_time,'%Y-%m-%d') recent_time FROM process_device_log p,device_info d ,area_info ar,soc_module_info s WHERE d.module_id = s.entid AND d.area_id = ar.entid AND p.device_id = d.entid AND (p.pro_status=1 or p.pro_status=2) AND p.first_find_time <= '2017-07-11 23:59:59' AND p.recent_find_time>='2017-07-04 00:00:00') b on recent_time>=a.time AND first_time <= a.time union all SELECT d.entname device_name, d.entip device_ip, s.entname module_name, ar.entname area_name,p.id,DATE_FORMAT(p.first_find_time,'%Y-%m-%d') time FROM process_device_log p,device_info d ,area_info ar,soc_module_info s WHERE d.module_id = s.entid AND d.area_id = ar.entid AND p.device_id = d.entid AND p.first_find_time >= '2017-07-04 00:00:00' AND p.first_find_time<= '2017-07-11 23:59:59' AND ISNULL(p.recent_find_time) AND (p.pro_status=1 or p.pro_status=2) ) c group by device_ip ) d WHERE usual_num >0) g union all 就是就是就是就是这里的union all 前面一个表,后面一个表都能查询出数据,可是一拼起来数据就错了 SELECT device_name,device_ip ,module_name, area_name,unusual_num,0 usual_num FROM( SELECT device_name,device_ip ,module_name, area_name,unusual_num FROM ( SELECT device_name,device_ip ,module_name, area_name,COUNT(id) unusual_num FROM( SELECT device_name,device_ip ,module_name, area_name,id,time FROM (SELECT DATE_ADD('2017-07-04',INTERVAL @i:=@i+1 DAY) as time FROM ( select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 union all select 1 ) as tmp,(SELECT @i:= -1) t) a left JOIN (SELECT DATE_FORMAT(p.first_find_time,'%Y-%m-%d') first_time ,d.entip device_ip,p.id,d.entname device_name, s.entname module_name, ar.entname area_name,DATE_FORMAT(p.recent_find_time,'%Y-%m-%d') recent_time FROM process_device_log p,device_info d ,area_info ar,soc_module_info s WHERE d.module_id = s.entid AND d.area_id = ar.entid AND p.device_id = d.entid AND p.pro_status=3 AND p.first_find_time <= '2017-07-11 23:59:59' AND p.recent_find_time>='2017-07-04 00:00:00') b on recent_time>=a.time AND first_time <= a.time union all SELECT d.entname device_name, d.entip device_ip, s.entname module_name, ar.entname area_name,p.id,DATE_FORMAT(p.first_find_time,'%Y-%m-%d') time FROM process_device_log p,device_info d ,area_info ar,soc_module_info s WHERE d.module_id = s.entid AND d.area_id = ar.entid AND p.device_id = d.entid AND p.first_find_time >= '2017-07-04 00:00:00' AND p.first_find_time<= '2017-07-11 23:59:59' AND ISNULL(p.recent_find_time) AND p.pro_status=3 )c group by device_ip ) d WHERE unusual_num >0) h

PB过滤复选框选中的数据,再点击的时候这些数据显示已选中状态

![图片说明](https://img-ask.csdn.net/upload/201706/03/1496487690_687855.png) 这个表单,我想做的是,比如我点完几项数据,然后保存,然后我再点开这个窗口,我之前点过的这些项要有勾的状态

Delphi DLL数据及窗体调用

DLL工程相关代码如下: library DLLUSERS; uses Windows, ADODB, Dialogs, Forms, SysUtils, Classes, U_DataModule in 'U_DataModule.pas' {DataModule1: TDataModule}, U_Users in 'U_Users.pas' {Frm_Users}, U_Initialize in 'U_Initialize.pas'; {$R *.res} function GetForm(ClassName: PChar; DM: TDataModule1): TFormClass; stdcall; begin DataModule1 := DM; Result:=TFormClass(FindClass(ClassName)); end; procedure InitDLL(DM: TDataModule1); stdcall; begin DataModule1:=DM; end; exports GetForm,InitDLL,SetUseName; begin end. DLL公共单元代码如下: unit U_Initialize; {DLL公共单元UNIT} interface function GetUseName: PChar; stdcall; procedure SetUseName(SName: PChar); stdcall; var StrName: PChar; implementation uses U_DataModule, ActiveX; function GetUseName: PChar; stdcall; begin Result:=StrName; end; procedure SetUseName(SName: PChar); stdcall; begin StrName:=SName; end; initialization CoInitialize(nil); DataModule1 := TDataModule1.Create(nil); finalization DataModule1.Free; CoUninitialize; end. DLL数据模块代码: unit U_DataModule; {数据模块} interface uses SysUtils, Classes, DB, ADODB; type TDataModule1 = class(TDataModule) ADOCNT: TADOConnection; private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {$R *.dfm} end. DLL内部窗体代码: unit U_Users; {DLL内部窗体} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBGridEhGrouping, ComCtrls, GridsEh, DBGridEh, ExtCtrls, RzPanel, Menus, ADODB, DB, EhlibCDS, EhlibADO, Comobj, DBGridEhImpExp, U_DataModule; type TFrm_Users = class(TForm) MainMenu1: TMainMenu; mmAdd: TMenuItem; mmEdit: TMenuItem; mmDelete: TMenuItem; mmRight: TMenuItem; mmFind: TMenuItem; mmDataOut: TMenuItem; mmClose: TMenuItem; RzGroupBox1: TRzGroupBox; DBGridEhUsers: TDBGridEh; StatusBar1: TStatusBar; SaveDialog1: TSaveDialog; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ADOUsers,ADODelete:TADOQuery; DSUsers: TDataSource; { Public declarations } end; var Frm_Users: TFrm_Users; implementation uses U_Initialize; {$R *.dfm} procedure TFrm_Users.FormCreate(Sender: TObject); begin Font.Name:='Arial'; ADOUsers:=TADOQuery.Create(nil); ADODelete:=TADOQuery.Create(nil); DSUsers:=TDataSource.Create(nil); ADOUsers.Connection:=DataModule1.ADOCNT; ADODelete.Connection:=DataModule1.ADOCNT; //设置文件类型列表和默认文件类型 SaveDialog1.Filter:='Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft Excel Workbook (*.xls)|*.XLS'; SaveDialog1.FilterIndex:=0; end; procedure TFrm_Users.FormShow(Sender: TObject); begin StrName:=GetUseName; with ADOUsers do begin Close; SQL.Clear; if String(StrName)='alsaby' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'order by a.User_Name') else if String(StrName)='admin' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' order by a.User_Name') else SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' and a.User_Name<>''admin'' order by a.User_Name'); Open; end; DSUsers.DataSet:=ADOUsers; DBGridEhUsers.DataSource:=DSUsers; StatusBar1.Panels[1].Text:=IntToStr(ADOUsers.RecordCount) +' 条数据。'; end; procedure TFrm_Users.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOUsers.Close; ADOUsers.Destroy; ADODelete.Close; ADODelete.Destroy; DSUsers.Destroy; Action:=caFree; end; initialization RegisterClass(TFrm_Users); finalization UnRegisterClass(TFrm_Users); end. 主程序调用DLL代码: unit U_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList, ComCtrls, ADODB, DB, jpeg, ExtCtrls, RzPanel, RzSplit, RzTreeVw, U_DataModule; type TInitDLL = procedure(DM: TFrm_DataModule); stdcall; TSetUseName = procedure(SName: PChar); stdcall; TGetForm = function(ClassName: PChar; DM: TFrm_DataModule): TFormClass; stdcall; TFrm_Main = class(TForm) MainMenu1: TMainMenu; mmSysFlies: TMenuItem; mmUserChange: TMenuItem; N2: TMenuItem; mmExit: TMenuItem; N1: TMenuItem; mmBakRecover: TMenuItem; mmSysUser: TMenuItem; N5: TMenuItem; StatusBar1: TStatusBar; OpenDialog1: TOpenDialog; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure mmSysUserClick(Sender: TObject); private { Private declarations } public UName: String; { Public declarations } end; var Frm_Main: TFrm_Main; implementation uses U_Public; {$R *.dfm} procedure TFrm_Main.FormCreate(Sender: TObject); begin Font.Name:='Arial'; UName:=Frm_DataModule.ADO_User.FieldByName('User_Name').AsString; end; procedure TFrm_Main.mmSysUserClick(Sender: TObject); var DLLName: String; DLLHandle: THandle; FarProc: TFarProc; Form: TForm; SetUseName: TSetUseName; GetForm: TGetForm; InitDLL: TInitDLL; begin GetDir(0,DLLName); DLLName := DLLName + '\DLLUSERS.dll'; DLLHandle:= SafeLoadLibrary(DLLName); if DLLHandle > 0 then Try FarProc := GetProcAddress(DLLHandle, 'InitDLL'); if FarProc<>nil then begin InitDLL := TInitDLL(FarProc); InitDLL(Frm_DataModule); end; FarProc := GetProcAddress(DLLHandle, 'SetUseName'); if FarProc<>nil then begin SetUseName := TSetUseName(FarProc); SetUseName(PChar(Trim(UName))); end; FarProc := GetProcAddress(DLLHandle, 'GetForm'); if FarProc<>nil then begin GetForm := TGetForm(FarProc); Form := GetForm('TFrm_Users', Frm_DataModule).Create(nil); Form.ShowModal; FreeAndNil(Form); end; Finally FreeLibrary(DLLHandle); End else ShowMessage(DLLName+'文件不存在!'); end; end. ``` ``` 以上第一次运行数据都是可以正确显示的,可是关闭调用出来的DLL内部窗体后,再次调用就出现错误了,错误提示为Read of address 00000008,这是为什么呢?

PB数据窗口select语句问题

代码如下. SELECT DJLSH,XM,XB,AGE,CSNYR,ADDRESS,TELEPHONE,SSDJ=SUM(ssdj),lxbh,zxksdm,zxksmc, XMBH=STUFF( (SELECT '/' + RTRIM(XMBH) FROM futian_user.view_pacs_jk AS a WHERE a.DJLSH =b.djlsh AND A.LXBH=B.LXBH FOR XML PATH('')) ,1,1 ,'') FROM futian_user.view_pacs_jk AS b GROUP BY DJLSH,XM,XB,AGE,CSNYR,ADDRESS,TELEPHONE,lxbh,zxksdm,zxksmc 点击rerturn提示 ![图片说明](https://img-ask.csdn.net/upload/201704/18/1492503384_75321.png) 何解.

pb9如何在数据窗口继承方法

![图片说明](https://img-ask.csdn.net/upload/201510/27/1445935980_549488.png) 如何解决,望大神赐教!!!

PB dw问题 行值重复只显示一个

在pb dw 窗口 从表相同键值只显示一个![图片说明](https://img-ask.csdn.net/upload/201503/03/1425363788_535346.png)

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

CSDN:因博主近期注重写专栏文章(已超过150篇),订阅博主专栏人数在突增,近期很有可能提高专栏价格(已订阅的不受影响),提前声明,敬请理解!

CSDN:因博主近期注重写专栏文章(已超过150篇),订阅博主专栏人数在突增,近期很有可能提高专栏价格(已订阅的不受影响),提前声明,敬请理解! 目录 博客声明 大数据了解博主粉丝 博主的粉丝群体画像 粉丝群体性别比例、年龄分布 粉丝群体学历分布、职业分布、行业分布 国内、国外粉丝群体地域分布 博主的近期访问每日增量、粉丝每日增量 博客声明 因近期博主写专栏的文章越来越多,也越来越精细,逐步优化文章。因此,最近一段时间,订阅博主专栏的人数增长也非常快,并且专栏价

我说我不会算法,阿里把我挂了。

不说了,字节跳动也反手把我挂了。

培训班出来的人后来都怎么样了?(二)

接着上回说,培训班学习生涯结束了。后面每天就是无休止的背面试题,不是没有头脑的背,培训公司还是有方法的,现在回想当时背的面试题好像都用上了,也被问到了。回头找找面试题,当时都是打印下来天天看,天天背。 不理解呢也要背,面试造飞机,上班拧螺丝。班里的同学开始四处投简历面试了,很快就有面试成功的,刚开始一个,然后越来越多。不知道是什么原因,尝到胜利果实的童鞋,不满足于自己通过的公司,嫌薪水要少了,选择...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

工作八年,月薪60K,裸辞两个月,投简历投到怀疑人生!

近日,有网友在某职场社交平台吐槽,自己裸辞两个月了,但是找工作却让自己的心态都要崩溃了,全部无果,不是已查看无回音,就是已查看不符合。 “工作八年,两年一跳,裸辞两个月了,之前月薪60K,最近找工作找的心态崩了!所有招聘工具都用了,全部无果,不是已查看无回音,就是已查看不符合。进头条,滴滴之类的大厂很难吗???!!!投简历投的开始怀疑人生了!希望 可以收到大厂offer” 先来看看网...

97年世界黑客编程大赛冠军作品(大小仅为16KB),惊艳世界的编程巨作

这是世界编程大赛第一名作品(97年Mekka ’97 4K Intro比赛)汇编语言所写。 整个文件只有4095个字节, 大小仅仅为16KB! 不仅实现了3D动画的效果!还有一段震撼人心的背景音乐!!! 内容无法以言语形容,实在太强大! 下面是代码,具体操作看最后! @echo off more +1 %~s0|debug e100 33 f6 bf 0 20 b5 10 f3 a5...

不要再到处使用 === 了

我们知道现在的开发人员都使用 === 来代替 ==,为什么呢?我在网上看到的大多数教程都认为,要预测 JavaScript 强制转换是如何工作这太复杂了,因此建议总是使用===。这些都...

什么是a站、b站、c站、d站、e站、f站、g站、h站、i站、j站、k站、l站、m站、n站?00后的世界我不懂!

A站 AcFun弹幕视频网,简称“A站”,成立于2007年6月,取意于Anime Comic Fun,是中国大陆第一家弹幕视频网站。A站以视频为载体,逐步发展出基于原生内容二次创作的完整生态,拥有高质量互动弹幕,是中国弹幕文化的发源地;拥有大量超粘性的用户群体,产生输出了金坷垃、鬼畜全明星、我的滑板鞋、小苹果等大量网络流行文化,也是中国二次元文化的发源地。 B站 全称“哔哩哔哩(bilibili...

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

MySQL性能优化(五):为什么查询速度这么慢

前期回顾: MySQL性能优化(一):MySQL架构与核心问题 MySQL性能优化(二):选择优化的数据类型 MySQL性能优化(三):深入理解索引的这点事 MySQL性能优化(四):如何高效正确的使用索引 前面章节我们介绍了如何选择优化的数据类型、如何高效的使用索引,这些对于高性能的MySQL来说是必不可少的。但这些还完全不够,还需要合理的设计查询。如果查询写的很糟糕,即使表结构再合理、索引再...

用了这个 IDE 插件,5分钟解决前后端联调!

点击上方蓝色“程序猿DD”,选择“设为星标”回复“资源”获取独家整理的学习资料!作者 |李海庆我是一个 Web 开发前端工程师,受到疫情影响,今天是我在家办公的第78天。开发了两周,...

大厂的 404 页面都长啥样?最后一个笑了...

每天浏览各大网站,难免会碰到404页面啊。你注意过404页面么?猿妹搜罗来了下面这些知名网站的404页面,以供大家欣赏,看看哪个网站更有创意: 正在上传…重新上传取消 腾讯 正在上传…重新上传取消 网易 淘宝 百度 新浪微博 正在上传…重新上传取消 新浪 京东 优酷 腾讯视频 搜...

【高并发】高并发秒杀系统架构解密,不是所有的秒杀都是秒杀!

网上很多的文章和帖子中在介绍秒杀系统时,说是在下单时使用异步削峰来进行一些限流操作,那都是在扯淡! 因为下单操作在整个秒杀系统的流程中属于比较靠后的操作了,限流操作一定要前置处理,在秒杀业务后面的流程中做限流操作是没啥卵用的。

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

代码注释如此沙雕,会玩还是你们程序员!

某站后端代码被“开源”,同时刷遍全网的,还有代码里的那些神注释。 我们这才知道,原来程序员个个都是段子手;这么多年来,我们也走过了他们的无数套路… 首先,产品经理,是永远永远吐槽不完的!网友的评论也非常扎心,说看这些代码就像在阅读程序员的日记,每一页都写满了对产品经理的恨。 然后,也要发出直击灵魂的质问:你是尊贵的付费大会员吗? 这不禁让人想起之前某音乐app的穷逼Vip,果然,穷逼在哪里都是...

Java14 新特性解读

Java14 已于 2020 年 3 月 17 号发布,官方特性解读在这里:https://openjdk.java.net/projects/jdk/14/以下是个人对于特性的中文式...

爬虫(101)爬点重口味的

小弟最近在学校无聊的很哪,浏览网页突然看到一张图片,都快流鼻血。。。然后小弟冥思苦想,得干一点有趣的事情python 爬虫库安装https://s.taobao.com/api?_ks...

疫情后北上广深租房价格跌了吗? | Alfred数据室

去年3月份我们发布了《北上广深租房图鉴》(点击阅读),细数了北上广深租房的各种因素对租房价格的影响。一年过去了,在面临新冠疫情的后续影响、城市尚未完全恢复正常运转、学校还没开学等情况下...

面试官给我挖坑:a[i][j] 和 a[j][i] 有什么区别?

点击上方“朱小厮的博客”,选择“设为星标”后台回复&#34;1024&#34;领取公众号专属资料本文以一个简单的程序开头——数组赋值:int LEN = 10000; int[][] ...

又一起程序员被抓事件

就在昨天互联网又发生一起让人心酸的程序员犯罪事件,著名的百度不限速下载软件 Pandownload PC 版作者被警方抓获。案件大致是这样的:软件的作者不仅非法盗取用户数据,还在QQ群进...

应聘3万的职位,有必要这么刁难我么。。。沙雕。。。

又一次被面试官带到坑里面了。面试官:springmvc用过么?我:用过啊,经常用呢面试官:springmvc中为什么需要用父子容器?我:嗯。。。没听明白你说的什么。面试官:就是contr...

太狠了,疫情期间面试,一个问题砍了我5000!

疫情期间找工作确实有点难度,想拿到满意的薪资,确实要点实力啊!面试官:Spring中的@Value用过么,介绍一下我:@Value可以标注在字段上面,可以将外部配置文件中的数据,比如可以...

Intellij IDEA 美化指南

经常有人问我,你的 IDEA 配色哪里搞的,我会告诉他我自己改的。作为生产力工具,不但要顺手而且更要顺眼。这样才能快乐编码,甚至降低 BUG 率。上次分享了一些 IDEA 有用的插件,反...

【相亲】96年程序员小哥第一次相亲,还没开始就结束了

颜值有点高,条件有点好

太厉害了,终于有人能把TCP/IP 协议讲的明明白白了

一图看完本文 一、 计算机网络体系结构分层 计算机网络体系结构分层 计算机网络体系结构分层 不难看出,TCP/IP 与 OSI 在分层模块上稍有区别。OSI 参考模型注重“通信协议必要的功能是什么”,而 TCP/IP 则更强调“在计算机上实现协议应该开发哪种程序”。 二、 TCP/IP 基础 1. TCP/IP 的具体含义 从字面意义上讲,有人可能会认为...

腾讯面试题: 百度搜索为什么那么快?

我还记得去年面腾讯时,面试官最后一个问题是:百度/google的搜索为什么那么快? 这个问题我懵了,我从来没想过,搜素引擎的原理是什么 然后我回答:百度爬取了各个网站的信息,然后进行排序,当输入关键词的时候进行文档比对……巴拉巴拉 面试官:这不是我想要的答案 我内心 这个问题我一直耿耿于怀,终于今天,我把他写出来,以后再问,我直接把这篇文章甩给他!!! 两个字:倒排,将贯穿整篇文章,也是面试官...

相关热词 c# 开发接口 c# 中方法上面的限制 c# java 时间戳 c#单元测试入门 c# 数组转化成文本 c#实体类主外键关系设置 c# 子函数 局部 c#窗口位置设置 c# list 查询 c# 事件 执行顺序
立即提问
相关内容推荐