unituserlist.pas

来自「一般的进销存软件不过界面还可以」· PAS 代码 · 共 187 行

unit UnitUserList;

interface

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

type
  TFrameUserList = class(TFrame)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Image5: TImage;
    DBComboBox1: TDBComboBox;
    ADOQuery1: TADOQuery;
    Image6: TImage;
    Image1: TImage;
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure GoEditState();
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure Show();
  private
    { Private declarations }
    LangSysmsgTitle: string;
    LangEmpty: string;
    LangDelSelf: string;
    LangBesure: string;
  public
    { Public declarations }
  end;

implementation

uses UnitLogin, UnitMain;

{$R *.dfm}

procedure TFrameUserList.Image4Click(Sender: TObject);
begin
  {修改用户}
  GoEditState();
  ADOQuery1.Edit;
end;

procedure TFrameUserList.Image5Click(Sender: TObject);
begin
  {提交数据}
  if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBComboBox1.Text<>'') then
    ADOQuery1.Post
  else
    if messagebox(handle,pChar(LangEmpty),pChar(LangSysmsgTitle),mb_iconquestion+mb_yesno)=IDyes then
      ADOQuery1.Cancel
    else
      exit;
  Image2.Enabled := True;
  Image3.Enabled := True;
  Image4.Enabled := True;
  DBEdit1.Color := $00FFF0DC;
  DBEdit2.Color := $00FFF0DC;
  DBComboBox1.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBComboBox1.Enabled := False;
  Image5.Visible := False;
  Image6.Visible := False;
end;

procedure TFrameUserList.Image3Click(Sender: TObject);
begin
  if ADOQuery1.FieldByName('user_name').AsString=UserName then
  begin
    messagebox(handle,pChar(LangDelSelf),pChar(LangSysmsgTitle),mb_iconwarning+mb_ok);
    exit;
  end;
  if messagebox(handle,pChar(LangBesure),pChar(LangSysmsgTitle),mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete;
end;

procedure TFrameUserList.Image2Click(Sender: TObject);
begin
  {添加用户}
  GoEditState();
  ADOQuery1.Append;
end;

procedure TFrameUserList.Image6Click(Sender: TObject);
begin
  {放弃提交}
  ADOQuery1.Cancel;
  Image2.Enabled := True;
  Image3.Enabled := True;
  Image4.Enabled := True;
  DBEdit1.Color := $00FFF0DC;
  DBEdit2.Color := $00FFF0DC;
  DBComboBox1.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBComboBox1.Enabled := False;
  Image5.Visible := False;
  Image6.Visible := False;
end;

procedure TFrameUserList.GoEditState();
begin
  {进入编辑状态}
  Image2.Enabled := False;
  Image3.Enabled := False;
  Image4.Enabled := False;
  DBEdit1.Color := clWhite;
  DBEdit2.Color := clWhite;
  DBComboBox1.Color := clWhite;
  DBEdit1.Enabled := True;
  DBEdit2.Enabled := True;
  DBComboBox1.Enabled := True;
  Image5.Visible := True;
  Image6.Visible := True;
  DBEdit1.SetFocus;
end;

procedure TFrameUserList.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then DBEdit2.SetFocus;
end;

procedure TFrameUserList.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then DBComboBox1.SetFocus;
end;

procedure TFrameUserList.Show();
begin
  if (Lang='cn') then {中文界面}
    begin
      DBGrid1.Columns[0].Title.Caption := '账号';
      DBGrid1.Columns[1].Title.Caption := '密码';
      DBGrid1.Columns[2].Title.Caption := '类型';
      GroupBox1.Caption := '编缉区';
      Label1.Caption := '用户账号：';
      Label2.Caption := '用户密码：';
      Label3.Caption := '用户类型：';
      Image5.Picture.LoadFromFile(ExeRootPath+'/images/btn_post.jpg');
      Image6.Picture.LoadFromFile(ExeRootPath+'/images/btn_cancle.jpg');
      Image2.Picture.LoadFromFile(ExeRootPath+'/images/btn_add.jpg');
      Image3.Picture.LoadFromFile(ExeRootPath+'/images/btn_del.jpg');
      Image4.Picture.LoadFromFile(ExeRootPath+'/images/btn_edit.jpg');
      LangSysmsgTitle := '系统提示';
      LangEmpty := '您的输入不正确（空值），放弃输入？';
      LangDelSelf := '自己不能删除自己！';
      LangBesure := '删除的用户不能被恢复，是否删除？';
    end
    else  {英文界面}
    begin
      DBGrid1.Columns[0].Title.Caption := 'Username';
      DBGrid1.Columns[1].Title.Caption := 'Password';
      DBGrid1.Columns[2].Title.Caption := 'Type';
      GroupBox1.Caption := 'Edit Area';
      Label1.Caption := 'Username:';
      Label2.Caption := 'Password:';
      Label3.Caption := 'Type:';
      Image5.Picture.LoadFromFile(ExeRootPath+'/images/btn_post_en.jpg');
      Image6.Picture.LoadFromFile(ExeRootPath+'/images/btn_cancle_en.jpg');
      Image2.Picture.LoadFromFile(ExeRootPath+'/images/btn_add_en.jpg');
      Image3.Picture.LoadFromFile(ExeRootPath+'/images/btn_del_en.jpg');
      Image4.Picture.LoadFromFile(ExeRootPath+'/images/btn_edit_en.jpg');
      LangSysmsgTitle := 'System Message';
      LangEmpty := 'Can not be a empty value.';
      LangDelSelf := 'You can not delete yourselft.';
      LangBesure := 'can not restore user if you delete them, be sure?';
    end;
end;

end.