security.pas

Monitor.dfm Meter.dpr pasMain.pas

unit security;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls,db;

type
  TFrmsecurity = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Name_E: TEdit;
    ACCOUNT_E: TEdit;
    SECURITY_COM: TComboBox;
    USER_LIST: TListBox;
    Image1: TImage;
    PASSWORD_E: TEdit;
    ADDBTN: TBitBtn;
    DELBTN: TBitBtn;
    ESCBTN: TBitBtn;
    procedure ESCBTNClick(Sender: TObject);
    procedure DELBTNClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure USER_LISTClick(Sender: TObject);
    procedure ACCOUNT_EKeyPress(Sender: TObject; var Key: Char);
    procedure Name_EKeyPress(Sender: TObject; var Key: Char);
    procedure PASSWORD_EKeyPress(Sender: TObject; var Key: Char);
    procedure ADDBTNClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmsecurity: TFrmsecurity;

implementation

uses DM, Promot;

{$R *.DFM}

procedure TFrmsecurity.ESCBTNClick(Sender: TObject);
begin
        close;
end;

procedure TFrmsecurity.DELBTNClick(Sender: TObject);
var
i:integer;
begin
      if dm1.TableOperator.Active=false then dm1.TableOperator.Active:=true;
      if DM1.tableoperator.Locate('account;password;user', VarArrayOf([account_e.text,password_e.text,user_list.items.strings[user_list.itemindex]]), [loCaseInsensitive]) then
        begin

        frmPromot.Hide;
        frmPromot.Promot.Caption := '是否删除 [' + account_E.Text + '] 该操作员记录?';
        if frmPromot.ShowModal <> mrOK then exit;
        DM1.tableoperator.Delete;
        //dm1.tableoperator.post;
        dm1.tableoperator.FlushBuffers ;
        dm1.tableoperator.refresh;
        For i := 0 To User_list.items.count - 1 do
            If Name_e.Text = User_list.items.strings[i] Then
            begin
                User_list.Items.Delete(i);
                break;
            End;


        End;
        //frmsecurity.Create(frmsecurity);
end;

procedure TFrmsecurity.FormCreate(Sender: TObject);
begin
        if dm1.TableOperator.Active=false then dm1.TableOperator.Active:=true;
        dm1.tableoperator.first;
        while not dm1.tableoperator.eof do
        begin
                User_list.items.Add(dm1.tableoperator.fieldbyname('user').asstring);
                dm1.tableoperator.Next;
        end;
end;

procedure TFrmsecurity.USER_LISTClick(Sender: TObject);
begin
        if dm1.TableOperator.Active=false then dm1.TableOperator.Active:=true;
        if DM1.tableoperator.Locate('user', user_list.items.strings[user_list.itemindex], [loCaseInsensitive]) then
        begin
            Name_e.Text := dm1.tableoperator.fieldbyname('user').asstring;
            account_e.Text := dm1.tableoperator.fieldbyname('account').asstring;
            Password_e.Text := dm1.tableoperator.fieldbyname('password').asstring;
            Security_com.Text := dm1.tableoperator.fieldbyname('security').asstring;
        End;
end;

procedure TFrmsecurity.ACCOUNT_EKeyPress(Sender: TObject; var Key: Char);
begin
         If Key = chr(13) Then password_e.SetFocus ;
end;

procedure TFrmsecurity.Name_EKeyPress(Sender: TObject; var Key: Char);
begin
         If Key = chr(13) Then Account_e.SetFocus;
end;

procedure TFrmsecurity.PASSWORD_EKeyPress(Sender: TObject; var Key: Char);
begin
        If Key = chr(13) Then Security_com.SetFocus;
end;

procedure TFrmsecurity.ADDBTNClick(Sender: TObject);
begin
    if dm1.TableOperator.Active=false then dm1.TableOperator.Active:=true;
    If (Name_e.Text = '') Or (Account_e.Text = '') Or (Password_e.text = '') Or (Security_com.Text < '1') Or (Security_com.Text > '5') Then Exit;
    if not DM1.tableoperator.Locate('account;password', VarArrayOf([account_e.text,password_e.text]), [loCaseInsensitive]) then
        begin
                frmPromot.Hide;
                frmPromot.Promot.Caption := '是否增加该操作员口令系统?';
                if frmPromot.ShowModal <> mrOK then exit;
                dm1.tableoperator.Append;
                User_list.items.Add(name_e.text);
        end
        Else
        begin
                frmPromot.Hide;
                frmPromot.Promot.Caption := '已有该项数据记录，是否修改它?';
                if frmPromot.ShowModal <> mrOK then exit;
                dm1.tableoperator.edit;
        End;

    dm1.tableoperator.fieldbyname('user').asstring := Name_e.Text;
    dm1.tableoperator.fieldbyname('account').asstring := account_e.Text;
    dm1.tableoperator.fieldbyname('password').asstring := password_e.Text;
    dm1.tableoperator.fieldbyname('security').asstring := security_com.Text;

    dm1.tableoperator.post;
    dm1.tableoperator.flushbuffers;
    dm1.tableoperator.refresh;
end;

end.