yggl_zyxxform.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit YGGL_ZYXXFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Db, ADODB, ComCtrls, ExtCtrls,
  Qrctrls, QuickRpt;

type
  TYGGL_ZYXX = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TDateTimeField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    ADOTable1DSDesigner9: TStringField;
    ADOTable1DSDesigner10: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TStringField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TFloatField;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRSysData1: TQRSysData;
    QRLabel2: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YGGL_ZYXX: TYGGL_ZYXX;

implementation

uses MR_WXFORM, YGGL_ZYXX_TJFORM,  MRWX_BB, YGGL_ZYXX_XGFORM;

{$R *.DFM}

procedure TYGGL_ZYXX.BitBtn1Click(Sender: TObject);    //调用员工录入窗口
begin
 //adotable1.insert;
 //adotable1.FieldByName('性别').asstring:='男';
 //zyapp:=true;
 if application.FindComponent('YGGL_ZYXX_tj')=nil then application.CreateForm(TYGGL_ZYXX_tj,YGGL_ZYXX_tj);
 YGGL_ZYXX_tj.showmodal;
// if application.FindComponent('YGGL_ZYXX_tj')<>nil then YGGL_ZYXX_tj.Release;
end;
procedure TYGGL_ZYXX.BitBtn4Click(Sender: TObject);       //调用员工查询窗口
begin
 if tbitbtn(sender).caption='刷   新[&S]' then begin
 tbitbtn(sender).caption:='人员信息查询[&S]';
 adotable1.filtered:=false;
 end else begin
 end;
end;
procedure TYGGL_ZYXX.BitBtn2Click(Sender: TObject);    //调用员工编辑窗口
begin
 If adotable1.RecordCount = 0 Then begin
  showmessage('系统无人员信息.');
  end else begin
  adotable1.edit;
  if application.FindComponent('YGGL_ZYXX_XG')=nil then application.CreateForm(TYGGL_ZYXX_XG,YGGL_ZYXX_XG);
  YGGL_ZYXX_XG.showmodal;
  if application.FindComponent('YGGL_ZYXX_XG')<>nil then YGGL_ZYXX_XG.Release;
  if adotable1.fieldbyname('出生日期').asstring='' then begin
  YGGL_ZYXX_XG.DateTimePicker1.date:=date;
  end else begin
  YGGL_ZYXX_XG.DateTimePicker1.date:=adotable1.FieldByName('出生日期').asdatetime;
  end;
  zyapp:=false;
 end;
end;
procedure TYGGL_ZYXX.QuickRep1Preview(Sender: TObject);
begin
 mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;
end;
procedure TYGGL_ZYXX.BitBtn5Click(Sender: TObject);
begin
 If Not assigned(mr_wxbb) Then begin
 mr_wxbb:=tmr_wxbb.create(self);
 end;
 mr_wxbb.show;
 QuickRep1.Preview;
end;
procedure TYGGL_ZYXX.BitBtn3Click(Sender: TObject);    //人员离职
begin
 If adotable1.RecordCount = 0 Then begin
  showmessage('系统无人员信息.');
  end else begin
  if adotable2.Locate('职员',adotable1.fieldbyname('职员名称').asstring,[loCaseInsensitive]) then begin
  if adotable2.FieldByName('现有工作').asstring='' then begin
  if messagedlg(adotable1.fieldbyname('职员名称').asstring+'可以离职吗?',
   mtWarning,[mbyes,mbno],0)=mryes then begin
   adotable1.delete;
   adotable2.delete;
  end;
  end else begin
  showmessage('该职员工作未完成,不能离职.');
  end;
  end else begin
  if messagedlg(adotable1.fieldbyname('职员名称').asstring+'可以离职吗?',
   mtWarning,[mbyes,mbno],0)=mryes then begin
   adotable1.delete;
  end;
  end;
 end;
end;
procedure TYGGL_ZYXX.BitBtn6Click(Sender: TObject);      //退出
begin
 CLOSE;
end;
End.