usermanger.~pas

彩票销售系统

unit usermanger;

interface

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

type
  TUserMangerForm = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    useredit_sp: TADOStoredProc;
    userlist: TADOQuery;
    userlistFUserId: TAutoIncField;
    userlistFUserName: TStringField;
    userlistFUserPassWord: TStringField;
    userlistFUserPower: TStringField;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
    UserId:integer;
  public
    { Public declarations }
  end;

var
  UserMangerForm: TUserMangerForm;

implementation
  uses NumberManger,HardNumber;
{$R *.dfm}

procedure TUserMangerForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TUserMangerForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TUserMangerForm.FormShow(Sender: TObject);
begin
  userlist.Close;
  userlist.open;
end;

procedure TUserMangerForm.DBGrid1DblClick(Sender: TObject);
begin
  if userlist.Active then
  begin
    edit1.Text:=userlist.Fields[1].Value;
    edit2.Text:=userlist.Fields[2].Value;
    combobox1.Text:=userlist.Fields[3].Value;
    UserId:=userlist.Fields[0].Value;
  end;
end;

procedure TUserMangerForm.BitBtn1Click(Sender: TObject);
begin
  useredit_sp.Close;
  useredit_sp.Parameters[1].value:=UserId;
  useredit_sp.Parameters[2].value:=Edit1.text;
  useredit_sp.Parameters[3].value:=encryptstr(Edit2.text,'GetIdeSerialNumber');
  useredit_sp.Parameters[4].value:=Combobox1.text;
  useredit_sp.Parameters[5].value:=dlUserMain;
  useredit_sp.Parameters[6].value:=Null;
  useredit_sp.Prepared;
  useredit_sp.ExecProc;
  showmessage(useredit_sp.Parameters[6].value);
  useredit_sp.Close;
  userlist.Close;
  userlist.open;
end;

procedure TUserMangerForm.BitBtn3Click(Sender: TObject);
begin
  UserId:=0;
end;

end.