uemplyer.pas

工廠採購管理系統

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('访问数据库失败！');
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.