unit8.~pas

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

unit Unit8;

interface

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

type
  Tfrm_sort = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    cob_field1: TComboBox;
    cob_field2: TComboBox;
    cob_field3: TComboBox;
    cb_desc1: TCheckBox;
    cb_desc2: TCheckBox;
    cb_desc3: TCheckBox;
    btn_sort: TBitBtn;
    btn_cancel: TBitBtn;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure btn_sortClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sort: Tfrm_sort;

implementation

uses Unit7;

{$R *.dfm}

procedure Tfrm_sort.FormCreate(Sender: TObject);
var
  i:integer;
begin
with frm_saleinfor.table1 do
   begin
   for i:=0 to fieldcount-1 do
   begin
   cob_field1.Items.Add(fields[i].displayname);
   cob_field2.Items.Add(fields[i].displayname);
   cob_field3.Items.Add(fields[i].displayname);
   end;
   end;


end;

procedure Tfrm_sort.btn_sortClick(Sender: TObject);
var
 SortSQL:string;
 begin

 sortSQL:='select * from saleinfor.db';
 if cob_field1.Text<>'' then
 begin
 sortSQL:=SortSQL+' order by '+cob_field1.Text;
 if cb_desc1.Checked then SortSQL:=SortSQL+' desc';
 end;

 if cob_field2.Text<>'' then
 begin
  sortSQL:=SortSQL+','+cob_field2.Text;
  if cb_desc2.Checked then SortSQL:=SortSQL+' Desc';
  end;

  if cob_field3.Text<>'' then
  begin
  sortSQL:=SortSQL+','+cob_field3.Text;
  if cb_desc3.Checked then SortSQL:=SortSQL+' Desc';
  end;
with frm_saleinfor do
   begin
   query1.close;
   Query1.sql.text:=sortsql;
   Query1.open;
   datasource1.dataset:=query1;
   end;
   self.close;

end;

procedure Tfrm_sort.btn_cancelClick(Sender: TObject);
begin

  with frm_saleinfor do
  begin
    datasource1.dataset:=table1;
    btn_add.visible:=true;
    btn_del.visible:=true;
    btn_sort.font.color:=clblack;
    end;
    close;
end;

end.