mc_mainform.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, ImgList, ComCtrls, ToolWin, Menus, ExtCtrls, DBTables,
  Buttons, StdCtrls, jpeg;

type
  TMainForm = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ImageList1: TImageList;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    Timer1: TTimer;
    ListView1: TListView;
    Splitter1: TSplitter;
    ImageList3: TImageList;
    ToolButton14: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    Data: TDatabase;
    ToolButton6: TToolButton;
    Query1: TQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N18: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
         procedure DisplayHint(Sender:Tobject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses MC_XQXXDJ, MC_DLXXDJ, MC_XQList, MC_DLList, MC_XQSCQ, MC_DLXXSCQ,
  MC_FWXXSCQ, MC_STSJSD, MC_YZXXDJ, MC_RKXXCX, MC_RKXXDJ, MC_FYBZSD,
  MC_KMSD, MC_CSHBZFY, MC_BGSWD, MC_WDCX,
  MC_FWCZDJ, MC_FZFYGL, MC_XQZDGL, MC_ZYXXGL, MC_TSDJ, MC_TSCX, MC_GLBSetup,
  MC_PBGL, MC_PBCX, MC_FYList, MC_ZXDDJ, MC_DCBYSJ, MC_ZXXXDJ, MC_QTKMSD,
  MC_QTFYCSH, MC_Insert, MC_FYSQ, MC_SFYL, MC_ZXXXCX, MC_WZXXDJ, MC_WZXXCX,
  MC_SSDJ, MC_XQSSCX, MC_WXDJ, MC_WXXXCX, MC_JLS, MC_FCZYCX, MC_YZXXCX,
  MC_CWXTSZ, MC_SDFSQ, MC_FYSQXZ, MC_CNFGL, MC_FWXZGL, MC_SFQKFX,
  MC_XQYGXXCX, MC_FWCZXXCX, MC_ZDCX, MC_GLBSJDY, MC_GCBSJDY, MC_CWBSJDY,
  MC_LSFYCX, MC_XTXX, MC_YHQXGL, MC_Login, MC_DL, MC_MHFYCX, MC_About,
  MC_SSS, MC_FWXXDJ, MC_DY_XQ;

{$R *.DFM}
procedure TMainForm.DisplayHint(Sender:Tobject);
begin
StatusBar1.Panels[3].Text:=Application.Hint; //鼠标在控件上停留时，状态栏将显示控件的提示信息
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[2].Text:='系统时间：'+TimeToStr(Time);  //显示系统时间
StatusBar1.Panels[1].Text:='系统日期:'+DATEToStr(DATE);   //显示系统日期
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
UserLogiA.ShowModal;
end;
procedure TMainForm.FormCreate(Sender: TObject);
var  s: String;
begin
Application.OnHint:=DisPlayHint;        //与应用项目的提示信息挂钩
GetDir(0,s);   //获取程序路径
Image1.Picture.Bitmap.LoadFromFile(s+'\WYGL.Bmp'); //指定窗体背景图片
end;

procedure TMainForm.ListView1DblClick(Sender: TObject);  //选择列表功能
var List_A:TListItem;
begin
List_A:=ListView1.Selected;
If List_A = Nil Then
begin
ShowMessage('请选择相关功能');
Exit;
end;
//经营部功能选项
if List_A.Caption='小区信息生成' then     //调入“小区信息生成“窗口
begin
If Not Assigned(XQSCQ) Then
begin
 XQSCQ:=TXQSCQ.Create(Self);
 XQSCQ.ShowModal;
End
Else
XQSCQ.ShowModal;
end;
if List_A.Caption='大楼信息生成' then     //调入“大楼信息生成“窗口
begin
If Not Assigned(DLXXSCQ) Then
begin
 DLXXSCQ:=TDLXXSCQ.Create(Self);
 DLXXSCQ.ShowModal;
End
Else
DLXXSCQ.ShowModal;
end;
if List_A.Caption='房屋信息生成' then     //调入“房屋信息生成“窗口
begin
If Not Assigned(FWXXSCQ) Then
 begin
   FWXXSCQ:=TFWXXSCQ.Create(Self);
   FWXXSCQ.ShowModal;
 End
Else
 FWXXSCQ.ShowModal;
end;
if List_A.Caption='小区信息登记' then     //调入“小区信息登记“窗口
begin
If Not Assigned(XQXXDJ) Then
  begin
    XQXXDJ:=TXQXXDJ.Create(Self);
    XQXXDJ.ShowModal;
  End
else XQXXDJ.Show;
end;
if List_A.Caption='大楼信息登记' then   //调入“大楼信息登记“窗口
begin
If Not Assigned(DLXXDJ) Then
  begin
    DLXXDJ:=TDLXXDJ.Create(Self);
    DLXXDJ.ShowModal;
  End
else DLXXDJ.Show;
end;
if List_A.Caption='房屋信息登记' then  //调入“房屋信息登记“窗口
begin
If Not Assigned(FWXXDJ) Then
  begin
    FWXXDJ:=TFWXXDJ.Create(Self);
    FWXXDJ.ShowModal;
  End
else FWXXDJ.Show;
end;
if ListView1.Columns[0].Caption='【经营部】功能选项' then
if List_A.Caption='系统数据设定' then     //调入“系统数据设定“窗口
begin
If Not Assigned(XTSJSD) Then
  begin
    XTSJSD:=TXTSJSD.Create(Self);
    XTSJSD.ShowModal;
  End
Else
  XTSJSD.ShowModal;
end;
if ListView1.Columns[0].Caption='【经营部】功能选项' then
if List_A.Caption='数据信息打印' then     //调入“数据打印“窗口
begin
   If Not Assigned(DY_XQ) Then
   begin
   DY_XQ:=TDY_XQ.Create(Self);
   DY_XQ.ShowModal;
   end;
end;
//【管理部】功能选项
if List_A.Caption='业主信息登记' then     //调入“业主信息登记“窗口
begin
If Not Assigned(YZXXDJ) Then
  begin
    YZXXDJ:=TYZXXDJ.Create(Self);
    YZXXDJ.ShowModal;
  End
Else
  YZXXDJ.ShowModal;
end;
if List_A.Caption='人口信息登记' then    //调入“人口信息登记“窗口
begin
If Not Assigned(RKXXDJ) Then
  begin
    RKXXDJ:=TRKXXDJ.Create(Self);
    RKXXDJ.ShowModal;
  end;
end;
if List_A.Caption='人口信息查询' then     //调入“人口信息查询“窗口
begin
If Not Assigned(RKXXCX) Then
  begin
    RKXXCX:=TRKXXCX.Create(Self);
    RKXXCX.ShowModal;
  End
Else
  RKXXCX.ShowModal;
end;
if List_A.Caption='房屋出租登记' then    //调入“房屋出租登记“窗口
begin
If Not Assigned(FWCZDJ) Then
  begin
    FWCZDJ:=TFWCZDJ.Create(Self);
    FWCZDJ.ShowModal;
  end;
end;
if List_A.Caption='小区制度管理' then     //调入“小区制度管理“窗口
begin
If Not Assigned(XQZDGL) Then
  begin
    XQZDGL:=TXQZDGL.Create(Self);
    XQZDGL.ShowModal;
  end;
end;
if List_A.Caption='小区员工管理' then      //调入“小区制度管理“窗口
begin
If Not Assigned(ZYXXGL) Then
  begin
       ZYXXGL:=TZYXXGL.Create(Self);
       ZYXXGL.ShowModal;
  end;
end;
if List_A.Caption='小区投诉登记' then      //调入“小区投诉登记“窗口
begin
If Not Assigned(TSDJ) Then
  begin
    TSDJ:=TTSDJ.Create(self);
    TSDJ.ShowModal;
  end;
end;
if List_A.Caption='小区投诉查询' then      //调入“小区投诉查询“窗口
begin
If Not Assigned(TSCX) Then
  begin
    TSCX:=TTSCX.Create(Self);
    TSCX.ShowModal;
  end;
end;
if ListView1.Columns[0].Caption='【管理部】功能选项' then
if List_A.Caption='系统数据设定' then       //调入“系统数据设定“窗口
begin
If Not Assigned(GLBSetup) Then
  begin
    GLBSetup:=TGLBSetup.Create(Self);
    GLBSetup.ShowModal;
  end;
end;
if ListView1.Columns[0].Caption='【管理部】功能选项' then
if List_A.Caption='数据信息打印' then        //调入管理部“数据信息打印“窗口
begin
If Not Assigned(GLBSJDY) Then
  begin
    GLBSJDY:=TGLBSJDY.Create(Self);
    GLBSJDY.ShowModal;
  end;
end;

//工程部功能选项
if List_A.Caption='装修信息登记' then        //调入“装修信息登记“窗口
begin
If Not Assigned(ZXXXDJ) Then
  begin
    ZXXXDJ:=TZXXXDJ.Create(Self);
    ZXXXDJ.ShowModal;
  end;
end;
if List_A.Caption='装修队登记' then        //调入“装修信息登记“窗口
begin
If Not Assigned(ZXDDJ) Then
  begin
    ZXDDJ:=TZXDDJ.Create(Self);
    ZXDDJ.ShowModal;
  end;
end;
if List_A.Caption='装修信息查询' then        //调入“装修信息查询“窗口
begin
If Not Assigned(ZXXXCX) Then
  begin
    ZXXXCX:=TZXXXCX.Create(Self);
    ZXXXCX.ShowModal;
  end;
end;
if List_A.Caption='违章信息登记' then        //调入“违章信息查询“窗口
begin
If Not Assigned(WZXXDJ) Then
  begin
    WZXXDJ:=TWZXXDJ.Create(Self);
    WZXXDJ.ShowModal;
  end;
end;
if List_A.Caption='违章信息查询' then         //调入“违章信息查询“窗口
begin
If Not Assigned(WZXXCX) Then
  begin
    WZXXCX:=TWZXXCX.Create(Self);
    WZXXCX.ShowModal;
  end;
end;
if List_A.Caption='小区设施登记' then         //调入“小区设施登记“窗口
begin
If Not Assigned(SSDJ) Then
  begin
    SSDJ:=TSSDJ.Create(Self);
    SSDJ.ShowModal;
  end;
end;
if List_A.Caption='小区设施查询' then         //调入“小区设施查询“窗口
begin
If Not Assigned(XQSSCX) Then
  begin
    XQSSCX:=TXQSSCX.Create(Self);
    XQSSCX.ShowModal;
  end;
end;
if List_A.Caption='维修信息登记' then         //调入“维修信息登记“窗口
begin
If Not Assigned(WXDJ) Then
  begin
    WXDJ:=TWXDJ.Create(sELF);
    WXDJ.ShowModal;
  end;
end;
if List_A.Caption='维修信息查询' then          //调入“维修信息查询“窗口
begin
If Not Assigned(WXXXCX) Then
  begin
    WXXXCX:=TWXXXCX.Create(Self);
    WXXXCX.ShowModal;
  end;
end;
if ListView1.Columns[0].Caption='【工程部】功能选项' then
if List_A.Caption='数据打印管理' then           //调入“工程部数据“打印管理
begin
If Not Assigned(GCBSJDY) Then
  begin