ywgl_gjglform.~pas

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

unit YWGL_GJGLFORM;

interface

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

type
  TYWGL_GJGL = class(TForm)
    ADOTable1: TADOTable;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    Bevel1: TBevel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TDateTimeField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_GJGL: TYWGL_GJGL;

implementation

uses  YWGL_GJGL_TJFORM, YWGL_GJGL_JDFORM, YWGL_GJGL_CXFORM, MRWX_BB,
  YWGL_GJGL_XGFORM;

{$R *.DFM}

procedure TYWGL_GJGL.FormShow(Sender: TObject);
begin
animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
dbgrid1.refresh;
bevel1.refresh;
end;

procedure TYWGL_GJGL.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TYWGL_GJGL.BitBtn3Click(Sender: TObject);
begin
if tbitbtn(sender).caption='刷   新[&S]' then begin
   tbitbtn(sender).caption:='信息查询[&S]';
   adotable1.filtered:=false;
end else begin
if application.FindComponent('YWGL_GJGL_CX')=nil then application.CreateForm(TYWGL_GJGL_CX,YWGL_GJGL_CX);
YWGL_GJGL_CX.showmodal;
if application.FindComponent('YWGL_GJGL_CX')<>nil then YWGL_GJGL_CX.Release;

end;

end;

procedure TYWGL_GJGL.BitBtn6Click(Sender: TObject);
begin
if adotable1.RecordCount=0 then begin
    showmessage('库中无工具');
end else begin
    if messagedlg('您确定要废弃编号为['+adotable1.fieldbyname('编号').asstring+']的工具吗?',
                 mtConfirmation	,[mbyes,mbno],0)=mryes then begin
                 adotable1.Delete;
    end;
end;
end;

procedure TYWGL_GJGL.BitBtn2Click(Sender: TObject);
var bian:string; b:integer;
begin
//appgj:=true;
adotable1.Last;
bian:=adotable1.fieldbyname('编号').asstring;
if bian='' then begin
    bian:='001';
end else begin
    bian:=inttostr(strtoint(bian)+1);
    for b:=1 to 3 do begin
        if length(bian)<3 then 
            bian:='0'+bian;
    end;
end;
if application.FindComponent('YWGL_GJGL_tj')=nil then application.CreateForm(TYWGL_GJGL_tj,YWGL_GJGL_tj);
YWGL_GJGL_tj.EDIT1.TEXT:=BIAN;
YWGL_GJGL_tj.showmodal;
if application.FindComponent('YWGL_GJGL_tj')<>nil then YWGL_GJGL_tj.Release;

end;

procedure TYWGL_GJGL.BitBtn7Click(Sender: TObject);
begin
//appgj:=false;
    if adotable1.RecordCount=0 then begin
         showmessage('库中无工具信息。');
    end else begin
        adotable1.edit;
if application.FindComponent('YWGL_GJGL_xg')=nil then application.CreateForm(TYWGL_GJGL_xg,YWGL_GJGL_xg);
YWGL_GJGL_xg.showmodal;
if application.FindComponent('YWGL_GJGL_xg')<>nil then YWGL_GJGL_xg.Release;
end;

end;

procedure TYWGL_GJGL.QuickRep1Preview(Sender: TObject);
begin
{qrlabel3.Caption:=mr_wxform.ADOTable1.fieldbyname('公司名称').asstring;
mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;
   }
end;

procedure TYWGL_GJGL.BitBtn5Click(Sender: TObject);
var ren:string;
begin

    if adotable1.RecordCount<>0 then begin
    if application.FindComponent('YWGL_GJGL_JD')=nil then application.CreateForm(TYWGL_GJGL_JD,YWGL_GJGL_JD);
YWGL_GJGL_JD.showmodal;
if application.FindComponent('YWGL_GJGL_JD')<>nil then YWGL_GJGL_JD.Release;

        if adotable1.fieldbyname('使用状态').asstring<>'' then begin
            YWGL_GJGL_jd.bitbtn1.enabled:=false;
            YWGL_GJGL_jd.bitbtn2.enabled:=true;
            YWGL_GJGL_jd.DBLookupComboBox1.ReadOnly:=true;
            YWGL_GJGL_jd.dblookupcombobox1.KeyValue:=YWGL_GJGL_jd.adotable1.fieldbyname('职员').asstring;
        end else begin
            ren:=adotable1.fieldbyname('使用状态').asstring;
            ren:=copy(ren,1,length(ren)-4);
            YWGL_GJGL_jd.DBLookupComboBox1.KeyValue:=ren;
            YWGL_GJGL_jd.DBLookupComboBox1.ReadOnly:=false;
            YWGL_GJGL_jd.bitbtn1.enabled:=true;
            YWGL_GJGL_jd.bitbtn2.enabled:=false;
        end;
    end else begin
        showmessage('库中无工具。');
    end;
end;

end.