unit8.pas

利用数据库后SQL台操作的

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Edit6: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Edit7: TEdit;
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Label5: TLabel;
    Label7: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Memo1: TMemo;
    Label8: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
begin
with query1 do
begin
close;
sql.Clear;
sql.add('select * from xiaoshou where id='''+trim(edit1.text)+'''');
open;
end;
if query1.recordcount>0 then
begin
edit1.text:=query1.fieldbyname('id').asstring;
edit2.text:=query1.fieldbyname('name').asstring;
edit3.text:=query1.fieldbyname('provider').asstring;
edit4.text:=query1.fieldbyname('type').asstring;
edit5.text:=query1.fieldbyname('price').asstring;
edit6.text:=query1.fieldbyname('number').asstring;
edit7.text:=query1.fieldbyname('datetime').asstring;
memo1.text:=query1.fieldbyname('beizhu').asstring;
exit;
end
else
showmessage('没有该用户！');
edit1.SetFocus;
with query1 do
begin
close;
sql.Clear;
sql.add('select * from xiaoshou ');
open;
end;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit1.Clear;
end;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
if edit1.text='' then
begin
showmessage('编号不能为空');
edit1.setfocus;
exit;
end;
with query1 do
begin
close;
sql.Clear;
sql.add('select * from xiaoshou where id='''+trim(edit1.text)+'''');
open;
end;
if query1.recordcount>0 then
begin
showmessage('该用户已存在,请重新输入！');
edit1.clear;
edit1.SetFocus;
exit;
end;
with query1 do
begin
close;
sql.clear;
sql.add('insert xiaoshou values(:g,:a,:b,:c,:d,:e,:f,:h)');
parambyname('g').asstring:=edit1.text;
parambyname('a').asstring:=edit2.text;
parambyname('b').asstring:=edit4.text;
parambyname('c').asstring:=edit3.text;
parambyname('d').asstring:=edit5.text;
parambyname('e').asstring:=edit6.text;
parambyname('f').asstring:=edit7.text;
parambyname('h').asstring:=memo1.text;
execsql;
end;
showmessage('添加成功！') ;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from xiaoshou');
open;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
memo1.clear;
edit1.setfocus;






end;
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
if edit1.text='' then
begin
showmessage('编号不能为空');
edit1.SetFocus;
exit;
end;
with query1 do
begin
close;
sql.Clear;
sql.add('select * from xiaoshou where id='''+trim(edit1.text)+'''');
open;
end;
if query1.recordcount=0 then
begin
showmessage('没有此用户，请查证！');
edit1.Clear;
edit1.setfocus;
with query1 do
begin
close;
sql.Clear;
sql.add('select * from xiaoshou ');
open;
end;
exit;
end;

with query1 do
begin
close;
sql.clear;
sql.add('update xiaoshou set name=:a,provider=:b,type=:c,price=:d,number=:e,datetime=:f,beizhu=:h where id=:g');
parambyname('g').asstring:=edit1.text;
parambyname('a').asstring:=edit2.text;
parambyname('b').asstring:=edit3.text;
parambyname('c').asstring:=edit4.text;
parambyname('d').asstring:=edit5.text;
parambyname('e').asstring:=edit6.text;
parambyname('f').asstring:=edit7.text;
parambyname('h').asstring:=memo1.text;
execsql;
end;
showmessage('修改已保存！') ;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from xiaoshou');
open;
edit1.setfocus;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
memo1.clear;
end;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('编号不能为空！');
edit1.SetFocus;
exit;
end;
if application.MessageBox('确实要删除次数据吗？','提示',mb_yesno)=idyes then
 begin
with query1 do
begin
close;
sql.Clear;
sql.add('delete from xiaoshou where id='''+trim(edit1.text)+'''');
execsql;
end;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from xiaoshou');
open;
end;

edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
memo1.clear;
end
else
exit;
end;




procedure TForm8.Button4Click(Sender: TObject);
begin
close;
end;

end.