unit Unit6;

interface

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

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

var
  Form6: TForm6;

implementation

{$R *.dfm}


procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
begin
with query1 do
begin
close;
sql.Clear;
sql.add('select * from caigou 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;
exit;
end
else
showmessage('沒有該用戶！');
edit1.SetFocus;
with query1 do
begin
close;
sql.Clear;
sql.add('select * from caigou ');
open;
end;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit1.Clear;
end;
end;













procedure TForm6.FormCreate(Sender: TObject);
begin

statusbar1.Panels[1].text:= ('輸入編號后按下Enter即可顯示全部數據');
statusbar1.Panels[3].text:=datetostr(now());
statusbar1.Panels[5].text:=timetostr(now());

end;



procedure TForm6.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 caigou 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 caigou ');
open;
end;
exit;
end;

with query1 do
begin
close;
sql.clear;
sql.add('update caigou set name=:a,provider=:b,type=:c,price=:d,number=:e,datetime=:f 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;
execsql;
end;
showmessage('修改已保存！') ;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from caigou');
open;
edit1.setfocus;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;



end;

procedure TForm6.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 caigou 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 caigou values(:g,:a,:b,:c,:d,:e,:f)');
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;
execsql;
end;
showmessage('添加成功！') ;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from caigou');
open;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit1.setfocus;






end;


end;

procedure TForm6.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 caigou where id='''+trim(edit1.text)+'''');
execsql;
end;
with query1 do
begin
close;
sql.clear;
sql.Add('select * from caigou');
open;
end;

edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;

end
else
exit;

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

end.