housefrm.~pas

房屋中介管理系统.支持多用户有不同的权限 采用MDI界面 由于没有打包

unit housefrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ImgList, Buttons, ExtCtrls, ComCtrls, ToolWin, XPMenu,
  Mask, DBCtrls,datamodulefrm, Grids, DBGrids,outfrm,printhouse1frm,printhouse2frm,inputfrm,printhouse3frm,
  Menus, Db, DBTables, TeeProcs, TeEngine, Chart, mxgraph, mxstore, mxDB,
  mxtables, Series, DbChart,buyfrm,hirefrm;

type
  Thouseform = class(TForm)
    ImageList1: TImageList;
    searchpanel: TPanel;
    Label1: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    binput2: TDBEdit;
    binput3: TDBEdit;
    binput4: TDBEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label32: TLabel;
    Label31: TLabel;
    Label12: TLabel;
    binput5: TDBEdit;
    input7: TDBEdit;
    binput8: TDBEdit;
    binput10: TDBEdit;
    binput9: TDBEdit;
    binput24: TDBEdit;
    binput25: TDBEdit;
    binput11: TDBEdit;
    binput12: TDBEdit;
    binput19: TDBEdit;
    binput20: TDBEdit;
    binput21: TDBEdit;
    binput22: TDBEdit;
    binput23: TDBEdit;
    binput44: TDBEdit;
    binput43: TDBEdit;
    binput6: TDBEdit;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    binput26: TDBCheckBox;
    binput27: TDBCheckBox;
    binput28: TDBCheckBox;
    binput29: TDBCheckBox;
    binput30: TDBCheckBox;
    binput31: TDBCheckBox;
    binput32: TDBCheckBox;
    binput33: TDBCheckBox;
    binput34: TDBCheckBox;
    binput35: TDBCheckBox;
    binput36: TDBCheckBox;
    binput37: TDBCheckBox;
    binput38: TDBCheckBox;
    binput39: TDBEdit;
    binput13: TDBEdit;
    binput40: TDBEdit;
    binput45: TDBEdit;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    ComboBox5: TComboBox;
    DBNavigator1: TDBNavigator;
    inputpanel: TPanel;
    printpanel: TPanel;
    planpanel: TPanel;
    successpanel: TPanel;
    GroupBox4: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    label13: TLabel;
    binput14: TDBEdit;
    binput15: TDBEdit;
    binput16: TDBEdit;
    binput17: TDBEdit;
    binput18: TDBEdit;
    binput41: TDBCheckBox;
    numberlabel: TLabel;
    Label28: TLabel;
    ainput25: TEdit;
    ainput24: TEdit;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Edit3: TEdit;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    ainput9: TComboBox;
    ainput10: TComboBox;
    ainput11: TComboBox;
    ainput12: TComboBox;
    ainput43: TComboBox;
    Label64: TLabel;
    ainput20: TEdit;
    ainput21: TEdit;
    ainput22: TEdit;
    ainput5: TEdit;
    ainput6: TEdit;
    ainput44: TEdit;
    ainput14: TEdit;
    ainput15: TEdit;
    ainput16: TEdit;
    ainput17: TEdit;
    ainput18: TEdit;
    ainput2: TEdit;
    ainput3: TEdit;
    ainput4: TEdit;
    ainput13: TEdit;
    ainput39: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    ainput26: TCheckBox;
    ainput33: TCheckBox;
    ainput27: TCheckBox;
    ainput34: TCheckBox;
    ainput28: TCheckBox;
    ainput35: TCheckBox;
    ainput29: TCheckBox;
    ainput36: TCheckBox;
    ainput30: TCheckBox;
    ainput37: TCheckBox;
    ainput38: TCheckBox;
    ainput31: TCheckBox;
    ainput32: TCheckBox;
    ainput41: TCheckBox;
    countlabel: TLabel;
    Button3: TButton;
    Button4: TButton;
    ainput40: TDateTimePicker;
    ainput7: TComboBox;
    ainput8: TComboBox;
    ainput19: TComboBox;
    aComboBox: TComboBox;
    Label61: TLabel;
    ComboBox7: TComboBox;
    ComboBox2: TComboBox;
    ComboBox4: TComboBox;
    ComboBox6: TComboBox;
    ComboBox8: TComboBox;
    DBText1: TDBText;
    Label33: TLabel;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Button5: TButton;
    Label34: TLabel;
    Edit1: TEdit;
    DBGrid2: TDBGrid;
    ComboBox9: TComboBox;
    Button7: TButton;
    Button8: TButton;
    XPMenu1: TXPMenu;
    Edit8: TEdit;
    date8: TDateTimePicker;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid4: TDBGrid;
    Label68: TLabel;
    ComboBox10: TComboBox;
    Edit9: TEdit;
    date9: TDateTimePicker;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label70: TLabel;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    Edit12: TEdit;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    DBGrid5: TDBGrid;
    date12: TDateTimePicker;
    cs: TPanel;
    mdiToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    fg: TPanel;
    DBGrid6: TDBGrid;
    ComboBox13: TComboBox;
    SpeedButton7: TSpeedButton;
    Label69: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Edit10: TEdit;
    csdata1: TDateTimePicker;
    DBNavigator2: TDBNavigator;
    Button10: TButton;
    Panel1: TPanel;
    cstable: TTable;
    cs1: TAutoIncField;
    cs2: TStringField;
    cs3: TMemoField;
    cs4: TDateTimeField;
    csdatasource: TDataSource;
    csedit1: TEdit;
    csedit2: TEdit;
    csdate2: TDateTimePicker;
    csmemo: TMemo;
    Button9: TButton;
    SpeedButton8: TSpeedButton;
    DBGrid7: TDBGrid;
    fgedit1: TEdit;
    fgedit2: TEdit;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    fgdate2: TDateTimePicker;
    fgmemo: TMemo;
    DBNavigator3: TDBNavigator;
    Button11: TButton;
    Button12: TButton;
    ComboBox14: TComboBox;
    fgtable: TTable;
    fgdatasource: TDataSource;
    Edit11: TEdit;
    DateTimePicker1: TDateTimePicker;
    fg1: TAutoIncField;
    fg2: TStringField;
    fg3: TMemoField;
    fg4: TDateTimeField;
    Database1: TDatabase;
    planRadioGroup1: TRadioGroup;
    planComboBox: TComboBox;
    planRadioGroup2: TRadioGroup;
    planQuery: TQuery;
    planSource: TDataSource;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    Label35: TLabel;
    Label36: TLabel;
    DBGrid3: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput43KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput24KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput25KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput20KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput21KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput40KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput42KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput39KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput17KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ainput20KeyPress(Sender: TObject; var Key: Char);
    procedure ainput7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure input8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ainput44KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure name19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure aComboBoxChange(Sender: TObject);
    procedure ainput25KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure binput45Change(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ainput9KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure inputpanelClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ainput5KeyPress(Sender: TObject; var Key: Char);
    procedure ainput6KeyPress(Sender: TObject; var Key: Char);
    procedure ainput24KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox9Change(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure date8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox10Change(Sender: TObject);
    procedure selectprintdata;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ComboBox12Change(Sender: TObject);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure selechousedetail;
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton11Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure ComboBox13Change(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure csedit1KeyPress(Sender: TObject; var Key: Char);
    procedure csdatasourceDataChange(Sender: TObject; Field: TField);
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure fgdatasourceDataChange(Sender: TObject; Field: TField);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure fgedit1KeyPress(Sender: TObject; var Key: Char);
    procedure changedbchar;
    procedure planRadioGroup1Click(Sender: TObject);
    procedure planComboBoxChange(Sender: TObject);
    procedure planRadioGroup2Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
   number:integer  ;
   aindex:integer;
   buyindex:integer;
   printindex:integer;
   printindex2:integer;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  houseform: Thouseform;

implementation

{$R *.DFM}
uses mainfrm;
procedure Thouseform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree
end;

procedure Thouseform.FormDestroy(Sender: TObject);
begin
mainform.childhouseform:=nil;
end;

procedure Thouseform.FormActivate(Sender: TObject);
begin
searchpanel.Parent:=self ;
inputpanel.parent:=self;
printpanel.parent :=self;
planpanel.parent:=self;
successpanel.parent:=self;
countlabel.caption:='当前记录总数为：'+inttostr(datamodule2.inputtable.recordcount);


end;

procedure Thouseform.ToolButton1Click(Sender: TObject);
begin
mainform.N9Click(sender);
end;

procedure Thouseform.ToolButton2Click(Sender: TObject);
begin
mainform.N10Click(sender);
end;