unit JBXX_SBXXFORM;

interface

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

type
  TJBXX_SBXX = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel1: TBevel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBXX_SBXX: TJBXX_SBXX;
  x,y:integer;
  stringgridedit:boolean;
implementation

uses JBXX_SBXX_CXSZFORM,  JBXX_SBXX_TJFORM,JBXX_SBXX_XGFORM, MR_WXFORM;


{$R *.DFM}
procedure TJBXX_SBXX.BitBtn1Click(Sender: TObject);    //添加設備信息
VAR A:  INTEGER;
begin
 JBXX_SBXX_tj.caption:='設備基本信息添加';
 adoquery1.Last ;
 a:=1;
  If ADOQUERY1.Recordset.RecordCount > 0 Then
 begin
  a:=a+ADOQuery1.FieldByName('編號').asinteger;   //生成設備編號
 end;
 if application.FindComponent('JBXX_SBXX_TJ')=nil then application.CreateForm(TJBXX_SBXX_TJ,JBXX_SBXX_TJ);
 JBXX_SBXX_TJ.Edit1.Text:= formatfloat('000000',a);
 JBXX_SBXX_TJ.showmodal;
end;
procedure TJBXX_SBXX.BitBtn2Click(Sender: TObject);    //設備信息修改
begin
 If ADOQUERY1.RecordCount = 0 Then begin
   messagedlg('系統無信息.',mterror,[mbok],0);
 end else begin
  if application.FindComponent('JBXX_SBXX_XG')=nil then application.CreateForm(TJBXX_SBXX_XG,JBXX_SBXX_XG);
  if ADOQUERY1.FIELDBYNAME('編號').ASSTRING<>'' then JBXX_SBXX_XG.edit1.text:=ADOQUERY1.FIELDBYNAME('編號').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('產品名稱').ASSTRING<>'' then JBXX_SBXX_XG.edit2.text:=ADOQUERY1.FIELDBYNAME('產品名稱').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('產品品牌').ASSTRING<>'' then JBXX_SBXX_XG.edit3.text:=ADOQUERY1.FIELDBYNAME('產品品牌').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('產品型號').ASSTRING<>'' then JBXX_SBXX_XG.edit4.text:=ADOQUERY1.FIELDBYNAME('產品型號').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('產品序號').ASSTRING<>'' then JBXX_SBXX_XG.edit5.text:=ADOQUERY1.FIELDBYNAME('產品序號').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('整機機號').ASSTRING<>'' then JBXX_SBXX_XG.edit6.text:=ADOQUERY1.FIELDBYNAME('整機機號').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('廠商').ASSTRING<>'' then JBXX_SBXX_XG.edit7.text:=ADOQUERY1.FIELDBYNAME('廠商').ASSTRING;
  if ADOQUERY1.FIELDBYNAME('產地').ASSTRING<>'' then JBXX_SBXX_XG.edit8.text:=ADOQUERY1.FIELDBYNAME('產地').ASSTRING;
  JBXX_SBXX_XG.showmodal;
 end;
end;
procedure TJBXX_SBXX.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_SBXX_CXSZ')=nil then application.CreateForm(TJBXX_SBXX_CXSZ,JBXX_SBXX_CXSZ);
 JBXX_SBXX_CXSZ.show;
 end;
end;
procedure TJBXX_SBXX.DBGrid1DblClick(Sender: TObject);    //雙擊選中數據，將彈出修改窗口
begin
 bitbtn2.Click;
end;
procedure TJBXX_SBXX.BitBtn6Click(Sender: TObject);      //退出
begin
 close;
end;
end.