findguest.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit findguest;

interface

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

type
  TForm13 = class(TForm)
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    ComboBox1: TComboBox;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses data, pguest1, pguest2;

{$R *.dfm}

procedure TForm13.SpeedButton3Click(Sender: TObject);
begin
with dm.guestquery do
begin
close;
sql.clear;
sql.add('select * from guest');
open;
end;
end;

procedure TForm13.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TForm13.SpeedButton1Click(Sender: TObject);

Var
s1,s2,s3,s4 :String;
begin
with dm.guestQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from guest');
SQL.Add('where guestID Like :ID and Name Like :Name and OFPHONE Like :OFPHONE and EMAIL Like :EMAIL ');

if Edit1.Text<>''  then  s1:='%'+Edit1.Text+'%'   else  s1:='%';
Parameters.ParamByName('ID').Value:=s1 ;
if Edit2.Text<>''  then  s2:='%'+Edit2.Text+'%'   else  s2:='%';
Parameters.ParamByName('Name').Value:=s2;
if Edit3.Text<>''  then  s3:='%'+Edit3.Text+'%'   else  s3:='%';
Parameters.ParamByName('OFPHONE').Value:=s3;
if Edit4.Text<>''  then  s4:='%'+Edit4.Text+'%'   else  s4:='%';
Parameters.ParamByName('EMAIL').Value:=s4;
open;
if FieldValues['guestID']=NULL
then  begin
Messagedlg('没有找到你所需要的记录！',mtInformation,[mbOK],0);
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';
close;
SQL.Clear;
SQL.Add('select * from guest');
open;
end
else
begin
   edit6.Text :=fieldvalues['name'];
   edit7.Text :=fieldvalues['ofphone'];
   edit8.Text :=fieldvalues['homephone'];
   edit9.Text :=fieldvalues['email'];
   ComboBox1.Text :=fieldvalues['paytype'];
   edit11.Text :=fieldvalues['postno'];
   edit12.Text :=fieldvalues['address'];
   edit5.Text :=fieldvalues['guestid'];
   end;end;
end;

procedure TForm13.SpeedButton2Click(Sender: TObject);
begin
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
end;

procedure TForm13.BitBtn1Click(Sender: TObject);
begin
if messagedlg('您真的要增加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
{if dm.guestTable.Locate('guestid',edit5.Text ,[]) then
showmessage('客户信息已经存在,请重新输入!')
else }
with dm.guestTable do
begin
 try
 append;
 fieldByName('guestid').asstring  :=edit5.Text ;
 fieldByName ('name').asstring :=edit6.Text ;
 fieldByName ('ofphone').asstring :=edit7.Text ;
 fieldByName ('homephone').asstring :=edit8.Text ;
 fieldByName ('paytype').asstring :=ComboBox1.Text ;
 fieldByName('postno').asstring :=edit11.Text ;
 fieldByName('address').asstring :=edit12.Text ;
 fieldByName('email').asstring :=edit9.Text ;

 post;
 except
 cancel;
 end;
end;
end;

procedure TForm13.BitBtn2Click(Sender: TObject);
begin
if messagedlg('您真的要修改吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
with dm.guesttable do
begin
 try
{if not locate('guestid',edit1.Text,[]) then
showmessage('请输入要修改记录的编号')
else }
begin
 edit;
 fieldByName('guestid').asstring  :=edit5.Text ;
 fieldByName ('name').asstring :=edit6.Text ;
 fieldByName ('ofphone').asstring :=edit7.Text ;
 fieldByName ('homephone').asstring :=edit8.Text ;
 fieldByName ('paytype').asstring :=ComboBox1.Text ;
 fieldByName('postno').asstring :=edit11.Text ;
 fieldByName('address').asstring :=edit12.Text ;
 fieldByName('email').asstring :=edit9.Text ;
 post;
 end;
 except
  showmessage('请输入数据');
  cancel;
  end;
 end;
end;

procedure TForm13.BitBtn3Click(Sender: TObject);
begin
if messagedlg('您真的要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
BEGIN
with dm.guesttable do
begin
try
{if not locate('guestid',edit1.Text,[]) then
showmessage('请输入要删除记录的编号')
else }
begin
delete;
refresh;
end;
except
showmessage('不能删除');
end;
edit6.Clear ;edit7.Clear ;
edit8.Clear ;edit9.Clear ;
edit11.Clear ;
edit12.Clear ;edit5.Clear ;
end;
end;
END;
procedure TForm13.BitBtn4Click(Sender: TObject);
begin
if messagedlg('您真的要清除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
BEGIN
edit6.Clear ;
edit7.Clear ;
edit8.Clear ;edit9.Clear ;edit11.Clear ;
edit12.Clear ;edit5.Clear ;
combobox1.Text :='';
end;
END;

procedure TForm13.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource:=dm.guestSource;
with dm.guestQuery  do
begin
close;
sql.Clear;
sql.Add('select  *  from guest');
open;
end;

end;

procedure TForm13.SpeedButton4Click(Sender: TObject);
begin
form16.showmodal;
end;

procedure TForm13.SpeedButton6Click(Sender: TObject);
begin
with dm.guestTable do
begin
open;
first;
  edit6.Text :=fieldvalues['name'];
   edit7.Text :=fieldvalues['ofphone'];
   edit8.Text :=fieldvalues['homephone'];
   edit9.Text :=fieldvalues['email'];
   ComboBox1.Text :=fieldvalues['paytype'];
   edit11.Text :=fieldvalues['postno'];
   edit12.Text :=fieldvalues['address'];
   edit5.Text :=fieldvalues['guestid'];
end;
end;
procedure TForm13.SpeedButton7Click(Sender: TObject);
begin
with dm.guestTable do
begin
open;
prior;
edit6.Text :=fieldvalues['name'];
   edit7.Text :=fieldvalues['ofphone'];
   edit8.Text :=fieldvalues['homephone'];
   edit9.Text :=fieldvalues['email'];
  ComboBox1.Text :=fieldvalues['paytype'];
   edit11.Text :=fieldvalues['postno'];
   edit12.Text :=fieldvalues['address'];
   edit5.Text :=fieldvalues['guestid'];
   end;
end;

procedure TForm13.SpeedButton8Click(Sender: TObject);
begin
with dm.guestTable do
begin
open;
next;
   edit6.Text :=fieldvalues['name'];
   edit7.Text :=fieldvalues['ofphone'];
   edit8.Text :=fieldvalues['homephone'];
   edit9.Text :=fieldvalues['email'];
   ComboBox1.Text :=fieldvalues['paytype'];
   edit11.Text :=fieldvalues['postno'];
   edit12.Text :=fieldvalues['address'];
   edit5.Text :=fieldvalues['guestid'];
end;
end;

procedure TForm13.SpeedButton9Click(Sender: TObject);
begin
with dm.guestTable do
begin
open;
last;
edit6.Text :=fieldvalues['name'];
   edit7.Text :=fieldvalues['ofphone'];
   edit8.Text :=fieldvalues['homephone'];
   edit9.Text :=fieldvalues['email'];
   ComboBox1.Text :=fieldvalues['paytype'];
   edit11.Text :=fieldvalues['postno'];
   edit12.Text :=fieldvalues['address'];
   edit5.Text :=fieldvalues['guestid'];
   end;
end;

procedure TForm13.SpeedButton10Click(Sender: TObject);
var str:string;
begin
if edit1.Text <>'' then
with dm.guestTable do
begin
filtered:=false;
str:='guestid='+edit1.text;
filter:=str;
filtered:=true;
end;
form17.quickrep1.preview;
end;

procedure TForm13.DBGrid1TitleClick(Column: TColumn);
begin
with dm.guestQuery do
begin
close;
sql.clear;
sql.Text:='select * from guest order by +'''+column.FieldName+'''asc';
open;
end;
end;

procedure TForm13.Edit1KeyPress(Sender: TObject; var Key: Char);
var numset:set of char;
begin
numset:=['0'..'9',#8];
if not (key in numset) then key:=#0;
end;

end.