ufind.~pas

商场销售信息系统只要用于小商场的销售管理

unit Ufind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, bsSkinBoxCtrls, Mask;

type
  TfrmFind = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    cbZdm: TbsSkinComboBox;
    cbCzf: TbsSkinComboBox;
    cbZdz: TbsSkinComboBox;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinScrollBar2: TbsSkinScrollBar;
    btn_CS: TbsSkinButton;
    btn_BQ: TbsSkinButton;
    btn_Hz: TbsSkinButton;
    btn_Qk: TbsSkinButton;
    btn_Ok: TbsSkinButton;
    btn_Cancel: TbsSkinButton;
    mmSql: TbsSkinMemo;
    bsSkinDateEdit1: TbsSkinDateEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_QkClick(Sender: TObject);
    procedure btn_CSClick(Sender: TObject);
    procedure cbZdmChange(Sender: TObject);
    procedure btn_BQClick(Sender: TObject);
    procedure btn_HzClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFind: TfrmFind;

implementation
uses upublic,comobj,umain;
{$R *.dfm}

procedure TfrmFind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
frmFind:=nil;
end;

procedure TfrmFind.btn_CancelClick(Sender: TObject);
begin
strSql:='';
close;
end;

procedure TfrmFind.btn_QkClick(Sender: TObject);
begin
mmsql.Clear;
strSql:='';
btn_CS.Enabled:=true;
btn_BQ.Enabled:=false;;
btn_Hz.Enabled:=false;
end;

//初始按钮
procedure TfrmFind.btn_CSClick(Sender: TObject);
begin
if (cbZdm.text='') or (cbczf.text='') then
begin
  frmmain.bsmessage.MessageDlg('对不起,数据不能为空!',mtWarning,[mbOK],0);
  exit;
end;
case cbzdm.ItemIndex of
  0://销售日期
  begin
    strSql:='rq '+cbczf.Text+' #'+bsSkinDateEdit1.Text+'#';
    mmsql.Text:='销售日期 '+cbczf.Text+' '+bsSkinDateEdit1.Text;
  end;
  1://商品名称
  begin
    if cbczf.Text='like' then
      strSql:='spmc '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:='spmc '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:='商品名称 '+cbczf.Text+' '+cbzdz.text;
  end;
  2://商品类型
  begin
    if cbczf.Text='like' then
      strSql:='spclass '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:='spclass '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:='商品类型 '+cbczf.Text+' '+cbzdz.text;
  end;
  3://柜台代码
  begin
    strSql:='gtdm '+cbczf.Text+' '+cbzdz.text;
    mmsql.Text:='柜台代码 '+cbczf.Text+' '+cbzdz.text;
  end;
end;
btn_CS.Enabled:=false;
btn_BQ.Enabled:=true;
end;

procedure TfrmFind.cbZdmChange(Sender: TObject);

begin
cbzdz.Items.Clear;
cbzdz.Text:='';
case cbzdm.ItemIndex of
  0://销售日期
    begin
      bsSkinDateEdit1.Visible:=true;
    end;
  1://商品名称
    begin
      bsSkinDateEdit1.Visible:=false;
      rs:=CreateOleObject('ADODB.Recordset');
      rs.open('select spmc from tshangpin order by spid',conn,1,1);
      while not rs.eof do
      begin
        cbzdz.Items.Add(rs.fields.Item['spmc'].value);
        rs.movenext;
        application.ProcessMessages;
      end;
      rs.close;
      rs:=unassigned;
    end;
  2://商品类型
    begin
      bsSkinDateEdit1.Visible:=false;
      rs:=CreateOleObject('ADODB.Recordset');
      rs.open('select classname from tclass order by classid',conn,1,1);
      while not rs.eof do
      begin
        cbzdz.Items.Add(rs.fields.Item['classname'].value);
        rs.movenext;
        application.ProcessMessages;
      end;
      rs.close;
      rs:=unassigned;
    end;
  3://柜台代码
    begin
      bsSkinDateEdit1.Visible:=false;
      rs:=CreateOleObject('ADODB.Recordset');
      rs.open('select gtdm from tgt order by gtid',conn,1,1);
      while not rs.eof do
      begin
        cbzdz.Items.Add(rs.fields.Item['gtdm'].value);
        rs.movenext;
        application.ProcessMessages;
      end;
      rs.close;
      rs:=unassigned;
    end;
end;


end;

procedure TfrmFind.btn_BQClick(Sender: TObject);
begin
if (cbZdm.text='') or (cbczf.text='') then
begin
  frmmain.bsmessage.MessageDlg('对不起,数据不能为空!',mtWarning,[mbOK],0);
  exit;
end;
case cbzdm.ItemIndex of
  0://销售日期
  begin
    strSql:=strSql+' and '+'rq '+cbczf.Text+' #'+bsSkinDateEdit1.Text+'#';
    mmsql.Text:=mmsql.Text+ ' and ' +'销售日期 '+cbczf.Text+' '+bsSkinDateEdit1.Text;
  end;
  1://商品名称
  begin
    if cbczf.Text='like' then
      strSql:=strSql+' and '+'spmc '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:=strSql+' and '+'spmc '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:=mmsql.Text+ ' and ' +'商品名称 '+cbczf.Text+' '+cbzdz.text;
  end;
  2://商品类型
  begin
    if cbczf.Text='like' then
      strSql:=strSql+' and '+'spclass '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:=strSql+' and '+'spclass '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:=mmsql.Text+ ' and ' +'商品类型 '+cbczf.Text+' '+cbzdz.text;
  end;
  3://柜台代码
  begin
    strSql:=strSql+' and '+'gtdm '+cbczf.Text+' '+cbzdz.text;
    mmsql.Text:=mmsql.Text+ ' and ' +'柜台代码 '+cbczf.Text+' '+cbzdz.text;
  end;
end;
//btn_BQ.Enabled:=false;
btn_Hz.Enabled:=true;
end;

procedure TfrmFind.btn_HzClick(Sender: TObject);
begin
if (cbZdm.text='') or (cbczf.text='') then
begin
  frmmain.bsmessage.MessageDlg('对不起,数据不能为空!',mtWarning,[mbOK],0);
  exit;
end;
case cbzdm.ItemIndex of
  0://销售日期
  begin
    strSql:=strSql+' or '+'rq '+cbczf.Text+' #'+bsSkinDateEdit1.Text+'#';
    mmsql.Text:=mmsql.Text+ ' or ' +'销售日期 '+cbczf.Text+' '+bsSkinDateEdit1.Text;
  end;
  1://商品名称
  begin
    if cbczf.Text='like' then
      strSql:=strSql+' or '+'spmc '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:=strSql+' or '+'spmc '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:=mmsql.Text+ ' or ' +'商品名称 '+cbczf.Text+' '+cbzdz.text;
  end;
  2://商品类型
  begin
    if cbczf.Text='like' then
      strSql:=strSql+' or '+'spclass '+cbczf.Text+' '+yinhao+'%'+cbzdz.text+'%'+yinhao
    else
      strSql:=strSql+' or '+'spclass '+cbczf.Text+' '+yinhao+cbzdz.text+yinhao;
    mmsql.Text:=mmsql.Text+ ' or ' +'商品类型 '+cbczf.Text+' '+cbzdz.text;
  end;
  3://柜台代码
  begin
    strSql:=strSql+' or '+'gtdm '+cbczf.Text+' '+cbzdz.text;
    mmsql.Text:=mmsql.Text+ ' or ' +'柜台代码 '+cbczf.Text+' '+cbzdz.text;
  end;
end;

//btn_Hz.Enabled:=false;
end;

end.