www.pudn.com > jiaocaiguanlixitongdaima.rar > OperatorManageUnit.pas

unit OperatorManageUnit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, ADODB, StdCtrls, Buttons, Mask; 
 
type 
  TfrmOperatorManage = class(TForm) 
    GroupBox1: TGroupBox; 
    RadioButton1: TRadioButton; 
    RadioButton2: TRadioButton; 
    RadioButton3: TRadioButton; 
    GroupBox2: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Edit33: TEdit; 
    Edit4: TEdit; 
    MaskEdit1: TMaskEdit; 
    GroupBox3: TGroupBox; 
    CheckBox1: TCheckBox; 
    CheckBox2: TCheckBox; 
    CheckBox3: TCheckBox; 
    CheckBox4: TCheckBox; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    Edit5: TEdit; 
    Label6: TLabel; 
    Edit3: TComboBox; 
    procedure Edit1Exit(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure Edit5Exit(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
    procedure RadioButton1Click(Sender: TObject); 
    procedure RadioButton2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
   // procedure initFrm(); 
    procedure initializefrm(); 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  frmOperatorManage: TfrmOperatorManage; 
 
implementation 
 
uses DataModuleUnit, MainUnit; 
 
{$R *.dfm} 
 
procedure CheckValue(); 
begin 
  if trim(frmOperatorManage.Edit1.Text)='' then 
  begin 
    Application.MessageBox('请输入的操作员!','出错提示',mb_ok); 
    abort; 
  end; 
end; 
//清空输入的内容 
 
procedure TfrmOperatorManage.initializefrm(); 
var 
 i:integer; 
begin 
  for i:=0 to frmOperatorManage.ComponentCount-1 do 
  begin 
      if self.Components[i] is TCustomEdit then 
       (self.Components[i] as TCustomEdit).Text:=''; 
      if self.Components[i] is TCheckBox then 
       (self.Components[i] as TCheckBox).Checked:=false; 
      if self.Components[i] is TComboBox then 
       (self.Components[i] as TComboBox).Text:='请选择'; 
  end; 
end; 
 
procedure TfrmOperatorManage.Edit1Exit(Sender: TObject); 
begin 
   checkValue(); 
   if not frmDataModule.Connection.Connected then 
     frmDataModule.Connection.Open; 
    //查寻操作员 
    with frmDataModule.OperatorQuery do 
      begin 
        SQL.Clear; 
        Parameters.Clear; 
        Parameters.CreateParameter('@operatorID',ftstring,pdinput,8,edit1.Text); 
        SQL.Add('select * from operators where operatorID=:operatorID'); 
        Parameters[0].Value:=Edit1.Text; 
        open; 
      end; 
 
   if frmDataModule.OperatorQuery.RecordCount>0 then 
   begin 
      if radioButton1.Checked then        //新建操作员 
       begin 
        Application.MessageBox('该操作员已存在!','出错提示',mb_ok); 
        Edit1.Focused; 
      end 
      else 
     //显示操作员信息 
      begin 
        with frmDataModule.OperatorQuery do 
        begin 
          edit5.Text:=fieldByName('pwd').AsString;//密码 
          edit2.Text:=fieldByName('Uname').AsString;//姓名 
          edit3.Text:=fieldByName('UnitName').AsString;//所属部门 
          edit4.Text:=fieldByName('OperatorID').AsString;//操作员信息 
          Maskedit1.Text:=FormatDateTime('yyyy-mm-dd',fieldByName('LastTime').Value);//日期 
 
          checkBox1.Checked:=StrToBool(fieldByName('power1').AsString);//管理权 
          checkBox2.Checked:=StrToBool(fieldByName('power2').AsString);//收费权 
          checkBox3.Checked:=StrToBool(fieldByName('power3').AsString);//出入库权 
          checkBox4.Checked:=StrToBool(fieldByName('power4').AsString);//查询权 
        end; 
      end; 
   end 
   else if not radioButton1.Checked then//输入的操作员不存在 
   begin 
      Application.MessageBox('没有找到您输入的操作员!','出错提示',mb_ok); 
      abort; 
      frmDataModule.OperatorQuery.Close; 
   end; 
end; 
 
procedure TfrmOperatorManage.BitBtn1Click(Sender: TObject); 
begin 
  with frmDataModule.OperatorManage do 
  begin 
   Close; 
 
   if radioButton1.Checked then //新建用户 
   begin 
     ProcedureName:='insert_Operators_1'; 
   end 
   else 
   if radioButton2.Checked then //修改信息 
   begin 
     ProcedureName:='update_Operators_1'; 
   end 
   else 
      if radioButton3.Checked then //删除用户 
   begin 
     ProcedureName:='delete_Operators_1'; 
   end; 
     //添加参数 
     Parameters.Clear; 
     Parameters.CreateParameter('@operatorID_1',ftstring,pdinput,8,edit1.Text); 
     if not radioButton3.Checked then 
     begin 
       Parameters.CreateParameter('@pwd_2',ftstring,pdinput,8,edit5.Text); 
       Parameters.CreateParameter('@unitName_3',ftstring,pdinput,8,edit3.Text); 
       Parameters.CreateParameter('@Uname_4',ftstring,pdinput,8,edit2.Text); 
       //showmessage(Parameters[3].Value); 
       if checkBox1.Checked then //管理权 
         Parameters.CreateParameter('@Power1_5',ftstring,pdinput,8,'1') 
       else 
         Parameters.CreateParameter('@Power2_6',ftstring,pdinput,8,'0'); 
 
       if checkBox2.Checked then //收费权 
         Parameters.CreateParameter('@Power2_6',ftstring,pdinput,8,'1') 
       else 
         Parameters.CreateParameter('@Power1_5',ftstring,pdinput,8,'0'); 
 
       if checkBox3.Checked then //出入库权 
         Parameters.CreateParameter('@Power3_7',ftstring,pdinput,8,'1') 
       else 
         Parameters.CreateParameter('@Power3_7',ftstring,pdinput,8,'0'); 
       if checkBox4.Checked then //查询权 
         Parameters.CreateParameter('@Power4_8',ftstring,pdinput,8,'1') 
       else 
         Parameters.CreateParameter('@Power4_8',ftstring,pdinput,8,'0'); 
 
       Parameters.CreateParameter('@WhoOperator_9',ftstring,pdinput,8,frmMain.OperatorInfo.OperatorID); 
     end; 
     ExecProc; 
     Application.MessageBox('操作成功!','操作提示',mb_ok);      
  end; 
 //清空输入的内容 
   {initfrm();  } 
   self.initializefrm; 
end; 
 
procedure TfrmOperatorManage.Edit5Exit(Sender: TObject); 
begin 
  if radiobutton1.Checked then 
  begin 
    Edit4.Text:=frmMain.Settings.LastOperatorID; 
    MaskEdit1.Text:=DateTimetostr(now); 
  end; 
end; 
 
procedure TfrmOperatorManage.BitBtn2Click(Sender: TObject); 
begin 
 close; 
end; 
 
procedure TfrmOperatorManage.RadioButton1Click(Sender: TObject); 
begin 
  edit5.Enabled:=true; 
  self.initializefrm; 
end; 
 
procedure TfrmOperatorManage.RadioButton2Click(Sender: TObject); 
begin 
edit5.Enabled:=false; 
end; 
 
procedure TfrmOperatorManage.FormCreate(Sender: TObject); 
Var 
  units:TADOTable; 
  i:integer; 
begin          //加载所属部门信息 
   units:=TADOTable.Create(nil); 
   units.Connection:=frmDataModule.Connection; 
   units.TableName:='UnitsName'; 
   units.Active:=true; 
   for i:=0 to units.RecordCount-1 do 
   begin 
     edit3.Items.Add(units.Fields[1].Value); 
     units.Next; 
   end; 
   units.Close; 
   units.Free; 
   edit3.Text:='请选择'; 
end; 
 
end.