jbxx_gysform.~pas

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

unit JBXX_GYSFORM;

interface

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

type
  TJBXX_GYS = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBXX_GYS: TJBXX_GYS;
    x,y:integer;
  stringgridedit:boolean;

implementation

uses JBXX_GYS_CXSZFORM , JBXX_GYS_TJFORM , JBXX_GYS_XGform, MR_WXFORM;

{$R *.DFM}
procedure TJBXX_GYS.BitBtn1Click(Sender: TObject);  //调用供应商添加窗口
VAR a:  INTEGER;
begin
 a:=1;
 IF adoquery1.EOF=FALSE THEN adoquery1.Last ;
 If adoquery1.Recordset.RecordCount > 0 Then a:=a+ADOQuery1.FieldByName('商家编号').asinteger;
 if application.FindComponent('JBXX_GYS_TJ')=nil then application.CreateForm(TJBXX_GYS_TJ,JBXX_GYS_TJ);
 JBXX_GYS_TJ.Edit1.Text:= formatfloat('000000',a);
 JBXX_GYS_TJ.showmodal;
end;

procedure TJBXX_GYS.BitBtn2Click(Sender: TObject);     //调用供应商修改窗口
begin
If ADOQuery1.RecordCount = 0 Then begin
 messagedlg('系统无信息.',mterror,[mbok],0);
 end else begin
 if application.FindComponent('JBXX_GYS_XG')=nil then application.CreateForm(TJBXX_GYS_XG,JBXX_GYS_XG);
 if ADOQUERY1.FIELDBYNAME('商家编号').ASSTRING<>'' then JBXX_GYS_XG.edit1.text:=ADOQUERY1.FIELDBYNAME('商家编号').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('商家名称').ASSTRING<>'' then JBXX_GYS_XG.edit2.text:=ADOQUERY1.FIELDBYNAME('商家名称').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('联系电话').ASSTRING<>'' then JBXX_GYS_XG.edit3.text:=ADOQUERY1.FIELDBYNAME('联系电话').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('传真').ASSTRING<>'' then JBXX_GYS_XG.edit4.text:=ADOQUERY1.FIELDBYNAME('传真').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('地址').ASSTRING<>'' then JBXX_GYS_XG.edit5.text:=ADOQUERY1.FIELDBYNAME('地址').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('邮编').ASSTRING<>'' then JBXX_GYS_XG.edit6.text:=ADOQUERY1.FIELDBYNAME('邮编').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('联系人').ASSTRING<>'' then JBXX_GYS_XG.edit7.text:=ADOQUERY1.FIELDBYNAME('联系人').ASSTRING;
 if ADOQUERY1.FIELDBYNAME('联系人电话').ASSTRING<>'' then JBXX_GYS_XG.edit8.text:=ADOQUERY1.FIELDBYNAME('联系人电话').ASSTRING;
 JBXX_GYS_XG.showmodal;
end;
end;
procedure TJBXX_GYS.BitBtn4Click(Sender: TObject);     //调用供应商查询窗口
begin
 if tbitbtn(sender).caption='刷   新[&S]' then begin
 tbitbtn(sender).caption:='商家信息查询[&S]';
 ADOQuery1.filtered:=false;
 end else begin
 if application.FindComponent('JBXX_GYS_CXSZ')=nil then application.CreateForm(TJBXX_GYS_CXSZ,JBXX_GYS_CXSZ);
 JBXX_GYS_CXSZ.showmodal;
end;

end;
procedure TJBXX_GYS.DBGrid1DblClick(Sender: TObject);     //调用供应商修改窗口
begin
 bitbtn2.Click;
end;
procedure TJBXX_GYS.BitBtn6Click(Sender: TObject);      //退出
begin
 close;
end;
end.