unit10.~pas

简单的一个computer系统

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: 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
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
begin
 dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Clear;
  dm.ADOQuery7.SQL.Add('select * from fk');
  dm.ADOQuery7.Open;

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

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

 if (self.CheckBox1.Checked=false) and
     (self.CheckBox2.Checked=false) and
     (self.CheckBox3.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  ';
      sqlstr:=sqlstr+'1=1';
  end;

  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='select * from fk '+sqlstr;
  dm.ADOQuery7.Open;

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

procedure TForm10.Button3Click(Sender: TObject);
begin
if self.Edit1.Text='' then
begin
  showmessage('为空');
  exit;
end;
  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='select * from fk where 合同编号='+self.Edit1.Text;
  dm.ADOQuery7.Open;
  if not(dm.ADOQuery7.IsEmpty) then
begin
  showmessage('用户已存在');
  exit;
end;
  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='insert into fk(合同编号,一次付清,银行按揭)values('+self.Edit1.Text+','''+self.Edit2.Text+''','''+self.Edit3.Text+''')';
  dm.ADOQuery7.ExecSQL;
  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='select * from fk';

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

procedure TForm10.Button4Click(Sender: TObject);
begin
dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='delete from fk where 合同编号='+self.Edit1.Text;
  dm.ADOQuery7.ExecSQL;
  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='select * from fk ';
  dm.ADOQuery7.Open;
  self.DBGrid1.DataSource:=dm.DataSource7;
end;

procedure TForm10.Button5Click(Sender: TObject);
begin
try
  dm.ADOConnection1.Open();
  dm.ADOConnection1.BeginTrans;
  dm.ADOQuery7.Close;
  dm.ADOQuery7.SQL.Text:='update fk set 合同编号=合同编号+1 where 一次付清='+self.Edit2.Text;
  dm.ADOQuery7.ExecSQL;

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