usermanager.pas

delphi 生产管理系统 sql2000位后台数据库

unit usermanager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DB, ADODB, ExtCtrls, DBGridEh, Grids;

type
  TFrm_usermanager = class(TForm)
    QOP: TADOQuery;
    DSQOP: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    XH3: TComboBox;
    bsSkinEdit1: TEdit;
    bsSkinEdit4: TEdit;
    Btnadd3: TButton;
    btnmod3: TButton;
    btnsave3: TButton;
    btncancel3: TButton;
    btndelete3: TButton;
    btnreturn3: TButton;
    DBGridEh3: TDBGridEh;
    procedure Btnadd3Click(Sender: TObject);
    procedure btnmod3Click(Sender: TObject);
    procedure btncancel3Click(Sender: TObject);
    procedure btnreturn3Click(Sender: TObject);
    procedure btndelete3Click(Sender: TObject);
    procedure btnsave3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh3TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_usermanager: TFrm_usermanager;

implementation

uses share, Main;

{$R *.dfm}

procedure TFrm_usermanager.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) or (Message.CmdType = SC_RESTORE)then
     WindowState:=wsMaximized
  else
    inherited;
end;

procedure TFrm_usermanager.Btnadd3Click(Sender: TObject);
begin
//*****************初始化按钮*************
  btnadd3.Enabled:=false;
  btnsave3.Enabled:=true;
  btncancel3.Enabled:=true;
  btnmod3.Enabled:=false;
  btndelete3.Enabled:=false;
  bsskinedit1.Clear;
  bsskinedit4.Clear;
  bsskinedit1.SetFocus;
  share.btn_BS:=0;
end;

procedure TFrm_usermanager.btnmod3Click(Sender: TObject);
begin
//*****************初始化按钮*************
  if Qop.IsEmpty then exit;
  btnadd3.Enabled:=false;
  btnsave3.Enabled:=true;
  btncancel3.Enabled:=true;
  btnmod3.Enabled:=false;
  btndelete3.Enabled:=false;

  bsskinedit1.Text:=Qop.FieldValues['name'];
  XH3.Itemindex:=Qop.FieldValues['pop'];
  bsskinedit4.Text:=Qop.FieldValues['pass'];
  share.btn_BS:=1;
end;

procedure TFrm_usermanager.btncancel3Click(Sender: TObject);
begin
  btnadd3.Enabled:=true;
  btnsave3.Enabled:=false;
  btncancel3.Enabled:=false;
  btnmod3.Enabled:=true;
  btndelete3.Enabled:=true;
  bsskinedit1.SetFocus;
  bsskinedit1.Clear;
  bsskinedit4.Clear;
end;

procedure TFrm_usermanager.btnreturn3Click(Sender: TObject);
begin
close;
end;

procedure TFrm_usermanager.btndelete3Click(Sender: TObject);
begin
  if Qop.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该用户么？'),'提示',65)=IDok then
  Qop.Delete;
end;

procedure TFrm_usermanager.btnsave3Click(Sender: TObject);
begin
 if share.btn_BS=0 then
 begin
   Qop.First;
   if Qop.Locate('name',trim(bsskinEdit1.Text),[]) then
     begin
       messagebox(handle,pchar('新用户已经存在,不可重复!'),'提示',64);
       exit;
     end;
   with Qop do
     begin
       append;
       FieldValues['name']:=bsskinedit1.Text;
       FieldValues['pass']:=bsskinedit4.Text;
       FieldValues['pop']:=XH3.ItemIndex;
       Post;
     end;    // with
   end;

   if share.btn_BS=1 then
     begin
    with Qop do
     begin
       edit;
       FieldValues['name']:=bsskinedit1.Text;
       FieldValues['pass']:=bsskinedit4.Text;
       FieldValues['pop']:=XH3.ItemIndex;
       Post;
     end;    // with
     end;
     btnadd3.Enabled:=true;
     btnsave3.Enabled:=false;
     btncancel3.Enabled:=false;
     btnmod3.Enabled:=true;
     btndelete3.Enabled:=true;
     bsskinedit1.Clear;
     bsskinedit1.SetFocus; 
     bsskinedit4.Clear;
     messagebox(handle,pchar('保存成功!'),'提示',64);
end;

procedure TFrm_usermanager.FormShow(Sender: TObject);
begin
  runsql(Qop,'select * from UserID order by name','open');
end;

procedure TFrm_usermanager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Frm_usermanager:=nil;//先
  Action:=cafree;//后
  frm_main.rzfieldStatus2.Caption :='主界面';
end;

procedure TFrm_usermanager.DBGridEh3TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if Qop.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: Qop.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: Qop.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

end.