operator.pas

这是用delphi开发的一个物资管理信息系统

unit operator;

interface

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

type
  Toperatorfrm = class(TForm)
    operator_ds1: TDataSource;
    operator_cds1: TClientDataSet;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    operatorlb: TLabel;
    namelb: TLabel;
    sexlb: TLabel;
    level1lb: TLabel;
    phonelb: TLabel;
    addresslb: TLabel;
    Label1: TLabel;
    nameed: TEdit;
    sexed: TComboBox;
    level1ed: TComboBox;
    phoneed: TEdit;
    addressed: TEdit;
    Image1: TImage;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure operator_idedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure phoneedKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
   operator:Toperator;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  operatorfrm: Toperatorfrm;

implementation

uses main, datamodule;
 { var
    operatorid:string;  }

{$R *.dfm}

procedure Toperatorfrm.Button1Click(Sender: TObject);
var
 selstr:string;
begin

selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';

operator_cds1.Data :=operator.AllOperators(selstr);

end;

procedure Toperatorfrm.Button2Click(Sender: TObject);
var
 instr,selstr:string;
begin

if  (nameed.Text  ='')or(label1.Caption ='')  then
begin
showmessage('操作员ID号和姓名不能为空！');
exit;
end;
  if  operator.OperatorRec(label1.Caption  ) then
   begin
    showmessage('该操作员的ID号已经存在，请重新输入！');
    EXIT;
   end;

instr:='insert into operator_info(operator_id,name,sex,level1,'
+'phone,address)values('''+label1.Caption  +''','''+nameed.Text+''','''+sexed.Text+''','
+''''+level1ed.Text+''','''+phoneed.Text+''','''+addressed.Text+''')';
operator.InsertOperator(instr);

selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
operator_cds1.Data:=operator.AllOperators(selstr) ;
  nameed.Text :='';
  sexed.Text :='';
  level1ed.Text :='';
  phoneed.Text :='';
  addressed.Text :='';
showmessage('保存完毕！');

end;


procedure Toperatorfrm.DBGrid1CellClick(Column: TColumn);
begin

label1.Caption  :=DBGrid1.Fields[0].AsString;
nameed.Text :=DBGrid1.Fields[1].AsString;
sexed.Text :=DBGrid1.Fields[2].AsString;
level1ed.Text :=DBGrid1.Fields[3].AsString;
phoneed.Text :=DBGrid1.Fields[4].AsString;
addressed.Text :=DBGrid1.Fields[5].AsString;

end;



procedure Toperatorfrm.Button3Click(Sender: TObject);
var
 selstr,modstr:string;
begin

if application.MessageBox('要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin

if  (nameed.Text='')or(label1.Caption  ='') then
begin
showmessage('操作员ID号和姓名不能修改为空！');
exit;
end;

modstr:='update operator_info set name='''+nameed.Text+''',sex='''+sexed.Text+''','
+'level1='''+level1ed.Text+''',phone='''+phoneed.Text+''',address='''+addressed.Text+''' '
+'where operator_id='''+label1.Caption  +'''';
operator.UpdateOperator(modstr);

selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
operator_cds1.Data:=operator.AllOperators(selstr);
  nameed.Text :='';
    sexed.Text :='';
  level1ed.Text :='';
  phoneed.Text :='';
  addressed.Text :='';
showmessage('修改成功！');
end;

end;

procedure Toperatorfrm.Button4Click(Sender: TObject);
var
 delstr,selstr:string;
begin

if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin

if   (operator.OperatorRec(label1.Caption  )=false) then
begin
showmessage('该操作员ID号不存在，删除失败！');
exit;
end;

delstr:='delete from operator_info where operator_id='''+label1.Caption  +'''';
operator.DeleteOperator(delstr);

selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
operator_cds1.Data :=operator.AllOperators(selstr);
showmessage('删除成功！');

nameed.Text :='';sexed.Text :='';
level1ed.Text :='';phoneed.Text :='';addressed.Text :='';

end;
end;

procedure Toperatorfrm.FormActivate(Sender: TObject);
begin

operator:=Toperator.create;
end;

procedure Toperatorfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

operator.Free;
end;

procedure Toperatorfrm.BitBtn1Click(Sender: TObject);
begin
  mainfrm.show;
  operatorfrm.Close ;
end;

procedure Toperatorfrm.operator_idedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   nameed.SetFocus ;
end;

procedure Toperatorfrm.phoneedKeyPress(Sender: TObject; var Key: Char);
var
   m:boolean;
  begin
   m:=(key <#8)or(key>#8) and(key <#48)or(key>#57);
   if m then key:=#0;

end;

procedure Toperatorfrm.BitBtn2Click(Sender: TObject);
 var
  s,m: String;
  i: integer;
begin
  With DataMOD.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(operator_id) as ss From operator_info  ');
    Open;
  end;
  If Datamod.ADOQuery1.FieldByName('ss').Value = null then
    s := '01'
  else
  begin
    m:= Trim(Datamod.ADOQuery1.FieldByName('ss').Value) ;
    i:= StrToInt(Trim(Copy(m,1,2))) ;
    if i<9 then
      s:= s + '0'+InttoStr(i +1)
    else if i<99 then
      s:= InttoStr(i +1)
end;
   label1.Caption :=s;
   nameed.Text :='';sexed.Text :='';
 level1ed.Text :='';phoneed.Text :='';addressed.Text :='';
   end;
procedure Toperatorfrm.Button1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Toperatorfrm.Button1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

procedure Toperatorfrm.BitBtn2MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

procedure Toperatorfrm.BitBtn2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Toperatorfrm.Button2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Toperatorfrm.Button2MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

procedure Toperatorfrm.Button3MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

procedure Toperatorfrm.Button3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Toperatorfrm.Button4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Toperatorfrm.Button4MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

end.