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;
    EditNum: TEdit;
    EditName: TEdit;
    EditPos: TEdit;
    EditAddr: TEdit;
    EditTele: TEdit;
    EditGuard: TEdit;
    EditBuildingNum: TEdit;
    EditOther: TEdit;
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    iTemp:Integer;
  public
    { Public declarations }
  end;

var
  FormAddBJData: TFormAddBJData;

implementation

{$R *.dfm}
uses
        BJDataSrc;

procedure TFormAddBJData.ButtonOKClick(Sender: TObject);
var     strSQL:string;
begin
        if(EditPos.Text='') or (EditName.Text='') or (EditAddr.Text='') or (EditTele.Text='') or (EditGuard.Text='') or (EditBuildingNum.Text='') then
        begin
                ShowMessage('有未添字段，请填完！');
        end
        else
        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;

                strSQL := 'select * from 报警器档案';
                FormBJData.ADOQuery1.SQL.Text := strSQL;
                FormBJData.ADOQuery1.ExecSQL;

                iTemp :=iTemp+1;
                EditNum.Text := IntToStr(iTemp);
                EditPos.Text := '';
                EditName.Text := '';
                EditAddr.Text := '';
                EditTele.Text := '';
                EditGuard.Text := '';
                EditBuildingNum.Text := '';
                EditOther.Text := '';
        end;
end;

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

procedure TFormAddBJData.FormActivate(Sender: TObject);
var    strSQL:string;
begin
        FormBJData.ADOQuery1.open;
        if FormBJData.ADOQuery1.IsEmpty then
        begin
          EditNum.Text := '1';
          iTemp:=1;
        end
        else
        begin
            strSQL := 'select * from 报警器档案 order by 报警器编号';
            FormBJData.ADOQuery1.Close;
            FormBJData.ADOQuery1.SQL.Clear;
            FormBJData.ADOQuery1.SQL.Text := strSQL;
            FormBJData.ADOQuery1.Open;
            FormBJData.ADOQuery1.Last;
            iTemp :=FormBJData.ADOQuery1.FieldByName('报警器编号').AsInteger+1;
            EditNum.Text := IntToStr(iTemp);
        end;
        EditPos.Text := '';
        EditName.Text := '';
        EditAddr.Text := '';
        EditTele.Text := '';
        EditGuard.Text := '';
        EditBuildingNum.Text := '';
        EditOther.Text := '';
end;

end.