a_pass.pas

2004090611144625767.rar 资源名称:通用工资管理

unit a_pass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tapassb = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  procedure gztreport();
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  apassb: Tapassb;

implementation

uses datamodule, gzgn, tpass, gztreport;

{$R *.DFM}

procedure Tapassb.Button1Click(Sender: TObject);
var
passstr:string;
begin
passstr:='select *from pass where a_pass='+''''+edit1.text+'''';
with datamodule1.passs do
begin
close;
sql.clear;
sql.add(passstr);
prepare;
open;
end;
if datamodule1.passs.eof then
begin
showmessage('密码错误，请重来');
edit1.SetFocus;
end
else
begin
gzgnb.DBGrid1.SelectedField.Dataset.Edit;
gzgnb.DBGrid1.SelectedField.AsBoolean :=not gzgnb.DBGrid1.SelectedField.AsBoolean;
datamodule1.gzgns.fieldbyname('a_datetime').asdatetime:=date;
datamodule1.gzgns.fieldbyname('a_jsr').asstring:=datamodule1.user.fieldbyname('a_user').asstring;
gzgnb.DBGrid1.SelectedField.Dataset.Post;
gztreport();
if messagedlg('要打印吗(是为打印，否为预览)?',mtconfirmation,[mbyes,mbno],0)=mryes then
 gztreportb.quickrep1.print
 else
 gztreportb.quickrep1.preview;

self.close;

end;//else


end;
procedure Tapassb.gztreport();
var
ggjsstr:string;
i_text,i_label:integer;
begin
ggjsstr:='select *from ggjs where extract(year from a_date)='+gzgnb.edit1.text;
ggjsstr:=ggjsstr+' and extract(month from a_date)='+gzgnb.edit2.text;
with datamodule1.ggjss do
begin
close;
sql.clear;
sql.add(ggjsstr);
prepare;
open;
end;//with
gztreportb.QRLabel6.caption:=datamodule1.gzgns.fieldbyname('a_bm').asstring;
gztreportb.qrlabel7.caption:=datamodule1.gzgns.fieldbyname('a_bz').asstring;
gztreportb.qrlabel9.caption:=datamodule1.gzgns.fieldbyname('a_number').asstring;
gztreportb.QRLabel11.caption:=datamodule1.gzgns.fieldbyname('a_name').asstring;
gztreportb.QRLabel1.caption:=gzgnb.edit1.text;
gztreportb.QRLabel3.caption:=gzgnb.Edit2.text;
gztreportb.qrlabel13.caption:=datamodule1.gzgns.fieldbyname('a_jsr').asstring;
i_text:=1;
i_label:=16;
while not datamodule1.ggjss.eof do
begin
if datamodule1.ggjss.FieldByName('a_gzcm').asstring<>'' then
begin
case i_label of
16:
begin
gztreportb.qrlabel16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText1.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext1.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
17:
begin
gztreportb.qrlabel17.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText2.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext2.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
//16:gztreportb.qrlabel16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
18:
begin
gztreportb.qrlabel18.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText3.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext3.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
19:
begin
gztreportb.qrlabel19.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText4.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext4.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
20:
begin
gztreportb.qrlabel20.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText5.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext5.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
21:
begin
gztreportb.qrlabel21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText6.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext6.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
22:
begin
gztreportb.qrlabel22.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText7.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext7.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
23:
begin
gztreportb.qrlabel23.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText8.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext8.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
24:
begin
gztreportb.qrlabel24.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText9.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext9.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
25:
begin
gztreportb.qrlabel25.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText10.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext10.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
26:
begin
gztreportb.qrlabel26.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText11.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext11.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
27:
begin
gztreportb.qrlabel27.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText12.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext12.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
28:
begin
gztreportb.qrlabel28.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
gztreportb.QRDBText13.dataset:=datamodule1.gzgns;
gztreportb.qrdbtext13.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
end;
end;//case
end
else
begin

case i_label of
16:
begin
gztreportb.qrlabel16.caption:='';
end;
17:
begin
gztreportb.qrlabel17.caption:='';
end;
//16:gztreportb.qrlabel16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
18:
begin
gztreportb.qrlabel18.caption:='';
end;
19:
begin
gztreportb.qrlabel19.caption:='';
end;
20:
begin
gztreportb.qrlabel20.caption:='';
end;
21:
begin
gztreportb.qrlabel21.caption:='';
end;
22:
begin
gztreportb.qrlabel22.caption:='';
end;
23:
begin
gztreportb.qrlabel23.caption:='';
end;
24:
begin
gztreportb.qrlabel24.caption:='';
end;
25:
begin
gztreportb.qrlabel25.caption:='';
end;
26:
begin
gztreportb.qrlabel26.caption:='';
end;
27:
begin
gztreportb.qrlabel27.caption:='';
end;
28:
begin
gztreportb.qrlabel28.caption:='';
end;
end;//case

end;//else
i_label:=i_label+1;
datamodule1.ggjss.next;
end;//while




end;

procedure Tapassb.FormShow(Sender: TObject);
begin
edit1.text:='';
end;

procedure Tapassb.Button2Click(Sender: TObject);
begin
tpassb.show;
end;

procedure Tapassb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
button1.click;
end;

procedure Tapassb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.Release;
end;

end.