addbjdatasrc.pas

该程序可作为386的接警程序使用

unit AddBJDataSrc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;

type
  TFormAddBJData = class(TForm)
    GroupBoxAddBJData: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ButtonOK: TButton;
    ButtonClose: TButton;
    DBEdit1: TDBEdit;
    EditNum: TEdit;
    EditName: TEdit;
    EditPos: TEdit;
    EditAddr: TEdit;
    EditTele: TEdit;
    EditGuard: TEdit;
    EditBuildingNum: TEdit;
    EditOther: TEdit;
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddBJData: TFormAddBJData;

implementation

{$R *.dfm}
uses
        BJDataSrc;

procedure TFormAddBJData.ButtonOKClick(Sender: TObject);
var
        strSQL:string;
        iTemp:Integer;
        strBJNum:string;
begin
        //插入记录
        strSQL := 'Insert into 报警器档案(报警器编号,报警器位置, 用户名, 用户地址, 电话号码, 防护配备措施, 楼号, 备注) values(' +
                  '"' + EditNum.Text + '"' + ',' + '"' + EditPos.Text + '"' + ',' + '"' + EditName.Text + '"' + ',' +
                  '"' + EditAddr.Text + '"' + ',' + '"' + EditTele.Text + '"' + ',' + '"' + EditGuard.Text + '"' + ',' +
                  '"' + EditBuildingNum.Text + '"' + ',' + '"' + EditOther.Text + '"' + ')';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.ExecSQL;

        //刷新DBGrid
        strSQL := 'select * from 报警器档案';
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;

        //清空Edit
        EditNum.ReadOnly := false;
        DBEdit1.Enabled := false;
        FormBJData.ADOQuery1.Last;
        DBEdit1.Enabled := true;
        iTemp := StrToInt(DBEdit1.Text) + 1;
        strBJNum := IntToStr(iTemp);
        EditNum.Text := strBJNum;
        DBEdit1.Enabled := false;

        EditNum.ReadOnly := true;
        EditPos.Text := '';
        EditName.Text := '';
        EditAddr.Text := '';
        EditTele.Text := '';
        EditGuard.Text := '';
        EditBuildingNum.Text := '';
        EditOther.Text := ''; 
end;

procedure TFormAddBJData.ButtonCloseClick(Sender: TObject);
begin
        Close;
end;

end.