unit7.pas

这是个才财务管理系统！可能是哪个语言！但是我不认识！

unit Unit7;

interface

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

type
  Tfrm_sort = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    cb_desc1: TCheckBox;
    cob_field1: TComboBox;
    cb_desc2: TCheckBox;
    cb_desc3: TCheckBox;
    cob_field2: TComboBox;
    cob_field3: TComboBox;
    btn_sort: TButton;
    btn_cancel: TButton;
    Label3: TLabel;
    procedure btn_sortClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);




   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sort: Tfrm_sort;

implementation

uses Unit3, Unit5;

{$R *.DFM}

procedure Tfrm_sort.btn_sortClick(Sender: TObject);
var
  SortSQL:string;
begin
 frm_worker.btn_add.enabled:=false;
 frm_worker.btn_del.enabled:=false;
 frm_worker.btn_sort.Font.Color:=clred;
 SortSQL:='select * from 人员信息表.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_worker 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_worker do
  begin
    //cob_field1.clear;
    //cob_field2.clear;
    //cob_field3.clear;
    cb_desc1.checked:=false;
    cb_desc2.checked:=false;
    cb_desc3.checked:=false;
    datasource1.dataset:=table1;
    btn_add.enabled:=true;
    btn_del.enabled:=true;
    btn_sort.Font.Color:=clblack;
  end;
self.close;
frm_worker.show;
end;
procedure Tfrm_sort.FormShow(Sender: TObject);
var
  i:integer;
begin

with frm_worker.Table1 do
  begin
    cob_field1.Items.clear;
    cob_field2.Items.clear;
    cob_field3.Items.clear;
    cob_field1.Items.Add(' ');
    cob_field2.Items.Add(' ');
    cob_field3.Items.Add(' ');
    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);
    next;
    end;

  end;

end;

end.