operatormanageunit.pas

是一个Delphi的教材管理系统,内容很全面详细

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.