?? 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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -