uquery1.pas

物业管理系统

unit Uquery1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, Buttons;

type
  TFmquery1 = class(TForm)
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    ComboBox3: TComboBox;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    DataSource1: TDataSource;
    ComboBox4: TComboBox;
    Label4: TLabel;
    Table1Wyno2: TStringField;
    Table1Zhuzh: TStringField;
    Table1Fangx2: TStringField;
    Table1Jianzmj: TFloatField;
    Table1Sshiymj: TFloatField;
    Table1Beizh2: TStringField;
    Table2Wyno: TStringField;
    Table2Xingm: TStringField;
    Table2Shenfzh: TStringField;
    Table2Dianh: TStringField;
    Table2Fangx: TStringField;
    Table2Zhuzh: TStringField;
    Table2Qianrshj: TDateField;
    Table2Juzfsh: TStringField;
    Table2Beizh: TStringField;
    Table3Wyno: TStringField;
    Table3Xingm: TStringField;
    Table3Dianh: TStringField;
    Table3Zhuzh: TStringField;
    Table3Jianzmj: TFloatField;
    Table3Fangx: TStringField;
    Table3Ddate: TDateField;
    Table3Jiezh: TDateField;
    Table3Wyf: TFloatField;
    Table3Sfj: TBooleanField;
    Table3Beizh: TStringField;
    Table4: TTable;
    Table4Wyno: TStringField;
    Table4Xingm: TStringField;
    Table4Dianh: TStringField;
    Table4Zhuzh: TStringField;
    Table4Ddate: TDateField;
    Table4Wxxm: TStringField;
    Table4Beizh: TStringField;
    Table5: TTable;
    Table5Wyno: TStringField;
    Table5Xingm: TStringField;
    Table5Dianh: TStringField;
    Table5Zhuzh: TStringField;
    Table5Cx: TStringField;
    Table5Ddate: TDateField;
    Table5Jiezh: TDateField;
    Table5Ccf: TFloatField;
    Table5Sfj: TBooleanField;
    Table5Beizh: TStringField;
    CheckBox1: TCheckBox;
    Table6: TTable;
    Table7: TTable;
    BatchMove1: TBatchMove;
    BatchMove2: TBatchMove;
    Table6Wyno: TStringField;
    Table6Xingm: TStringField;
    Table6Dianh: TStringField;
    Table6Zhuzh: TStringField;
    Table6Jianzmj: TFloatField;
    Table6Fangx: TStringField;
    Table6Ddate: TDateField;
    Table6Jiezh: TDateField;
    Table6Wyf: TFloatField;
    Table6Sfj: TBooleanField;
    Table6Beizh: TStringField;
    Table7Wyno: TStringField;
    Table7Xingm: TStringField;
    Table7Dianh: TStringField;
    Table7Zhuzh: TStringField;
    Table7Cx: TStringField;
    Table7Ddate: TDateField;
    Table7Jiezh: TDateField;
    Table7Ccf: TFloatField;
    Table7Sfj: TBooleanField;
    Table7Beizh: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ComboBox3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  { Public declarations }
  end;

var
  Fmquery1: TFmquery1;

implementation

uses Ufmqianrjl, Ufmxiaoqu, Ufmjiaofei, Ufmwxjl, Ufmjiaofeicc, wuyeform;

{$R *.dfm}

procedure TFmquery1.ComboBox3Click(Sender: TObject);
var i:integer;

begin
//checkbox1.Checked:=false;
if combobox3.ItemIndex=0 then
begin
combobox1.Items.Clear;
combobox4.Items.Clear;
datasource1.DataSet:=table1;
table1.Active:=true;
dbgrid1.Columns:=Ufmxiaoqu.fmxiaoqu.DBGrid1.Columns;
for i:=0 to table1.FieldCount-1 do
begin
combobox1.Items.Add(table1.Fields[i].DisplayLabel);
combobox4.Items.Add(table1.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
checkbox1.Checked:=false;
checkbox1.Visible:=false;
end;

if combobox3.ItemIndex=1 then
begin
dbgrid1.Columns.Clear;
combobox1.Items.Clear;
combobox4.Items.Clear;
datasource1.DataSet:=table2;
table2.Active:=true;
dbgrid1.Columns:=Ufmqianrjl.Fmqianrjl.DBGrid1.Columns;
for i:=0 to table2.FieldCount-1 do
begin
combobox1.Items.Add(table2.Fields[i].DisplayLabel);
combobox4.Items.Add(table2.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
checkbox1.Checked:=false;
checkbox1.Visible:=false;

end;

if (combobox3.ItemIndex=3) and (checkbox1.Checked=false) then
begin
combobox1.Items.Clear;
combobox4.Items.Clear;
dbgrid1.Columns.Clear;
datasource1.DataSet:=table3;
table3.Active:=true;
dbgrid1.Columns:=Ufmjiaofei.Fmjiaofei.DBGrid1.Columns;
for i:=0 to table3.FieldCount-1 do
begin
combobox1.Items.Add(table3.Fields[i].DisplayLabel);
combobox4.Items.Add(table3.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
checkbox1.Visible:=true;
datasource1.DataSet:=table3;
end;

if (combobox3.ItemIndex=3) and (checkbox1.Checked=true) then
begin
combobox1.Items.Clear;
combobox4.Items.Clear;
dbgrid1.Columns.Clear;
datasource1.DataSet:=table6;
table6.Active:=true;
dbgrid1.Columns:=Ufmjiaofei.Fmjiaofei.DBGrid1.Columns;
for i:=0 to table6.FieldCount-1 do
begin
combobox1.Items.Add(table6.Fields[i].DisplayLabel);
combobox4.Items.Add(table6.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
datasource1.DataSet:=table6;
end;



if combobox3.ItemIndex=2 then
begin
dbgrid1.Columns.Clear;
combobox1.Items.Clear;
combobox4.Items.Clear;
datasource1.DataSet:=table4;
table4.Active:=true;
dbgrid1.Columns:=Ufmwxjl.fmwxjl.DBGrid1.Columns;
for i:=0 to table4.FieldCount-1 do
begin
combobox1.Items.Add(table4.Fields[i].DisplayLabel);
combobox4.Items.Add(table4.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
checkbox1.Checked:=false;
checkbox1.Visible:=false;

end;

if combobox3.ItemIndex=4 then
begin
dbgrid1.Columns.Clear;
combobox1.Items.Clear;
combobox4.Items.Clear;
datasource1.DataSet:=table5;
table5.Active:=true;
dbgrid1.Columns:=Ufmjiaofeicc.Fmjiaofeicc.DBGrid1.Columns;
for i:=0 to table5.FieldCount-1 do
begin
combobox1.Items.Add(table5.Fields[i].DisplayLabel);
combobox4.Items.Add(table5.Fields[i].FieldName);
end;
combobox1.ItemIndex:=0;
checkbox1.Visible:=true;
end;


groupbox3.Caption:=combobox3.Text;
combobox1.OnClick(sender);
end;




procedure TFmquery1.BitBtn1Click(Sender: TObject);
var qstr,qstr1:string;
begin
qstr:='';
if combobox3.ItemIndex=0 then begin qstr:='table1 ';datasource1.DataSet:=table1;end;
if combobox3.ItemIndex=1 then begin qstr:='table2 ';datasource1.DataSet:=table2;end;
if combobox3.ItemIndex=2 then begin qstr:='table4 ';datasource1.DataSet:=table4;end;
if combobox3.ItemIndex=3 then begin qstr:='table3 ';datasource1.DataSet:=table3;end;
if combobox3.ItemIndex=4 then begin qstr:='table5 ';datasource1.DataSet:=table5;end;

if (combobox3.ItemIndex=3) and (checkbox1.checked=true) then begin qstr:='table6';datasource1.DataSet:=table6;end;
if (combobox3.ItemIndex=4) and (checkbox1.checked=true) then begin qstr:='table7 ';datasource1.DataSet:=table7;end;



qstr:=combobox4.Items[combobox4.itemindex]+combobox2.Text;
qstr:=qstr+''''+edit1.Text+''''+qstr1;

datasource1.DataSet.Active:=true;
datasource1.DataSet.Filter:=qstr;
datasource1.DataSet.Filtered:=true;
label4.Caption:='共计: '+inttostr(datasource1.DataSet.RecordCount)+' 条记录';
end;

procedure TFmquery1.ComboBox1Click(Sender: TObject);
begin
combobox4.ItemIndex:=combobox1.ItemIndex;
end;

procedure TFmquery1.FormActivate(Sender: TObject);
begin
edit1.Text:='';
combobox3.OnClick(sender);
end;

procedure TFmquery1.Edit1Click(Sender: TObject);
begin
edit1.SelectAll;
end;

procedure TFmquery1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
label4.Caption:='共计: '+inttostr(datasource1.DataSet.RecordCount)+' 条记录';
end;

procedure TFmquery1.CheckBox1Click(Sender: TObject);
var i:integer;
begin
if checkbox1.Checked=true then
begin
if combobox3.ItemIndex=3 then
begin
table3.Active:=true;
table3.Filter:='jiezh <= ' + QuotedStr(datetostr(date()));
table3.Filtered:=true;
table6.Active:=true;
table6.Edit;
table6.EmptyTable;
batchmove1.Execute;
end;

if combobox3.ItemIndex=4 then
begin
table5.Active:=true;
table5.Filter:='jiezh <= ' + QuotedStr(datetostr(date()));
table5.Filtered:=true;
table7.Active:=true;
table7.Edit;
table7.EmptyTable;
batchmove2.Execute;
end;
end
else

if (combobox3.ItemIndex=3) and (checkbox1.Checked=false) then
begin
combobox1.Items.Clear;
combobox4.Items.Clear;
dbgrid1.Columns.Clear;
datasource1.DataSet:=table3;
table3.Active:=true;
dbgrid1.Columns:=Ufmjiaofei.Fmjiaofei.DBGrid1.Columns;
for i:=0 to table3.FieldCount-1 do
begin
combobox1.Items.Add(table3.Fields[i].DisplayLabel);
combobox4.Items.Add(table3.Fields[i].FieldName);
end;
table3.Active:=true;
combobox1.ItemIndex:=0;
dbgrid1.DataSource.DataSet:=table3;
end;

combobox3.OnClick(sender);

end;

procedure TFmquery1.BitBtn2Click(Sender: TObject);
begin
fmquery1.Print;
end;

procedure TFmquery1.FormCreate(Sender: TObject);
begin
application.OnMessage:=wuye.doenterastab;
end;

end.