findshop.pas

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

unit findshop;

interface

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

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    GroupBox2: TGroupBox;
    GroupBox3: 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;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton10: TSpeedButton;
    ComboBox1: TComboBox;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(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
  Form9: TForm9;

implementation

uses data, pshop1, pshop2;

{$R *.dfm}

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

procedure TForm9.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource:=dm.shopSource;
end;

procedure TForm9.SpeedButton1Click(Sender: TObject);
Var
s1,s2,s3,s4 :String;
begin
with dm.shopQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from shopkeeper');
SQL.Add('where ID 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['ID']=NULL
then  begin
Messagedlg('没有找到你所需要的记录！',mtInformation,[mbOK],0);
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';
close;
SQL.Clear;
SQL.Add('select * from shopkeeper');
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['id'];
   end;
   end;
end;

procedure TForm9.SpeedButton3Click(Sender: TObject);
begin
with dm.shopquery do
begin
close;
sql.clear;
sql.add('select * from shopkeeper');
open;
end;
end;
procedure TForm9.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
if messagedlg('您真的要增加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
if dm.shopTable.Locate('id',edit5.Text ,[]) then
showmessage('供应商信息已经存在,请重新输入!')
else
with dm.shopTable do
begin
 try
 append;
 fieldByName('id').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 TForm9.BitBtn2Click(Sender: TObject);
begin
if messagedlg('您真的要修改吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
with dm.shoptable do
begin
 try
 {if not locate('id',edit1.Text,[]) then
showmessage('请输入要修改记录的编号')
else}
begin
 edit;
 fieldByName('id').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
  cancel;
  end;
 end;
end;

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

procedure TForm9.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 TForm9.SpeedButton4Click(Sender: TObject);
begin
form22.showmodal;
end;

procedure TForm9.SpeedButton6Click(Sender: TObject);
begin
with dm.shopTable 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['id'];
end;
end;

procedure TForm9.SpeedButton7Click(Sender: TObject);
begin
with dm.shopTable 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['id'];
end;
end;
procedure TForm9.SpeedButton8Click(Sender: TObject);
begin
with dm.shopTable 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['id'];
   end;
end;

procedure TForm9.SpeedButton9Click(Sender: TObject);
begin
with dm.shopTable 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['id'];
   end;
end;

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

end;

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

procedure TForm9.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.