operator.pas

一个版本不错的仓库信息管理系统.可以用来做毕业设计.用dephi平台,sql数据库

unit operator;

interface

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

type
  Toperatorfrm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    operator_ds1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    namelb: TLabel;
    sexlb: TLabel;
    level1lb: TLabel;
    phonelb: TLabel;
    addresslb: TLabel;
    nameed: TEdit;
    phoneed: TEdit;
    addressed: TEdit;
    operator_cds1: TClientDataSet;
    sexed: TComboBox;
    level1ed: TComboBox;
    Button5: TButton;
    idlb: TLabel;
    ided: TEdit;
    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 Button5Click(Sender: TObject);
  private
   operator:Toperator;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  operatorfrm: Toperatorfrm;

implementation

{$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  (ided.Text='')  then
begin
showmessage('操作员ID号不能为空！');
exit;
end;

if   operator.OperatorRec(ided.text)=true  then
begin
showmessage('该操作员ID号已存在，保存失败！');
exit;
end;

if  (nameed.Text='')  then
begin
showmessage('姓名不能为空！');
exit;
end;

//通过插入操作将一条新的操作员信息记录插入操作员信息表中
instr:='insert into operator_info(operator_id,name,sex,level1,'
+'phone,address)values('''+ided.text+''','''+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) ;
showmessage('保存完毕！');

end;


procedure Toperatorfrm.DBGrid1CellClick(Column: TColumn);
begin


//将选中的操作员信息数据赋值给相应文本框显示出来
ided.Text :=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
//判断ID号和姓名是否为空
if  (ided.Text='')  then
begin
showmessage('操作员ID号不能为空！');
exit;
end;

if   operator.OperatorRec(ided.text)=true  then
begin
showmessage('该操作员ID号已存在，修改失败！');
exit;
end;

if  (nameed.Text='')  then
begin
showmessage('姓名不能为空！');
exit;
end;

//执行修改操作过程
modstr:='update operator_info set operator_id='''+ided.text+''',name='''+nameed.Text+''',sex='''+sexed.Text+''','
+'level1='''+level1ed.Text+''',phone='''+phoneed.Text+''',address='''+addressed.Text+''' '
+'where operator_id='''+ided.text+'''';
operator.UpdateOperator(modstr);

//更新修改后的数据显示
selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
operator_cds1.Data:=operator.AllOperators(selstr);
showmessage('修改成功！');
end;

end;

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

if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//删除时根据操作员ID号来进行，这里判断输入的ID号是否为空
if ided.text=''  then
begin
showmessage('请输入要删除操作员的ID号！');
exit;
end;
//查看要删除的记录数据库中是否存在
if   operator.OperatorRec(ided.text)=false  then
begin
showmessage('该操作员ID号不存在，删除失败！');
exit;
end;
//根据操作员ID号删除该记录信息
delstr:='delete from operator_info where operator_id='''+ided.text+'''';
operator.DeleteOperator(delstr);
//更新删除后的数据显示
selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
operator_cds1.Data :=operator.AllOperators(selstr);
showmessage('删除成功！');
//删除成功后提示用户，并清空文本框的所有信息
ided.text:='';nameed.Text :='';sexed.Text :='';
level1ed.Text :='';phoneed.Text :='';addressed.Text :='';

end;
end;

procedure Toperatorfrm.FormActivate(Sender: TObject);
var
selstr:string;
begin
//将类Toperator实例化
operator:=Toperator.create;
selstr:='select operator_id 操作员ID,name 姓名,sex 性别,level1 级别,'
+'phone 联系电话,address 住址 from operator_info';
//将所有操作员的信息显示出来
operator_cds1.Data :=operator.AllOperators(selstr);
end;

procedure Toperatorfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//释放类Toperator的实例
operator.Free;
end;

procedure Toperatorfrm.Button5Click(Sender: TObject);
begin
operatorfrm.Close;
end;

end.