user1unit.pas

完整的ic卡管理软件

unit user1Unit;

interface

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

type
  Tuser1Form = class(TForm)
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinMaskEdit2: TbsSkinMaskEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinMessage1: TbsSkinMessage;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinButton3: TbsSkinButton;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinMaskEdit3: TbsSkinMaskEdit;
    bsSkinMaskEdit4: TbsSkinMaskEdit;
    bsSkinComboBox2: TbsSkinComboBox;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user1Form: Tuser1Form;

implementation
uses
 datamodel, userUnit;

{$R *.dfm}

procedure Tuser1Form.bsSkinButton2Click(Sender: TObject);
begin
close;

end;

procedure Tuser1Form.bsSkinButton1Click(Sender: TObject);
var
 i:integer;
begin

    if  bsSkinEdit1.Text='' then
     begin
      user1form.bsSkinMessage1.MessageDlg('用户名不能为空，请重新输入用户名!',mtError,[mbok],0);
      bsSkinEdit1.SetFocus;
      exit;
     end;
    if bsSkinMaskEdit1.Text='' then
     begin
       user1form.bsSkinMessage1.MessageDlg('密码不能为空!',mtError,[mbok],0);
       exit;
     end;
    if bsSkinMaskEdit1.Text<>bsSkinMaskEdit2.Text then
     begin
      user1form.bsSkinMessage1.MessageDlg('密码不一致!',mtError,[mbok],0);
      bsSkinMaskEdit1.SetFocus;
      exit;
     end;
    if bsSkinComboBox1.Text='' then
    begin
      user1form.bsSkinMessage1.MessageDlg('请选择用户类型!',mtError,[mbok],0);
      bsSkinComboBox1.SetFocus;
      exit;
    end;
    with datamodule1.userQuery do
     begin
        close;
        sql.Clear;
        sql.Add('select * from userMIS where userid=:a');
        Parameters[0].Value:= bsSkinEdit1.Text;
        open;
     end;
    if datamodule1.userQuery.Eof then                     //判断用户名是否重复
      begin
         with DataModule1.userTable do
         begin
          edit;
          append;
          FieldByName('userid').AsString:= bsSkinEdit1.Text;
          FieldByName('Pword').AsString:=bsSkinMaskEdit1.Text;
          FieldByName('lever1').AsInteger:=bsSkinComboBox1.ItemIndex;
          post;
          end;
          user1form.bsSkinMessage1.MessageDlg('保存成功!',mtInformation,[mbok],0);
      end
      else
        begin
          user1form.bsSkinMessage1.MessageDlg('用户名已存在，请重新输入用户名',mtInformation,[mbok],0);
          bsSkinEdit1.Text:='';
        end;
    bsSkinEdit1.Text:='';
    bsSkinMaskEdit1.Text:='';
    bsSkinMaskEdit2.Text:='';
end;

procedure Tuser1Form.bsSkinButton5Click(Sender: TObject);
begin
close;
end;

procedure Tuser1Form.bsSkinButton3Click(Sender: TObject);
begin
  with datamodule1.userQuery do
     begin
        close;
        sql.Clear;
        sql.Add('select * from userMIS where userid=:a');
        Parameters[0].Value:= bsSkinEdit2.Text;
        open;
        bsskinmaskedit3.Text:=fieldByName('Pword').AsString;
        bsskinmaskedit4.Text:=fieldByName('pword').AsString;
        bsSkinComboBox2.ItemIndex:=fieldbyname('lever1').AsInteger;
     end;
end;

procedure Tuser1Form.bsSkinButton4Click(Sender: TObject);
begin
 if  bsSkinEdit2.Text='' then
     begin
      user1form.bsSkinMessage1.MessageDlg('用户名不能为空，请重新输入用户名!',mtError,[mbok],0);
      bsSkinEdit2.SetFocus;
      exit;
     end;
    if bsSkinMaskEdit3.Text='' then
     begin
       user1form.bsSkinMessage1.MessageDlg('密码不能为空!',mtError,[mbok],0);
       bsSkinMaskEdit3.SetFocus;
       exit;
     end;
    if bsSkinMaskEdit3.Text<>bsSkinMaskEdit4.Text then
     begin
      user1form.bsSkinMessage1.MessageDlg('密码不一致!',mtError,[mbok],0);
      bsSkinMaskEdit4.SetFocus;
      exit;
     end;
    if bsSkinComboBox2.Text='' then
    begin
      user1form.bsSkinMessage1.MessageDlg('请选择用户类型!',mtError,[mbok],0);
      bsSkinComboBox2.SetFocus;
      exit;
    end;
    with datamodule1.updateQuery do
    begin
     close;
     sql.Clear;
     sql.Add('update userMIS set pword=:a , lever1=:b where userid=:c');
    // sql.Add('  );
     parameters[0].Value:=bsskinMaskEDit3.Text;
     parameters[1].Value:=bsSkinComboBox2.ItemIndex;
     parameters[2].Value:= bsskinedit2.Text;
     ExecSQL;
     end;
    user1form.bsSkinMessage1.MessageDlg('修改成功!',mtError,[mbok],0);

end;

procedure Tuser1Form.FormShow(Sender: TObject);
begin
datamodule1.userTable.Open;
end;

procedure Tuser1Form.bsSkinButton6Click(Sender: TObject);
begin
 with datamodule1.userQuery do
  begin
     close;
     sql.Clear;
     sql.Add('delete from userMIS where userid=:a');
     parameters[0].Value:=bsskinedit2.Text;
     EXECsql;
  end;
    bsskinedit2.Text:='';
    bsSkinMaskEdit3.Text:='';
    bsSkinMaskEdit4.Text:='';
    user1form.bsSkinMessage1.MessageDlg('删除成功!',mtError,[mbok],0);
end;

end.