You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
98 lines
1.8 KiB
Plaintext
98 lines
1.8 KiB
Plaintext
unit u_cw_load;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, RxLookup, StdCtrls, bsSkinCtrls, BusinessSkinForm;
|
|
|
|
type
|
|
Tfrm_cw_load = class(TForm)
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
Label1: TLabel;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_cw_load: Tfrm_cw_load;
|
|
|
|
implementation
|
|
|
|
uses u_cw_pingzheng, u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_cw_load.FormShow(Sender: TObject);
|
|
begin
|
|
case frm_cw_pingzheng.t_cw_design.fieldbyname('财务软件').asinteger of
|
|
0:
|
|
begin
|
|
|
|
end;
|
|
1:
|
|
begin
|
|
RxDBLookupCombo13.LookupField:='FName';
|
|
RxDBLookupCombo13.LookupDisplay:='FName';
|
|
end;
|
|
2:
|
|
begin
|
|
|
|
end;
|
|
3:
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_cw_load.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_cw_load.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
{
|
|
case frm_cw_pingzheng.t_cw_design.fieldbyname('财务软件').asinteger of
|
|
0:
|
|
begin
|
|
|
|
end;
|
|
1:
|
|
begin
|
|
if frm_cw_pingzheng.t_cw_load.locate('FName',RxDBLookupCombo13.DisplayValue,[]) then
|
|
begin
|
|
frm_cw_load_iflog:=true;
|
|
cw_load:=frm_cw_pingzheng.t_cw_load.fieldbyname('FUserID').asinteger;
|
|
cw_load_group:=frm_cw_pingzheng.t_cw_load.fieldbyname('FPrimaryGroup').asinteger;
|
|
close;
|
|
end
|
|
else
|
|
begin
|
|
showmessage('没有找到当前登陆人！！');
|
|
exit;
|
|
end;
|
|
end;
|
|
2:
|
|
begin
|
|
|
|
end;
|
|
3:
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
|
|
end.
|