jbxx_sbxxform.~pas

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

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.