xtsz_bmszform.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit XTSZ_BMSZFORM;

interface

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

type
  TXTSZ_BMSZ = class(TForm)
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    ADOQuery2: TADOQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSZ_BMSZ: TXTSZ_BMSZ;
    tapp:string;
implementation

uses MR_WXFORM;

{$R *.DFM}

procedure TXTSZ_BMSZ.BitBtn1Click(Sender: TObject);  //添加部门
begin
if tbitbtn(sender).caption='添 加' then begin    //如果是添加状态
 bitbtn1.Caption:='保 存';
 bitbtn2.Caption:='取 消';
 dbedit1.Enabled:=true;
 dbedit2.Enabled:=true;
 dbgrid1.Enabled:=false;
 adoquery1.append;
 dbedit1.setfocus;
 tapp:='app';
 end else begin
 if dbedit1.text='' then begin
  showmessage('请输入您的部门信息.');
  dbedit1.setfocus;
  exit;
 end;
 adoquery2.Close;
 adoquery2.SQL.clear;
 adoquery2.SQL.add('select 库房 from 库 where 库房='''+dbedit1.text+'''');
 adoquery2.open;
 if tapp='app' then begin
   If adoquery2.RecordCount > 0 Then begin
     showmessage('系统中该部门信息已经存在,请重新输入.');
     dbedit1.setfocus;
     exit;
   end;
 end;
 adoquery1.Post;         //保存部门信息
 bitbtn1.Caption:='添 加';
 bitbtn2.Caption:='修 改';
 dbedit1.Enabled:=false;
 dbedit2.Enabled:=false;
 dbgrid1.Enabled:=true;
end;
end;

procedure TXTSZ_BMSZ.BitBtn2Click(Sender: TObject);  //修改部门信息
begin
if tbitbtn(sender).caption='修 改' then begin  
  tapp:='edit';
  bitbtn1.Caption:='保 存';
  bitbtn2.Caption:='取 消';
  dbedit1.Enabled:=true;
  dbedit2.Enabled:=true;
  dbgrid1.Enabled:=false;
  adoquery1.Edit;
  dbedit1.setfocus;
end else begin
  adoquery1.Cancel;
  bitbtn1.Caption:='添 加';
  bitbtn2.caption:='修 改';
  dbedit1.enabled:=false;
  dbedit2.Enabled:=false;
  dbgrid1.Enabled:=true;
end;
end;
procedure TXTSZ_BMSZ.DBEdit1KeyPress(Sender: TObject; var Key: Char); //回车移动焦点
begin
if key=#13 then begin
  dbedit2.setfocus;
  key:=#0;
end;
end;
procedure TXTSZ_BMSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);  //回车移动焦点
begin
if key=#13 then begin
  bitbtn1.setfocus;
  key:=#0;
end;
end;
procedure TXTSZ_BMSZ.BitBtn3Click(Sender: TObject);    //退出
begin
 close;
end;
end.