unit11.pas

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

unit Unit11;

interface

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

type
  Tfrm_query = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    cob_name: TComboBox;
    cob_model: TComboBox;
    cob_setup: TComboBox;
    cob_other1: TComboBox;
    cob_other2: TComboBox;
    edt_other1: TEdit;
    edt_other2: TEdit;
    cb_yesno: TCheckBox;
    rb_yes: TRadioButton;
    rb_no: TRadioButton;
    btn_ok: TBitBtn;
    btn_cancel: TBitBtn;
    dtp_date2: TDateTimePicker;
    cb_date: TCheckBox;
    dtp_date1: TDateTimePicker;
    Query1: TQuery;
    Label1: TLabel;
    procedure btn_okClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure cob_nameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_query: Tfrm_query;

implementation

uses Unit5, Unit3;

{$R *.DFM}

procedure Tfrm_query.btn_okClick(Sender: TObject);
var
aSQL:string;
begin
  frm_setup.btn_seek.font.color:=clred;
  frm_setup.btn_add.enabled:=false;
  frm_setup.btn_del.enabled:=false;
if cob_name.text<>''  then aSQL:='and (空调名称="'+cob_name.Text+'") ';
if cob_model.text<>'' then aSQL:=aSQL+ 'and (规格型号="'+cob_model.Text+'") ';
if cob_setup.text<>'' then aSQL:=aSQL+ 'and (主安装人="'+cob_setup.Text+'") ';

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

if edt_other1.Text<>'' then  aSQL:=aSQL+ 'and ('+cob_other1.text+'="'+edt_other1.Text+'") ';
if edt_other2.Text<>'' then  aSQL:=aSQL+ 'and ('+cob_other2.text+'="'+edt_other2.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_setup do
    begin
      query1.close;
      query1.sql.text:='select * from 安装记录表.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;
cob_model.clear;  
self.Close;
end;





procedure Tfrm_query.btn_cancelClick(Sender: TObject);
begin
 with frm_setup do
 begin
 //cob_name.clear;
 //cob_setup.clear;
 //cob_other1.clear;
 //cob_other2.clear;
 cob_model.clear;
 edt_other1.clear;
 edt_other2.clear;
 cb_yesno.checked:=false;
 cb_date.checked:=false;
 datasource1.dataset:=table1;
 btn_add.enabled:=true;
 btn_del.enabled:=true;
 btn_seek.font.Color:=clblack;
 end;
self.close;
frm_setup.show;
end;


procedure Tfrm_query.cob_nameChange(Sender: TObject);
var
  i:integer;
  s:string;
begin
   with query1 do
    begin
      s:='select distinct 空调名称,规格型号 from 空调名称及型号表.db'
      +' where 空调名称="'
      + cob_name.Text
      +'"';
    sql.text:=s;
    open;

    cob_model.items.clear;
    cob_model.items.add('');
    for i:=1 to RecordCount do
    begin
    cob_model.items.add(fieldbyname('规格型号').asstring);
    next;
    end;
    close;
    end;

end;


procedure Tfrm_query.FormShow(Sender: TObject);
var  i:integer;
begin
  with query1 do
  begin
    sql.Text:='select distinct 空调名称 from 空调名称及型号表.db';
    open;
    cob_name.Items.clear;
    cob_name.Items.add('');
    for i:=1 to RecordCount do
    begin
    cob_name.Items.add(fieldbyname('空调名称').asstring);
    next;
    end;
    close;

    sql.Text:='select distinct 姓名 from 人员信息表.db';
    open;
    cob_setup.Items.clear;
    cob_setup.Items.add('');
    for i:=1 to RecordCount do
    begin
    cob_setup.items.add(fieldbyname('姓名').asstring);
    next;
    end;
    close;
  end;
 with frm_setup.table1 do
 begin
   cob_other1.Items.clear;
   cob_other2.Items.clear;
   cob_other1.items.add('');
   cob_other2.items.add('');
   for i:=3 to fieldcount-1 do
   begin
   cob_other1.items.add(fields[i].displayname);
   cob_other2.items.add(fields[i].displayname);
   next;
   end;
 end;
end;


end.