?? uemplyer.pas
字號(hào):
unit uemplyer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DBCtrls, RzButton, ComCtrls, RzDTP, RzDBDTP,
StdCtrls, Mask, ExtCtrls, DB, ADODB, FR_DSet, FR_DBSet, FR_Class,
DBGridEh;
type
Tfrmemplyer = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
RzBitBtn1: TRzBitBtn;
RzBitBtn2: TRzBitBtn;
DBNavigator1: TDBNavigator;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
ADOTable1workid: TStringField;
ADOTable1name: TStringField;
ADOTable1sex: TStringField;
ADOTable1brithday: TDateTimeField;
ADOTable1department: TStringField;
ADOTable1zw: TStringField;
ADOTable1srrq: TDateTimeField;
ADOTable1bz: TStringField;
DBGridEh1: TDBGridEh;
RzBitBtn3: TRzBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure RzBitBtn2Click(Sender: TObject);
procedure RzBitBtn1Click(Sender: TObject);
procedure RzBitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmemplyer: Tfrmemplyer;
implementation
uses uconst,udm1,ufunction;
{$R *.dfm}
procedure Tfrmemplyer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frReport1.Free;
action:=cafree;
end;
procedure Tfrmemplyer.FormCreate(Sender: TObject);
begin
adotable1.Connection:=dm1.ADOConnection1;
adoquery1.Connection:=dm1.ADOConnection1;
adotable1.TableName:='emplyer';
try
adotable1.Open;
except
showmessage('訪問數(shù)據(jù)庫失敗!');
end;
adoquery1.Close;
end;
procedure Tfrmemplyer.RzBitBtn2Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/emplyer.frf');
frVariables['username']:=username;
frreport1.ShowReport;
end;
procedure Tfrmemplyer.RzBitBtn1Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/emplyer.frf');
frVariables['username']:=username;
frreport1.DesignReport;
end;
procedure Tfrmemplyer.RzBitBtn3Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -