unit9.~pas

简单的一个computer系统

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit3, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  TForm9 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Clear;
  dm.ADOQuery6.SQL.Add('select * from ygb');
  dm.ADOQuery6.Open;

 self.DBGrid1.DataSource:=dm.DataSource6;
end;

procedure TForm9.Button2Click(Sender: TObject);
var
sqlstr:string;
begin

 if (self.CheckBox1.Checked=false) and
     (self.CheckBox2.Checked=false) and
     (self.CheckBox3.Checked=false) and
     (self.CheckBox4.Checked=false) and
     (self.CheckBox5.Checked=false) and
     (self.CheckBox6.Checked=false) and
     (self.CheckBox7.Checked=false) then
    sqlstr:=''
  else
  begin
    sqlstr:='where  ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'员工编号='''+trim(self.Edit1.Text)+''' and  ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'姓名='''+self.Edit2.Text+''' and  ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'性别='''+self.Edit3.Text+''' and  ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'联系电话='''+self.Edit4.Text+''' and ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'年龄='''+self.Edit5.Text+''' and ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'工资='''+self.Edit6.Text+''' and ';
    if self.CheckBox1.Checked=true then
      sqlstr:=sqlstr+'职位='''+self.Edit7.Text+''' and ';
      sqlstr:=sqlstr+'1=1';
  end;

  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='select * from ygb '+sqlstr;
  dm.ADOQuery6.Open;

  self.DBGrid1.DataSource:=dm.DataSource6;
end;

procedure TForm9.Button3Click(Sender: TObject);
begin
if self.Edit1.Text='' then
begin
  showmessage('为空');
  exit;
end;
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='select * from ygb where 员工编号='+self.Edit1.Text;
  dm.ADOQuery6.Open;
  if not(dm.ADOQuery6.IsEmpty) then
begin
  showmessage('用户已存在');
  exit;
end;
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='insert into ygb(员工编号,姓名,性别,联系电话,年龄,工资,职位)values('+self.Edit1.Text+','''+self.Edit2.Text+''','''+self.Edit3.Text+''','''+self.Edit4.Text+''','''+self.Edit5.Text+''','''+self.Edit6.Text+''','''+self.Edit7.Text+''')';
  dm.ADOQuery6.ExecSQL;
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='select * from ygb';

  self.DBGrid1.DataSource:=dm.DataSource6;
end;

procedure TForm9.Button4Click(Sender: TObject);
begin
dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='delete from ygb where 员工编号='+self.Edit1.Text;
  dm.ADOQuery6.ExecSQL;
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='select * from ygb ';
  dm.ADOQuery6.Open;
  self.DBGrid1.DataSource:=dm.DataSource6;
end;

procedure TForm9.Button5Click(Sender: TObject);
begin
try
  dm.ADOConnection1.Open();
  dm.ADOConnection1.BeginTrans;
  dm.ADOQuery6.Close;
  dm.ADOQuery6.SQL.Text:='update ygb set 员工编号=员工编号+1 where 年龄='+self.Edit5.Text;
  dm.ADOQuery6.ExecSQL;

  dm.ADOConnection1.CommitTrans;
  showmessage('成功');
  except
  dm.ADOConnection1.RollbackTrans;
  showmessage('失败');
end;
end;
end.