开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
select.~pas
资源名称：万家福超市管理系统.rar　[点击查看]
上传用户：bjkrmsxy
上传日期：2010-01-31
资源大小：9004k
文件大小：2k
源码类别：

百货/超市行业

开发平台：

Delphi

select.~pas：源码内容
  1. unit select;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;
  9. type
  10.   Tsel_From = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     GroupBox1: TGroupBox;
  14.     Edit2: TEdit;
  15.     Label2: TLabel;
  16.     GroupBox2: TGroupBox;
  17.     Label1: TLabel;
  18.     Edit1: TEdit;
  19.     Label3: TLabel;
  20.     Edit3: TEdit;
  21.     Label4: TLabel;
  22.     Edit4: TEdit;
  23.     GroupBox3: TGroupBox;
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     DBGrid1: TDBGrid;
  27.     DataSource1: TDataSource;
  28.     ADOQuery1: TADOQuery;
  29.     procedure Button1Click(Sender: TObject);
  30.     procedure Button2Click(Sender: TObject);
  31.     procedure FormActivate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   sel_From: Tsel_From;
  41. implementation
  43. uses datamodule;
  45. {$R *.dfm}
  47. procedure Tsel_From.Button1Click(Sender: TObject);
  48. var
  49. sqls:string;
  50. begin
  51.   if (edit1.Text='') and (edit2.Text='') and (edit3.Text='')and (edit4.Text='')then
  52.       showmessage('请输入要查询的关键字')
  53.   else
  54.   begin
  55.    with adoquery1 do
  56.    begin
  57.     close;
  58.     sql.Clear;
  59.     sqls:='select * from produce_t where 1=1';
  60.     if edit2.Text<>'' then
  61.       sqls:=sqls+'and p_name like ''%'+edit2.Text+'%''';
  62.     if edit4.Text<>'' then
  63.       sqls:=sqls+'and p_unit like ''%'+edit4.Text+'%''';
  64.     if edit1.Text<>'' then
  65.       begin
  66.        sqls:=sqls+'and p_id=:id';
  67.        Parameters.Clear;
  68.        Parameters.ADDParameter; //创建参数1
  69.        Parameters[0].Name:='id';
  70.        Parameters[0].Value:=strtoint(edit1.text);
  71.       end;
  72.     if edit3.Text<>'' then
  73.       begin
  74.        sqls:=sqls+'and p_type=:type';
  75.       Parameters.Clear;
  76.        Parameters.ADDParameter; //创建参数1
  77.        Parameters[0].Name:='type';
  78.        Parameters[0].Value:=strtoint(edit3.text);
  79.       end;
  80.      sql.add(sqls);
  81.      Prepared;
  82.      open;
  83.     if  recordcount=0 then
  84.       showmessage('对不起，该商品不在');
  85.     end;
  86.   end;
  87. end;
  89. procedure Tsel_From.Button2Click(Sender: TObject);
  90. begin
  91. adoquery1.close;
  92. close;
  93. end;
  95. procedure Tsel_From.FormActivate(Sender: TObject);
  96. begin
  97.   if not datamodule1.adoconnection1.connected then
  98.   datamodule1.adoconnection1.connected:=true;
  99. end;
  101. end.