?? jbxx_gysform.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -