tjczy.pas

本系统是基于企业局域网平台针对企业安防

unit TjCzy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, Buttons,TCzy;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Panel2: TPanel;
    Label4: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Panel3: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    Procedure FindNext;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Czy1: TCzyXX;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  Try
    Label2.Caption := Czy1.AddCzybh;
    Edit1.SetFocus;
  Except
    Application.MessageBox('系统出错.','提示',64);
    Close;
  End;
end;

procedure TForm2.FindNext;
begin
  if FindNextControl(ActiveControl,True,True,False)is TEdit then
    TEdit(FindNextControl(ActiveControl,True,True,False)).SetFocus
  else if FindNextControl(ActiveControl,True,True,False)is TComboBox then
    TComboBox(FindNextControl(ActiveControl,True,True,False)).SetFocus;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Return then
    FindNext;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  if (Trim(Label2.Caption)<>'')and(Trim(Edit1.Text)<>'')and(Trim(ComboBox1.Text)<>'')and
    (Trim(Edit2.Text)<>'')then
  begin
    Try
      Czy1.Czybh:= Trim(Label2.Caption);
      Czy1.Czymc := Trim(Edit1.Text);
      Czy1.Czyqx := ComboBox1.ItemIndex;
      Czy1.Czymm := Trim(Edit2.Text);  
      Czy1.SaveCzyXX;
      Application.MessageBox('保存成功.','提示',64);
      BitBtn3.OnClick(Sender);
    Except
      Application.MessageBox('系统出错.','提示',64);
      Close;
    End;
  end
  else
    Application.MessageBox('数据项不能为空.','提示',64);
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  Label2.Caption := '';
  Edit1.Clear;
  Edit2.Clear;
  ComboBox1.ItemIndex := 0;  
  Czy1.SelCzyXX;
  DataSource1.DataSet := Czy1.DataSet;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Czy1 := TCzyXX.Create;
  Czy1.ConnectDataBase('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=报警管理系统');
  Czy1.FWriteTableName := '操作员信息表';
  Czy1.FWriteFieldName := '操作员编号';
  BitBtn3.OnClick(Sender);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Czy1.Free;
end;

end.