jbxx_khform.pas

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

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

type
  TJBXX_KH = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    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;
    DBGrid1: TDBGrid;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBXX_KH: TJBXX_KH;
    x,y:integer;
  stringgridedit:boolean;

implementation

uses JBXX_KH_CXSZFORM, JBXX_KH_TJFORM, JBXX_GYS_TJFORM,JBXX_kh_XGform,
  JBXX_GYS_XGFORM, MR_WXFORM;

{$R *.DFM}

procedure TJBXX_KH.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('JBXX_KH_TJ')=nil then application.CreateForm(TJBXX_KH_TJ,JBXX_KH_TJ);
 JBXX_KH_TJ.Edit1.Text:= formatfloat('000000',a);
 JBXX_KH_TJ.showmodal;
end;

procedure TJBXX_KH.BitBtn2Click(Sender: TObject);   //修改客户信息
begin
 If ADOQuery1.RecordCount = 0 Then begin
   messagedlg('系统无信息.',mterror,[mbok],0);
 end else begin
 if application.FindComponent('JBXX_KH_XG')=nil then application.CreateForm(TJBXX_KH_XG,JBXX_KH_XG);
  if ADOQUERY1.FIELDBYNAME('客户编号').ASSTRING<>'' then JBXX_KH_XG.edit1.text:=ADOQUERY1.FIELDBYNAME('客户编号').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('客户名称').ASSTRING<>'' then JBXX_KH_XG.edit2.text:=ADOQUERY1.FIELDBYNAME('客户名称').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('联系电话').ASSTRING<>'' then JBXX_KH_XG.edit3.text:=ADOQUERY1.FIELDBYNAME('联系电话').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('传真').ASSTRING<>'' then JBXX_KH_XG.edit4.text:=ADOQUERY1.FIELDBYNAME('传真').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('地址').ASSTRING<>'' then JBXX_KH_XG.edit5.text:=ADOQUERY1.FIELDBYNAME('地址').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('邮编').ASSTRING<>'' then JBXX_KH_XG.edit6.text:=ADOQUERY1.FIELDBYNAME('邮编').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('联系人').ASSTRING<>'' then JBXX_KH_XG.edit7.text:=ADOQUERY1.FIELDBYNAME('联系人').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('联系人电话').ASSTRING<>'' then JBXX_KH_XG.edit8.text:=ADOQUERY1.FIELDBYNAME('联系人电话').ASSTRING;
  JBXX_KH_XG.showmodal;
 end;
end;
procedure TJBXX_KH.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_KH_CXSZ')=nil then application.CreateForm(TJBXX_KH_CXSZ,JBXX_KH_CXSZ);
 JBXX_KH_CXSZ.showmodal;
end;
end;
procedure TJBXX_KH.DBGrid1DblClick(Sender: TObject);
begin
 bitbtn2.Click;
end;
procedure TJBXX_KH.BitBtn6Click(Sender: TObject);
begin
CLOSE;
end;

end.