ywgl_dxglform.pas

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

unit YWGL_DXGLFORM;

interface

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

type
  TYWGL_DXGL = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TDateTimeField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    ADOTable1DSDesigner9: TBCDField;
    ADOTable1DSDesigner10: TStringField;
    ADOTable1DSDesigner11: TStringField;
    ADOTable1DSDesigner12: TStringField;
    ADOTable1DSDesigner13: TStringField;
    ADOTable1DSDesigner14: TStringField;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TDateTimeField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TStringField;
    ADOTable2DSDesigner6: TStringField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TStringField;
    ADOTable2DSDesigner9: TStringField;
    ADOTable2DSDesigner10: TStringField;
    ADOTable2DSDesigner11: TBCDField;
    ADOTable2DSDesigner12: TStringField;
    ADOTable2DSDesigner13: TStringField;
    ADOTable2DSDesigner14: TStringField;
    Label1: TLabel;
    Label3: TLabel;
    ADOTable1DSDesigner15: TStringField;
    ADOQuery1: TADOQuery;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_DXGL: TYWGL_DXGL;

implementation

uses YWGL_DXGL_CXFORM, YWGL_DXGL_DJFORM,  JBXX_SBXX_CXSZFORM,
  JBXX_SBXX_TJFORM,JBXX_SBXXFORM,jbxx_khform,JBXX_KH_CXSZFORM, JBXX_KH_TJFORM,
  MR_WXFORM;

{$R *.DFM}
procedure TYWGL_DXGL.BitBtn1Click(Sender: TObject);    //调用代维修登记窗口
VAR A:  INTEGER;
begin
 a:=1;
 IF adoquery1.EOF=FALSE THEN adoquery1.Last ;
 If adoquery1.Recordset.RecordCount > 0 Then
 begin
 a:=a+ADOQuery1.FieldByName('单号').asinteger;
 END;
 if application.FindComponent('YWGL_DXGL_DJ')=nil then application.CreateForm(TYWGL_DXGL_DJ,YWGL_DXGL_DJ);
 YWGL_DXGL_DJ.Edit1.Text:=formatfloat('000000',a);
 YWGL_DXGL_DJ.showmodal;
end;

procedure TYWGL_DXGL.BitBtn2Click(Sender: TObject);    //产品返还
begin
 If adoquery1.RecordCount = 0 Then begin
 messagedlg('系统无信息.',mterror,[mbok],0);
 end else begin
 if messagedlg('该设备还未维修,您确定要把它退还么',mtWarning,[mbyes,mbno],0) = mryes then begin
 if ADOQuery1.locate('单号',ADOQuery1.fieldbyname('单号').asstring,[loCaseInsensitive]) then begin
    ADOQuery1.delete;
 end;
 end;
 end;
end;
procedure TYWGL_DXGL.BitBtn3Click(Sender: TObject);     //待维修查询
begin
 if tbitbtn(sender).caption='刷   新[&S]' then begin
 tbitbtn(sender).caption:='记录查询[&S]';
 ADOQuery1.filtered:=false;
 end else begin
 if application.FindComponent('YWGL_DXGL_CX')=nil then application.CreateForm(TYWGL_DXGL_CX,YWGL_DXGL_CX);
 YWGL_DXGL_CX.showmodal;
end;

end;
procedure TYWGL_DXGL.BitBtn4Click(Sender: TObject);  //退出
begin
 close;
end;
end.