unit9.~pas

商场管理 内容:通过商场入口和用户入口实现

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, DBTables, ComCtrls, Buttons, jpeg,
  ExtCtrls;

type
  Tfrm_query = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    cob_prono: TDBComboBox;
    cob_listno: TDBComboBox;
    cob_other: TDBComboBox;
    cb_date: TCheckBox;
    edt_other: TEdit;
    cb_yesno: TCheckBox;
    rb_yes: TRadioButton;
    rb_no: TRadioButton;
    dtp_date1: TDateTimePicker;
    dtp_date2: TDateTimePicker;
    btn_ok: TBitBtn;
    btn_cancel: TBitBtn;
    Query1: TQuery;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure cob_pronoChange(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_query: Tfrm_query;

implementation

uses Unit7;

{$R *.dfm}

procedure Tfrm_query.FormCreate(Sender: TObject);
var
  i:integer;
begin
  with query1 do
  begin
  sql.text:='select distinct 商品编号 from saleinfor.db';
  open;
  cob_prono.Clear;
  cob_prono.Items.Add('');
  for i:=1 to recordcount do
  begin
     cob_prono.Items.add(fieldbyname('商品编号').asstring);
     next;
     end;
     close;

     sql.text:='select distinct 货单编号 from saleinfor.db';
     open;
     cob_listno.Clear;
     cob_listno.Items.add('');
     for i:=1 to recordcount do
     begin
     cob_listno.Items.add(fieldbyname('货单编号').asstring);
     next;
     end;
     close;
     end;

     with frm_saleinfor.table1 do
     begin
     cob_other.items.add('');
     for i:=2 to fieldcount-1 do
     begin
     cob_other.items.add(fields[i].displayname);
     end;
     end;
end;

procedure Tfrm_query.btn_okClick(Sender: TObject);
var asql:string;
begin
if cob_prono.Text<>'' then aSQL:='and (商品编号="'+cob_prono.text+'")';
if cob_listno.Text<>'' then aSQL:=aSQL+'and(货单编号="'+cob_listno.text+'")';

if cb_date.Checked then aSQL:=aSQL+ 'and(安装日期 > :d1) and (安装日期 < :d2)';

if edt_other.Text<>'' then aSQL:=aSQL+ 'and ('+cob_other.text+'="'+edt_other.text+'") ';

if cb_yesno.Checked then
begin
    if rb_yes.checked then aSQL:=aSQL+' and 是否结算="true"'
    else aSQL:=aSQL+' and 是否结算="false"';
    end;

if asql<>''then
begin
    with frm_saleinfor do
    begin
        query1.close;
        query1.sql.text:='select * saleinfor.db where 商品编号<>"" '+asql;

        if cb_date.Checked then
        begin
           query1.params[0].asdatetime:=dtp_date1.date;
           query1.params[1].asdatetime:=dtp_date2.date;
        end;
        datasource1.dataset:=query1;
        query1.open;
        end;
        end;
        self.Close;
        

end;

procedure Tfrm_query.cob_pronoChange(Sender: TObject);
var
   i:integer;
   s:string;
begin
    with query1 do
     begin
       s:='select distinct 商品编号 from productinfor.db'
       +' where 商品编号="'
       +cob_prono.Text
       +'"';
     sql.text:=s;
     open;
     end;
     close;
     end;

procedure Tfrm_query.btn_cancelClick(Sender: TObject);
begin

with frm_saleinfor do
 begin
 datasource1.dataset:=table1;
 btn_add.visible:=true;
 btn_del.visible:=true;
 end;
 self.Close;
 
end;

end.