main.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ImgList, jpeg, DB, ADODB,
  ShellApi, ToolWin,inifiles, ComObj, Excel2000,COMMDLG,IdHashMessageDigest,IdGlobal, IdHash;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    S31: TMenuItem;
    Timer1: TTimer;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    NS1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    M41: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N510: TMenuItem;
    M51: TMenuItem;
    M52: TMenuItem;
    M53: TMenuItem;
    N16: TMenuItem;
    N79: TMenuItem;
    N710: TMenuItem;
    N711: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N911: TMenuItem;
    N912: TMenuItem;
    M91: TMenuItem;
    M92: TMenuItem;
    M101: TMenuItem;
    M102: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N40: TMenuItem;
    N1: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N80: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N106: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N117: TMenuItem;
    N118: TMenuItem;
    N119: TMenuItem;
    N120: TMenuItem;
    N121: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N124: TMenuItem;
    N125: TMenuItem;
    N126: TMenuItem;
    N127: TMenuItem;
    N128: TMenuItem;
    N129: TMenuItem;
    N130: TMenuItem;
    N131: TMenuItem;
    N132: TMenuItem;
    N133: TMenuItem;
    N134: TMenuItem;
    N136: TMenuItem;
    N137: TMenuItem;
    N138: TMenuItem;
    N139: TMenuItem;
    N140: TMenuItem;
    N141: TMenuItem;
    N142: TMenuItem;
    N143: TMenuItem;
    N144: TMenuItem;
    N145: TMenuItem;
    N146: TMenuItem;
    N147: TMenuItem;
    N148: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N88: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    N110: TMenuItem;
    N176: TMenuItem;
    N177: TMenuItem;
    N178: TMenuItem;
    N179: TMenuItem;
    N180: TMenuItem;
    N182: TMenuItem;
    N185: TMenuItem;
    N186: TMenuItem;
    N187: TMenuItem;
    N189: TMenuItem;
    N211: TMenuItem;
    N212: TMenuItem;
    N213: TMenuItem;
    N214: TMenuItem;
    N215: TMenuItem;
    N216: TMenuItem;
    N217: TMenuItem;
    N218: TMenuItem;
    N219: TMenuItem;
    N220: TMenuItem;
    N221: TMenuItem;
    N222: TMenuItem;
    N223: TMenuItem;
    N224: TMenuItem;
    N225: TMenuItem;
    N226: TMenuItem;
    N227: TMenuItem;
    N228: TMenuItem;
    N229: TMenuItem;
    N230: TMenuItem;
    N232: TMenuItem;
    N233: TMenuItem;
    N234: TMenuItem;
    N237: TMenuItem;
    N238: TMenuItem;
    N239: TMenuItem;
    N241: TMenuItem;
    N243: TMenuItem;
    N244: TMenuItem;
    N245: TMenuItem;
    N246: TMenuItem;
    N247: TMenuItem;
    N248: TMenuItem;
    N249: TMenuItem;
    N250: TMenuItem;
    N263: TMenuItem;
    N266: TMenuItem;
    N268: TMenuItem;
    ym1: TMenuItem;
    N283: TMenuItem;
    N295: TMenuItem;
    N296: TMenuItem;
    N13: TMenuItem;
    N192: TMenuItem;
    N193: TMenuItem;
    N195: TMenuItem;
    N1111: TMenuItem;
    N200: TMenuItem;
    N201: TMenuItem;
    N202: TMenuItem;
    N286: TMenuItem;
    N287: TMenuItem;
    N288: TMenuItem;
    N289: TMenuItem;
    N290: TMenuItem;
    N299: TMenuItem;
    N302: TMenuItem;
    N303: TMenuItem;
    N304: TMenuItem;
    N305: TMenuItem;
    N306: TMenuItem;
    N307: TMenuItem;
    N315: TMenuItem;
    N316: TMenuItem;
    N317: TMenuItem;
    N318: TMenuItem;
    N319: TMenuItem;
    N17: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N33: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N151: TMenuItem;
    N152: TMenuItem;
    N112: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    Timer3: TTimer;
    N3: TMenuItem;
    Timer2: TTimer;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton333: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton666: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton999: TToolButton;
    ToolButton9: TToolButton;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Label11: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;

    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure S31Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N189Click(Sender: TObject);
    procedure N510Click(Sender: TObject);
    procedure N237Click(Sender: TObject);
    procedure N238Click(Sender: TObject);
    procedure N239Click(Sender: TObject);
    procedure N241Click(Sender: TObject);
    procedure N98Click(Sender: TObject);
    procedure N234Click(Sender: TObject);
    procedure N123Click(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N87Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure ym1Click(Sender: TObject);
    procedure N268Click(Sender: TObject);
    procedure N244Click(Sender: TObject);
    procedure N710Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N129Click(Sender: TObject);
    procedure N130Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N124Click(Sender: TObject);
    procedure N133Click(Sender: TObject);
    procedure N266Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure M41Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N80Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure N88Click(Sender: TObject);
    procedure N89Click(Sender: TObject);
    procedure N109Click(Sender: TObject);
    procedure N177Click(Sender: TObject);
    procedure N179Click(Sender: TObject);
    procedure N180Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure M52Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure M53Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N185Click(Sender: TObject);
    procedure N186Click(Sender: TObject);
    procedure N187Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N211Click(Sender: TObject);
    procedure N212Click(Sender: TObject);
    procedure N233Click(Sender: TObject);
    procedure N283Click(Sender: TObject);
    procedure N192Click(Sender: TObject);
    procedure N193Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N711Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N251Click(Sender: TObject);
    procedure N252Click(Sender: TObject);
    procedure N253Click(Sender: TObject);
    procedure N254Click(Sender: TObject);
    procedure N255Click(Sender: TObject);
    procedure M101Click(Sender: TObject);
    procedure N106Click(Sender: TObject);
    procedure N114Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N912Click(Sender: TObject);
    procedure N214Click(Sender: TObject);
    procedure N215Click(Sender: TObject);
    procedure N217Click(Sender: TObject);
    procedure N218Click(Sender: TObject);
    procedure N221Click(Sender: TObject);
    procedure N220Click(Sender: TObject);
    procedure N224Click(Sender: TObject);
    procedure N223Click(Sender: TObject);
    procedure N227Click(Sender: TObject);
    procedure N226Click(Sender: TObject);
    procedure N296Click(Sender: TObject);
    procedure N295Click(Sender: TObject);
    procedure N93Click(Sender: TObject);
    procedure M91Click(Sender: TObject);
    procedure N119Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N178Click(Sender: TObject);
    procedure N232Click(Sender: TObject);
    procedure N99Click(Sender: TObject);
    procedure N230Click(Sender: TObject);
    procedure N245Click(Sender: TObject);
    procedure N247Click(Sender: TObject);
    procedure N246Click(Sender: TObject);
    procedure N248Click(Sender: TObject);
    procedure N249Click(Sender: TObject);
    procedure N250Click(Sender: TObject);
    procedure N1111Click(Sender: TObject);
    procedure N286Click(Sender: TObject);
    procedure N287Click(Sender: TObject);
    procedure N288Click(Sender: TObject);
    procedure N146Click(Sender: TObject);
    procedure N120Click(Sender: TObject);
    procedure N122Click(Sender: TObject);
    procedure N126Click(Sender: TObject);
    procedure N127Click(Sender: TObject);
    procedure N128Click(Sender: TObject);
    procedure N131Click(Sender: TObject);
    procedure N134Click(Sender: TObject);
    procedure N136Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N94Click(Sender: TObject);
    procedure N302Click(Sender: TObject);
    procedure N304Click(Sender: TObject);
    procedure N305Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N152Click(Sender: TObject);
    procedure N151Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N303Click(Sender: TObject);
    procedure N306Click(Sender: TObject);
    procedure N307Click(Sender: TObject);
    procedure N315Click(Sender: TObject);
    procedure N316Click(Sender: TObject);
    procedure N317Click(Sender: TObject);
    procedure N318Click(Sender: TObject);
    procedure N319Click(Sender: TObject);
    procedure N117Click(Sender: TObject);
    procedure N201Click(Sender: TObject);
    procedure N200Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N112Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N3Click(Sender: TObject);
    procedure N202Click(Sender: TObject);
    procedure N263Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    
  private
    { Private declarations }
      DllHandle: THandle;
  public
    { Public declarations }
       t1,t2,t3,t4,t5,t6,t7,t8,t9,t10:string;
       bRealtyI21:bool;
       bRealtyJ2:bool;
       bRealtyJ3:bool;
       bRealtyJ4:bool;
       bRealtyJA21:bool;
       bRealtyJ22A:bool;
       bRealtyF31A:BOOL;
       bRealtyF32:bool;
       sCompany:string;
       function StdInt(str:string):string;
       function StdDou2(str:string):string;
       function StdDou4(str:string):string;
       function StdDou5(str:string):string;
       function StdDou8(str:string):string;
       function getPY(hzchar:string):string;
       function getName(s1,s2:string):string;
       //function getName1(s1,s2:string):string;
       function getNum(s:string):string;
       function getLastName(s:string):string;
       function ClearLine(s:string):string;
       function getNum1(s1:string):string;
       function getNum2(s1:string):string;
       function getNum3(s1:string):string;
       function getNum4(s1:string):string;
       procedure OutputExcel(ListView1: TListView);
       procedure showChmHelp(sTopic:string);
       function getPodo(str1,str2:string):bool;
       //1-------------------------------
    procedure JudgeAndAdjust;
    procedure CaptionRotateLeft;

  end;

  T_ProvaChild = procedure (n:integer;ParentApplication: TApplication; ParentForm: TForm); stdcall;

var //全局变量
    MainForm: TMainForm;
    czy,czy1,sModul,sModul1,sStation:String;
    MyMD5: TIdHashMessageDigest5;     
    mypath:string;
    bOK:bool;
    rep7:string;
    sPrintc1:string;
    sPrintc2:string;
    sPrintc3:string;
    sPrintc:string;
    sFilep:string;
    sTitlep:string;
    gTime:string;
    sg1,sg2,sg3:string;
    st1,st2,st3,st4,st5:string;