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.