uuser.pas

商场销售信息系统只要用于小商场的销售管理

unit Uuser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, ComCtrls, bsSkinCtrls, bsSkinBoxCtrls,
  StdCtrls, Mask;

type
  TfrmUser = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    lvUser: TbsSkinListView;
    edtName: TbsSkinEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    edtPwd: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    cbQx: TbsSkinComboBox;
    bsSkinStdLabel4: TbsSkinStdLabel;
    cbGt: TbsSkinComboBox;
    btnAdd: TbsSkinButton;
    btnDel: TbsSkinButton;
    btnClose: TbsSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPwdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUser: TfrmUser;
  GtList:Tstrings;
implementation
uses upublic,comobj,umain;
{$R *.dfm}

procedure TfrmUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
GtList.free;
action:=cafree;
frmuser:=nil;
end;

procedure TfrmUser.btnCloseClick(Sender: TObject);
begin
close;
end;

procedure TfrmUser.FormCreate(Sender: TObject);
begin
//cbGt
GtList:=Tstringlist.create;
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tGt order by gtid' ,conn,1,1);
while not rs.eof do
begin
  GtList.Add(rs.fields.Item['gtdm'].value);
  cbgt.Items.Add(rs.fields.Item['gtmc'].value);
  rs.MoveNext;
  application.ProcessMessages;
end;
rs.close;

rs.open('select * from tuser order by userid' ,conn,1,1);
while not rs.eof do
begin
  with lvuser.Items.Add do
  begin
    caption:=rs.fields.Item['username'].value;
    subitems.Add('********');
    case rs.fields.Item['level'].value of
      0:subitems.Add('营业员');
      1:subitems.Add('部门经理');
      2:subitems.Add('总经理');
      3:subitems.Add('系统管理员');
    end;
    subitems.Add('');
    subitems.Add(rs.fields.Item['gtdm'].value);
  end;
  rs.MoveNext;
  application.ProcessMessages;
end;
rs.close;
rs:=unassigned;
end;

//增加
procedure TfrmUser.btnAddClick(Sender: TObject);
begin
if trim(edtname.Text)='' then exit;
if (cbQx.ItemIndex=0) and (trim(cbgt.Text)='') then
begin
  frmmain.bsmessage.MessageDlg('营业员必须选择柜台名称!',mtInformation,[mbok],0);
  cbgt.SetFocus;
  exit;
end;
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tUser order by Userid',conn,1,3);
rs.addnew;
rs.fields.Item['username'].value:=trim(edtname.text);
if  trim(edtpwd.text)<>'' then
  rs.fields.Item['pass'].value:=trim(edtpwd.text);
rs.fields.Item['Level'].value:=cbQx.ItemIndex;

if (cbQx.ItemIndex=0) and (trim(cbgt.Text)<>'') then
   rs.fields.Item['gtdm'].value:=strtoint(GtList.Strings[cbQx.ItemIndex]);
rs.update;
rs.close;
rs:=unassigned;
frmmain.bsmessage.MessageDlg('增加用户成功!',mtInformation,[mbok],0);
with lvuser.Items.Add do
begin
    caption:=trim(edtname.text);

    subitems.Add(trim(edtpwd.text));
    subitems.Add(trim(cbQx.text));
    if (cbQx.ItemIndex>0) then
      subitems.Add('')
    else
      subitems.Add('********');
    if (cbQx.ItemIndex>0) then
      subitems.Add('')
    else
      subitems.Add(GtList.Strings[cbQx.ItemIndex]);
  end;
  edtname.text:='';
  edtpwd.text:='';
end;

procedure TfrmUser.btnDelClick(Sender: TObject);
begin
if lvuser.Selected=nil then exit;
if frmmain.bsmessage.MessageDlg('真的要删除所选用户?',mtInformation,mbOKCancel,0)=idok then
begin
  conn.execute('delete from tuser where username='+yinhao+lvuser.Selected.Caption+yinhao);
  frmmain.bsmessage.MessageDlg('删除成功!',mtInformation,[mbok],0);
  lvuser.Selected.Delete;
end;
end;

procedure TfrmUser.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edtpwd.SetFocus;
end;

procedure TfrmUser.edtPwdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then cbqx.SetFocus;
end;

end.