ope.pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit ope;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  Topeform = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure initiate;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  opeform: Topeform;

implementation

uses main;

{$R *.dfm}

procedure Topeform.initiate;
begin
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
  edit4.text:='';
  edit1.setfocus;
end;

procedure Topeform.FormActivate(Sender: TObject);
begin
  initiate;
  edit4.enabled:=false;
  radiobutton3.Checked:=true;
  i:=3;
end;

procedure Topeform.Edit1Exit(Sender: TObject);
var
  adodataset1:tadodataset;
begin
  if edit1.text<>''then
  begin
    adodataset1:=tadodataset.create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.CommandType:=cmdtext;
    adodataset1.commandtext:='select * from operator where name=:user';
    adodataset1.close;
    adodataset1.parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='user';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.Active:=true;
    if adodataset1.recordset.recordcount=1 then
    begin
      if radiobutton1.checked=true then
      begin
        application.MessageBox('该用户已存在,请重新输入!','提示信息',mb_ok);
        initiate;
      end
      else
      begin
        edit2.text:=adodataset1.fieldbyname('pass').AsString;
        edit3.text:=adodataset1.FieldByName('units').AsString;
        edit4.text:=datetostr(adodataset1.fieldbyname('stamp').asdatetime);
        if adodataset1.FieldByName('right_1').asstring='T' then
          checkbox1.checked:=true
        else
          checkbox1.checked:=false;
        if adodataset1.FieldByName('right_2').asstring='T' then
          checkbox2.checked:=true
        else
          checkbox2.checked:=false;
        if adodataset1.FieldByName('right_3').asstring='T' then
          checkbox3.checked:=true
        else
          checkbox3.checked:=false;
        edit2.setfocus;
      end;
    end
    else
    begin
      if radiobutton2.checked or radiobutton3.checked then
      begin
        application.messagebox('该用户不存在,请重新输入:(','提示信息',mb_ok);
        initiate;
      end
      else
      begin
        edit2.setfocus;
        edit4.text:=datetostr(date());
      end;
    end;
    adodataset1.active:=false;
  end;
end;

procedure Topeform.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Topeform.Button2Click(Sender: TObject);
begin
  initiate;
end;

procedure Topeform.Button1Click(Sender: TObject);
var
  adodataset1:tadoquery;
begin
  adodataset1:=tadoquery.create(self);
  adodataset1.connection:=adoconnection1;
  adodataset1.close;
  adodataset1.SQL.clear;
  if radiobutton1.checked then
  begin
    adodataset1.sql.add('insert into operator values (:s0,:s1,:s2,:s3,:s4,:s5,:s6,:s7)');
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftstring;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=edit2.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[2].Name:='s2';
    adodataset1.parameters[2].datatype:=ftstring;
    adodataset1.parameters[2].direction:=pdinput;
    adodataset1.parameters[2].value:=edit3.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[3].Name:='s3';
    adodataset1.parameters[3].datatype:=ftstring;
    adodataset1.parameters[3].direction:=pdinput;
    if checkbox1.checked then
      adodataset1.parameters[3].value:='T'
    else
      adodataset1.parameters[3].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[4].Name:='s4';
    adodataset1.parameters[4].datatype:=ftstring;
    adodataset1.parameters[4].direction:=pdinput;
    if checkbox2.checked then
      adodataset1.parameters[4].value:='T'
    else
      adodataset1.parameters[4].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[5].Name:='s5';
    adodataset1.parameters[5].datatype:=ftstring;
    adodataset1.parameters[5].direction:=pdinput;
    if checkbox3.checked then
      adodataset1.parameters[5].value:='T'
    else
      adodataset1.parameters[5].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[6].Name:='s6';
    adodataset1.parameters[6].datatype:=ftstring;
    adodataset1.parameters[6].direction:=pdinput;
    adodataset1.parameters[6].value:=username;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[7].Name:='s7';
    adodataset1.parameters[7].datatype:=ftdate;
    adodataset1.parameters[7].direction:=pdinput;
    adodataset1.parameters[7].value:=date();
    adodataset1.ExecSQL;
  end
  else if radiobutton2.checked then
  begin
    adodataset1.SQL.add('delete from operator where name=:s0');
    adodataset1.Parameters.clear;
    adodataset1.Parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.ExecSQL;
  end
  else
  begin
    adodataset1.sql.add('update operator set pass=:s0,units=:s1,right_1=:s2,right_2=:s3,right_3=:s4,opers=:s5,stamp=:s6 where name=:s7');
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit2.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftstring;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=edit3.text;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[2].Name:='s2';
    adodataset1.parameters[2].datatype:=ftstring;
    adodataset1.parameters[2].direction:=pdinput;
    if checkbox1.checked then
      adodataset1.parameters[2].value:='T'
    else
      adodataset1.parameters[2].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[3].Name:='s3';
    adodataset1.parameters[3].datatype:=ftstring;
    adodataset1.parameters[3].direction:=pdinput;
    if checkbox2.checked then
      adodataset1.parameters[3].value:='T'
    else
      adodataset1.parameters[3].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[4].Name:='s4';
    adodataset1.parameters[4].datatype:=ftstring;
    adodataset1.parameters[4].direction:=pdinput;
    if checkbox3.checked then
      adodataset1.parameters[4].value:='T'
    else
      adodataset1.parameters[4].value:='F';
    adodataset1.parameters.addparameter;
    adodataset1.parameters[5].Name:='s5';
    adodataset1.parameters[5].datatype:=ftstring;
    adodataset1.parameters[5].direction:=pdinput;
    adodataset1.parameters[5].value:=username;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[6].Name:='s6';
    adodataset1.parameters[6].datatype:=ftdatetime;
    adodataset1.parameters[6].direction:=pdinput;
    adodataset1.parameters[6].value:=date();
    adodataset1.parameters.addparameter;
    adodataset1.parameters[7].Name:='s7';
    adodataset1.parameters[7].datatype:=ftstring;
    adodataset1.parameters[7].direction:=pdinput;
    adodataset1.parameters[7].value:=edit1.text;
    adodataset1.ExecSQL;
  end;
  adodataset1.close;
  application.messagebox('操作成功:)','提示信息',mb_ok);
  initiate;
  checkbox1.checked:=false;
  checkbox2.checked:=false;
  checkbox3.Checked:=false;
end;

end.