📄 mainfm.pas.~61~

📁 一款房产中介软件
💻 ~61~
字号:
unit MainFM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ADODB, DB, ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnList,
  XPStyleActnCtrls, StdCtrls;

type
  TfrmMain = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    actmgr1: TActionManager;
    actA1: TAction;
    actA2: TAction;
    actA3: TAction;
    actA4: TAction;
    actA2_1: TAction;
    actA2_2: TAction;
    actA2_3: TAction;
    actA2_4: TAction;
    actA3_1: TAction;
    actA3_2: TAction;
    actA3_3: TAction;
    actA3_4: TAction;
    actA3_5: TAction;
    actA3_6: TAction;
    actA3_7: TAction;
    actA3_B1: TAction;
    actA4_1: TAction;
    actA4_2: TAction;
    actA4_3: TAction;
    actA4_4: TAction;
    actA4_5: TAction;
    actA4_1_1: TAction;
    actA4_1_2: TAction;
    actA4_1_3: TAction;
    actA4_1_4: TAction;
    actA4_1_5: TAction;
    actA4_1_6: TAction;
    actA4_1_7: TAction;
    actA1_1: TAction;
    actA1_2: TAction;
    actA1_3: TAction;
    actA1_4: TAction;
    actA1_5: TAction;
    actA1_6: TAction;
    actA1_7: TAction;
    actA1_8: TAction;
    actA1_9: TAction;
    actA1_B1: TAction;
    actA1_7_1: TAction;
    actA1_7_2: TAction;
    actA1_7_3: TAction;
    actA1_7_4: TAction;
    actA1_7_5: TAction;
    actA1_7_6: TAction;
    actA1_7_7: TAction;
    actA1_7_8: TAction;
    actA1_7_7_1: TAction;
    actA1_7_7_2: TAction;
    actA_H: TAction;
    actA4_6: TAction;
    actmmb1: TActionMainMenuBar;
    procedure N13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure actA1Execute(Sender: TObject);
    procedure actA5Execute(Sender: TObject);
    procedure actA2_1Execute(Sender: TObject);
    procedure actA2_2Execute(Sender: TObject);
    procedure actA2_3Execute(Sender: TObject);
    procedure actA2_4Execute(Sender: TObject);
    procedure actA3_1Execute(Sender: TObject);
    procedure actA3_2Execute(Sender: TObject);
    procedure actA3_3Execute(Sender: TObject);
    procedure actA3_4Execute(Sender: TObject);
    procedure actA3_5Execute(Sender: TObject);
    procedure actA3_6Execute(Sender: TObject);
    procedure actA3_7Execute(Sender: TObject);
    procedure actA4_2Execute(Sender: TObject);
    procedure actA4_3Execute(Sender: TObject);
    procedure actA4_4Execute(Sender: TObject);
    procedure actA4_5Execute(Sender: TObject);
    procedure actA4_1_1Execute(Sender: TObject);
    procedure actA1_1Execute(Sender: TObject);
    procedure actA1_2Execute(Sender: TObject);
    procedure actA1_3Execute(Sender: TObject);
    procedure actA1_4Execute(Sender: TObject);
    procedure actA1_5Execute(Sender: TObject);
    procedure actA1_6Execute(Sender: TObject);
    procedure actA1_8Execute(Sender: TObject);
    procedure actA1_9Execute(Sender: TObject);
    procedure actA1_7_1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    sunitFilter: String;
  end;

var
  frmMain: TfrmMain;

implementation

uses Globe, MainDM, ViewHouseFM, PrintContractFM, ViewRutOnRecordFM,
  VIEWLicenceFM, CalFM, CompactDBFM, RestoreDBFM, NavigatorFM, ViewLoginFM,
  SearchByTimeFM, SearchSellOnlyFM, SearchByInfringeFM, SearchByHourseFM,
  SearchBySellFM, ListSellCaseFM, ComVIEWFM, WorkerViewFM, ViewCasterFM,
  VIEWItemFM;

{$R *.dfm}

procedure TfrmMain.actA1Execute(Sender: TObject);
begin
 //chm
end;

procedure TfrmMain.actA1_1Execute(Sender: TObject);
begin
 if frmListSellCase = nil then
   frmListSellCase := TfrmListSellCase.Create(nil);
 frmListSellCase.Show;
end;

procedure TfrmMain.actA1_2Execute(Sender: TObject);
begin
  if frmComView = nil then
    frmComView := TfrmComView.Create(nil);
  frmComView.Show;
end;

procedure TfrmMain.actA1_3Execute(Sender: TObject);
begin
  if frmWorkerView = nil then
    frmWorkerView := TfrmWorkerView.Create(nil);
  frmWorkerView.Show;
end;

procedure TfrmMain.actA1_4Execute(Sender: TObject);
begin
  if frmViewCaster = nil then
    frmViewCaster := TfrmViewCaster.Create(nil);;
  frmViewCaster.Show;
end;

procedure TfrmMain.actA1_5Execute(Sender: TObject);
begin
  if frmVIEWItem = nil then
    frmVIEWItem := TfrmVIEWItem.Create(nil);;
  frmVIEWItem.Show;
end;

procedure TfrmMain.actA1_6Execute(Sender: TObject);
begin
  if frmViewHouse = nil then
    frmViewHouse := TfrmViewHouse.Create(nil);
  frmViewHouse.Show;
end;

procedure TfrmMain.actA1_7_1Execute(Sender: TObject);
Var
   sFilter          : String;
Begin
   Case TAction(Sender).tag Of
      99:                               //全体

         sFilter := '无';
      98:                               //预售

         sFilter := '预(销)售';
      97:                               //拆迁

         sFilter := '拆迁还建';
      96:                               //预定

         sFilter := '预定';
      95:                               //预留

         sFilter := '预留';
      94:                               //抵押

         sFilter := '抵押';
      93:                               //租赁

         sFilter := '租赁';
      92:                               //待售

         sFilter := '未售';

   End;

   sunitFilter := sFilter;
   if frmViewUnit = nil then
      frmViewUnit := TfrmViewUnit.create(self);
   frmViewUnit.Show;
end;

procedure TfrmMain.actA1_8Execute(Sender: TObject);
begin
  if frmViewRutOnRecord  = nil then
    frmViewRutOnRecord := TfrmViewRutOnRecord.Create(nil);;
  frmViewRutOnRecord.Show;
end;

procedure TfrmMain.actA1_9Execute(Sender: TObject);
begin
  if frmVIEWLicence = nil then
    frmVIEWLicence := TfrmVIEWLicence.Create(nil);
  frmVIEWLicence.Show;
end;

procedure TfrmMain.actA2_1Execute(Sender: TObject);
begin
  if frmViewHouse = nil then
    frmViewHouse := TfrmViewHouse.Create(nil);
  frmViewHouse.Show;
end;

procedure TfrmMain.actA2_2Execute(Sender: TObject);
begin
  if frmPrintContract = nil then
    frmPrintContract := TfrmPrintContract.Create(nil);
  frmPrintContract.Show;
end;

procedure TfrmMain.actA2_3Execute(Sender: TObject);
begin
  if frmViewRutOnRecord = nil then
    frmViewRutOnRecord := TfrmViewRutOnRecord.Create(nil);
  frmViewRutOnRecord.Show;
end;

procedure TfrmMain.actA2_4Execute(Sender: TObject);
begin
  if frmVIEWLicence = nil then
    frmVIEWLicence := TfrmVIEWLicence.Create(nil);
  frmVIEWLicence.Show;
end;

procedure TfrmMain.actA3_1Execute(Sender: TObject);
begin
  if frmCal = nil then
    frmCal := TfrmCal.Create(nil);
  frmCal.Show;
end;

procedure TfrmMain.actA3_2Execute(Sender: TObject);
Var
   adotemp          : TADOQuery;
   i                : integer;
   sTnames          : TStringlist;
Begin
   If OPName <> 'ADMIN' Then Begin
      Application.MessageBox('你不是超级用户，无法对数据库进行初始化！',
         '警告信息', mb_OK + MB_ICONERROR);
      Exit;
   End;

   If Application.MessageBox('即将初始化本数据库系统。' + #13 +
      '其结果是清空数据库中内容，！' + #13 +
      '建议你先备份数据库。' + #13 +
      '是否开始初始化？', '询问信息', mb_yesno + MB_ICONQUESTION) = mrNo Then
      Exit;
   sTnames := TStringlist.create;
   adotemp := TADOQuery.create(self);
   With adotemp Do Begin
      connection := DMMain.ADOConnection1;
      DMMain.ADOConnection1.GetTableNames(sTnames);
      For i := 0 To sTnames.Count - 1 Do Begin
         If (sTnames[i] = '用户登入表') Or
            (sTnames[i] = '登入信息表') Then Continue;

         sql.Text := 'delete * from ' + sTnames[i];
         ExecSQL;
      End;
      Free;
   End;
   sTnames.Free;
   Application.MessageBox('初始化数据库完毕。' + #13 +
      '数据库内容已被清空！', '提示信息', MB_ICONINFORMATION);
end;

procedure TfrmMain.actA3_3Execute(Sender: TObject);
begin
  ///
end;

procedure TfrmMain.actA3_4Execute(Sender: TObject);
begin
   If Application.MessageBox('备份数据库前需要关闭所有操作窗口！是否关闭？',
      '询问信息', mb_yesno + MB_ICONQUESTION) = mrNo Then
      Exit;

  // CloseWins;
   Application.ProcessMessages;
   frmCompactDB := TfrmCompactDB.create(self);
   frmCompactDB.Show;
end;

procedure TfrmMain.actA3_5Execute(Sender: TObject);
begin
   If Application.MessageBox('备份数据库前需要关闭所有操作窗口！是否关闭？',
      '询问信息', mb_yesno + MB_ICONQUESTION) = mrNo Then
      Exit;

  // CloseWins;
   Application.ProcessMessages;
   frmRestoreDB := TfrmRestoreDB.create(self);
   frmRestoreDB.Show;
end;

procedure TfrmMain.actA3_6Execute(Sender: TObject);
begin
  if frmNavigator = nil then
    frmNavigator := TfrmNavigator.Create(nil);
  frmNavigator.Show;
end;

procedure TfrmMain.actA3_7Execute(Sender: TObject);
begin
  If OPName = 'ADMIN' Then Begin
     frmViewLogin := TfrmViewLogin.Create(nil);
     frmViewLogin.Show;
   End
   Else
      Application.MessageBox('你不是超级用户，无权查看用户登入日志！',
         '警告信息', mb_yesno + MB_ICONERROR);
end;

procedure TfrmMain.actA4_1_1Execute(Sender: TObject);
   Procedure SetFilter(sf: String);
   Begin
      frmSearchBySell.combobox1.Text := sf;
      frmSearchBySell.LbSpeedButton1.click;
 //    SearchBySellForm.DBGridEH1CellClick(form23.DBGridEH1.Columns.Items[0]);
   End;
Var
   sFilter          : String;
Begin
   Case TAction(Sender).tag Of
      101:                              //预售

         sFilter := '预(销)售';
      102:                              //拆迁

         sFilter := '拆迁还建';
      103:                              //预定

         sFilter := '预定';
      104:                              //预留

         sFilter := '预留';
      105:                              //抵押
         sFilter := '租赁';

      106:                              //租赁
         sFilter := '抵押';

      107:                              //待售

         sFilter := '未售';

   End;
   if frmSearchBySell = nil then
    frmSearchBySell := TfrmSearchBySell.create(nil);
   SetFilter(sFilter);
   frmSearchBySell.Show;
end;

procedure TfrmMain.actA4_2Execute(Sender: TObject);
begin
  if frmSearchByTime = nil then
    frmSearchByTime := TfrmSearchByTime.Create(nil);
  frmSearchByTime.Show;
end;

procedure TfrmMain.actA4_3Execute(Sender: TObject);
begin
 if frmSearchSellOnly = nil then
   frmSearchSellOnly := TfrmSearchSellOnly.Create(nil);
 frmSearchSellOnly.Show;
end;

procedure TfrmMain.actA4_4Execute(Sender: TObject);
begin
  if frmSearchByInfringe = nil then
    frmSearchByInfringe := TfrmSearchByInfringe.Create(nil);
  frmSearchByInfringe.Show
end;

procedure TfrmMain.actA4_5Execute(Sender: TObject);
begin
  if frmSearchByHourse = nil then
    frmSearchByHourse := TfrmSearchByHourse.Create(nil);
  frmSearchByHourse.Show;
end;

procedure TfrmMain.actA5Execute(Sender: TObject);
begin
  //注册信息
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin
//  if frmTaxAccount = nil then
//    frmTaxAccount := TfrmTaxAccount.Create(nil);
//  frmTaxAccount.Show;

end;

procedure TfrmMain.N13Click(Sender: TObject);
Var
   i                : integer;
   sTname          : TStringlist;
   procedure DelTable(TableName: WideString);
   var
     qryDelete: TADOQuery;
   begin
     qryDelete := TADOQuery.Create(nil);
     qryDelete.Connection := DMMain.ADOConnection1;
     qryDelete.SQL.Text := 'delete from ' +  TableName;
     qryDelete.ExecSQL;
     FreeAndNil(qryDelete);
   end;
Begin
  If Uppercase(OPName) = 'ADMIN' Then
  Begin
    If not (Application.MessageBox('您确定清空数据内容吗？',
       '初始化数据库', mb_yesno + MB_ICONWARNING) = mrNo) Then
    begin
      sTname := TStringList.Create;
      DMMain.ADOConnection1.GetTableNames(sTname);
      if (sTname.IndexOf('用户登入表') > - 1) and (sTname.IndexOf('登入信息表') > - 1) then
      begin
        DelTable('用户登入表');
        DelTable('登入信息表');
      end
      else
        Application.MessageBox('未找到系统所需要的数据表', '数据库初始化失败',
          MB_ICONINFORMATION);
      sTname.Free;
      Application.MessageBox('初始化数据库完毕。' + #13 +
         '数据库内容已被清空！', '提示信息', MB_ICONINFORMATION);
    end;
 End
 else
   Application.MessageBox('你不是超级用户，无法对数据库进行初始化！',
     '警告信息', mb_OK + MB_ICONERROR);

end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -