yggl_gzjlform.~pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit YGGL_GZJLFORM;

interface

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

type
  TYGGL_GZJL = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery2DSDesigner: TStringField;
    ADOQuery2DSDesigner2: TFloatField;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TBCDField;
    ADOQuery1DSDesigner6: TFloatField;
    ADOQuery1DSDesigner7: TFloatField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YGGL_GZJL: TYGGL_GZJL;

implementation

uses MR_WXFORM, YGGL_GZJL_CXFORM, YGGL_GZJL_TCFORM; //MRWX_GZJL_CX, Unit_tc;

{$R *.DFM}


procedure TYGGL_GZJL.FormShow(Sender: TObject);   //初始设置
begin
animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
label2.refresh;
dbgrid1.Refresh;
bevel1.refresh;
If adoquery2.RecordCount > 0 Then begin
 dblookupcombobox1.KeyValue:=adoquery2.fieldbyname('职员').asstring;
 adoquery1.Close;
 adoquery1.SQL.clear;
 adoquery1.sql.add('select * from 职员工作记录 where 职员=:zhi');
 adoquery1.Parameters.ParamByName('zhi').datatype:=ftstring;
 adoquery1.Parameters.ParamByName('zhi').value:=dblookupcombobox1.KeyValue;
 adoquery1.Open;
end;
end;
procedure TYGGL_GZJL.DBLookupComboBox1KeyPress(Sender: TObject;   //筛选职员
var Key: Char);
begin
 if key=#13 then  begin
  adoquery1.Close;
  adoquery1.SQL.clear;
  adoquery1.sql.add('select * from 职员工作记录 where 职员=:zhi');
  adoquery1.Parameters.ParamByName('zhi').datatype:=ftstring;
  adoquery1.Parameters.ParamByName('zhi').value:=dblookupcombobox1.KeyValue;
  adoquery1.Open;
 end;
end;
procedure TYGGL_GZJL.BitBtn1Click(Sender: TObject);   //查询
begin
 if tbitbtn(sender).caption='刷新[&S]' then begin
 tbitbtn(sender).caption:='查询[&S]';
 adoquery1.filtered:=false;
 end else begin
 if application.FindComponent('YGGL_GZJL_CX')=nil then application.CreateForm(TYGGL_GZJL_CX,YGGL_GZJL_CX);
 YGGL_GZJL_CX.showmodal;
 if application.FindComponent('YGGL_GZJL_CX')<>nil then YGGL_GZJL_CX.Release;
 end;
end;
procedure TYGGL_GZJL.BitBtn3Click(Sender: TObject);     //修改提成
begin
 adoquery2.edit;
 if application.FindComponent('YGGL_GZJL_tc')=nil then application.CreateForm(TYGGL_GZJL_tc,YGGL_GZJL_tc);
 YGGL_GZJL_tc.showmodal;
 if application.FindComponent('YGGL_GZJL_tc')<>nil then YGGL_GZJL_tc.Release;
end;
procedure TYGGL_GZJL.BitBtn2Click(Sender: TObject);
begin
 close;
end;
end.