jbxx_bjxxform.~pas

维 修 管 理 系 统

unit JBXX_BJXXFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, ExtCtrls;
var x,y:integer;
    stringgridedit:boolean;
type
  TJBXX_BJXX = class(TForm)
    Bevel1: TBevel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TStringField;
    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_BJXX: TJBXX_BJXX;

implementation

uses  JBXX_BJXX_CXTJFORM, JBXX_BJXX_TJFORM, JBXX_BJXX_XGFORM, MR_WXFORM;

{$R *.DFM}
//查询备件信息
procedure TJBXX_BJXX.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_bjxx_cxtj')=nil then application.CreateForm(Tjbxx_bjxx_cxtj,jbxx_bjxx_cxtj);
 jbxx_bjxx_cxtj.showmodal;
end;
end;
//添加备件信息
procedure TJBXX_BJXX.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_BJXX_TJ')=nil then application.CreateForm(TJBXX_BJXX_TJ,JBXX_BJXX_TJ);
   JBXX_BJXX_TJ.Edit1.Text:= formatfloat('000000',a);
   JBXX_BJXX_TJ.showmodal;
end;
//修改备件信息
procedure TJBXX_BJXX.BitBtn2Click(Sender: TObject);
begin
  If adotable1.RecordCount = 0 Then begin
   messagedlg('系统无信息.',mterror,[mbok],0);
  end else begin
   if application.FindComponent('JBXX_BJXX_xg')=nil then application.CreateForm(TJBXX_BJXX_XG,JBXX_BJXX_XG);
   if ADOQUERY1.FIELDBYNAME('备件编号').ASSTRING<>'' then JBXX_BJXX_XG.edit1.text:=ADOQUERY1.FIELDBYNAME('备件编号').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('备件名称').ASSTRING<>'' then JBXX_BJXX_XG.edit2.text:=ADOQUERY1.FIELDBYNAME('备件名称').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('备件型号').ASSTRING<>'' then JBXX_BJXX_XG.edit3.text:=ADOQUERY1.FIELDBYNAME('备件型号').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('备件规格').ASSTRING<>'' then JBXX_BJXX_XG.edit4.text:=ADOQUERY1.FIELDBYNAME('备件规格').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('单位').ASSTRING<>'' then JBXX_BJXX_XG.edit5.text:=ADOQUERY1.FIELDBYNAME('单位').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('替代型号').ASSTRING<>'' then JBXX_BJXX_XG.edit6.text:=ADOQUERY1.FIELDBYNAME('替代型号').ASSTRING;
   if ADOQUERY1.FIELDBYNAME('备注').ASSTRING<>'' then JBXX_BJXX_XG.edit7.text:=ADOQUERY1.FIELDBYNAME('备注').ASSTRING;
   JBXX_bjxx_XG.Caption:='备件基本信息修改';
  //调修改窗体
  JBXX_bjxx_XG.showmodal;
  end;
end;
//双击选中数据，弹出修改窗口
procedure TJBXX_BJXX.DBGrid1DblClick(Sender: TObject);
begin
 bitbtn2.Click;
end;
//返回主界面
procedure TJBXX_BJXX.BitBtn6Click(Sender: TObject);
begin
close;
end;
end.