1221 lines
28 KiB
ObjectPascal
1221 lines
28 KiB
ObjectPascal
unit U_MachineArea;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, Buttons, DB, ADODB, StdCtrls, cxControls, cxPC, ComCtrls,
|
||
ToolWin, ExtCtrls, jpeg, DBClient;
|
||
|
||
type
|
||
TfrmMachineArea = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBClose: TToolButton;
|
||
cxPageControl1: TcxPageControl;
|
||
cxTabSheet1: TcxTabSheet;
|
||
cxTabSheet2: TcxTabSheet;
|
||
ScrollBox1: TScrollBox;
|
||
Panel8: TPanel;
|
||
Label2: TLabel;
|
||
Panel9: TPanel;
|
||
Panel16: TPanel;
|
||
Panel17: TPanel;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Panel2: TPanel;
|
||
Panel5: TPanel;
|
||
Panel6: TPanel;
|
||
Panel7: TPanel;
|
||
Label3: TLabel;
|
||
Panel10: TPanel;
|
||
Panel12: TPanel;
|
||
Panel13: TPanel;
|
||
Panel18: TPanel;
|
||
Panel19: TPanel;
|
||
Label4: TLabel;
|
||
Panel20: TPanel;
|
||
Panel23: TPanel;
|
||
Panel24: TPanel;
|
||
Panel25: TPanel;
|
||
Label5: TLabel;
|
||
Panel26: TPanel;
|
||
Panel29: TPanel;
|
||
Panel30: TPanel;
|
||
Panel31: TPanel;
|
||
Label6: TLabel;
|
||
Panel32: TPanel;
|
||
Panel35: TPanel;
|
||
Panel36: TPanel;
|
||
Panel37: TPanel;
|
||
Label7: TLabel;
|
||
Panel38: TPanel;
|
||
Panel40: TPanel;
|
||
Panel41: TPanel;
|
||
Panel42: TPanel;
|
||
Panel43: TPanel;
|
||
Label8: TLabel;
|
||
Panel44: TPanel;
|
||
Panel47: TPanel;
|
||
Panel48: TPanel;
|
||
Panel49: TPanel;
|
||
Label9: TLabel;
|
||
Panel50: TPanel;
|
||
Panel53: TPanel;
|
||
Panel54: TPanel;
|
||
Panel55: TPanel;
|
||
Label10: TLabel;
|
||
Panel56: TPanel;
|
||
Panel59: TPanel;
|
||
Panel60: TPanel;
|
||
Panel61: TPanel;
|
||
Label11: TLabel;
|
||
Panel62: TPanel;
|
||
Panel65: TPanel;
|
||
Panel66: TPanel;
|
||
Panel67: TPanel;
|
||
Label12: TLabel;
|
||
Panel68: TPanel;
|
||
Panel71: TPanel;
|
||
Panel72: TPanel;
|
||
Panel73: TPanel;
|
||
Label13: TLabel;
|
||
Panel74: TPanel;
|
||
Panel77: TPanel;
|
||
Panel78: TPanel;
|
||
Panel79: TPanel;
|
||
Label14: TLabel;
|
||
Panel80: TPanel;
|
||
Panel83: TPanel;
|
||
Panel84: TPanel;
|
||
Panel85: TPanel;
|
||
Label15: TLabel;
|
||
Panel86: TPanel;
|
||
Panel89: TPanel;
|
||
Panel90: TPanel;
|
||
Panel91: TPanel;
|
||
Label16: TLabel;
|
||
Panel92: TPanel;
|
||
Panel95: TPanel;
|
||
Panel96: TPanel;
|
||
Panel97: TPanel;
|
||
Label17: TLabel;
|
||
Panel98: TPanel;
|
||
Panel101: TPanel;
|
||
Panel102: TPanel;
|
||
Panel14: TPanel;
|
||
Panel15: TPanel;
|
||
Panel21: TPanel;
|
||
Panel22: TPanel;
|
||
Panel27: TPanel;
|
||
Panel3: TPanel;
|
||
Panel4: TPanel;
|
||
Panel28: TPanel;
|
||
Panel33: TPanel;
|
||
Panel34: TPanel;
|
||
Panel39: TPanel;
|
||
Panel45: TPanel;
|
||
Panel46: TPanel;
|
||
Panel51: TPanel;
|
||
Panel52: TPanel;
|
||
Panel11: TPanel;
|
||
Label18: TLabel;
|
||
Panel57: TPanel;
|
||
Panel58: TPanel;
|
||
Panel63: TPanel;
|
||
Panel64: TPanel;
|
||
Panel69: TPanel;
|
||
Label19: TLabel;
|
||
Panel70: TPanel;
|
||
Panel75: TPanel;
|
||
Panel76: TPanel;
|
||
Panel81: TPanel;
|
||
Panel82: TPanel;
|
||
Label20: TLabel;
|
||
Panel87: TPanel;
|
||
Panel88: TPanel;
|
||
Panel93: TPanel;
|
||
Panel94: TPanel;
|
||
Panel99: TPanel;
|
||
Label21: TLabel;
|
||
Panel100: TPanel;
|
||
Panel103: TPanel;
|
||
Panel104: TPanel;
|
||
Panel105: TPanel;
|
||
Panel106: TPanel;
|
||
Label22: TLabel;
|
||
Panel107: TPanel;
|
||
Panel108: TPanel;
|
||
Panel109: TPanel;
|
||
Panel110: TPanel;
|
||
Panel111: TPanel;
|
||
Label23: TLabel;
|
||
Panel112: TPanel;
|
||
Panel113: TPanel;
|
||
Panel114: TPanel;
|
||
Panel115: TPanel;
|
||
Panel116: TPanel;
|
||
Label24: TLabel;
|
||
Panel117: TPanel;
|
||
Panel118: TPanel;
|
||
Panel119: TPanel;
|
||
Panel120: TPanel;
|
||
Panel121: TPanel;
|
||
Label25: TLabel;
|
||
Panel122: TPanel;
|
||
Panel123: TPanel;
|
||
Panel124: TPanel;
|
||
Panel125: TPanel;
|
||
Panel126: TPanel;
|
||
Label26: TLabel;
|
||
Panel127: TPanel;
|
||
Panel128: TPanel;
|
||
Panel129: TPanel;
|
||
Panel130: TPanel;
|
||
Panel131: TPanel;
|
||
Label27: TLabel;
|
||
Panel132: TPanel;
|
||
Panel133: TPanel;
|
||
Panel134: TPanel;
|
||
Panel135: TPanel;
|
||
Panel136: TPanel;
|
||
Label28: TLabel;
|
||
Panel137: TPanel;
|
||
Panel138: TPanel;
|
||
Panel139: TPanel;
|
||
Panel140: TPanel;
|
||
Panel141: TPanel;
|
||
Label29: TLabel;
|
||
Panel142: TPanel;
|
||
Panel143: TPanel;
|
||
Panel144: TPanel;
|
||
Panel145: TPanel;
|
||
Panel146: TPanel;
|
||
Label30: TLabel;
|
||
Panel147: TPanel;
|
||
Panel148: TPanel;
|
||
Panel149: TPanel;
|
||
Panel150: TPanel;
|
||
Panel151: TPanel;
|
||
Label31: TLabel;
|
||
Panel152: TPanel;
|
||
Panel153: TPanel;
|
||
Panel154: TPanel;
|
||
Panel155: TPanel;
|
||
Panel156: TPanel;
|
||
Label32: TLabel;
|
||
Panel157: TPanel;
|
||
Panel158: TPanel;
|
||
Panel159: TPanel;
|
||
Panel160: TPanel;
|
||
Panel161: TPanel;
|
||
Label33: TLabel;
|
||
Panel162: TPanel;
|
||
Panel163: TPanel;
|
||
Panel164: TPanel;
|
||
Panel165: TPanel;
|
||
Panel166: TPanel;
|
||
Label34: TLabel;
|
||
Panel167: TPanel;
|
||
Panel168: TPanel;
|
||
Panel169: TPanel;
|
||
Panel170: TPanel;
|
||
Panel171: TPanel;
|
||
Label35: TLabel;
|
||
Panel172: TPanel;
|
||
Panel173: TPanel;
|
||
Panel174: TPanel;
|
||
Panel175: TPanel;
|
||
Panel176: TPanel;
|
||
Label36: TLabel;
|
||
Panel177: TPanel;
|
||
Panel178: TPanel;
|
||
Panel179: TPanel;
|
||
Panel180: TPanel;
|
||
Panel181: TPanel;
|
||
Label37: TLabel;
|
||
Panel182: TPanel;
|
||
Panel183: TPanel;
|
||
Panel184: TPanel;
|
||
Panel185: TPanel;
|
||
Panel186: TPanel;
|
||
Label38: TLabel;
|
||
Panel187: TPanel;
|
||
Panel188: TPanel;
|
||
Panel189: TPanel;
|
||
Panel190: TPanel;
|
||
ScrollBox2: TScrollBox;
|
||
pnl001: TPanel;
|
||
Label46: TLabel;
|
||
Panel227: TPanel;
|
||
Panel228: TPanel;
|
||
Panel229: TPanel;
|
||
Panel230: TPanel;
|
||
pnl002: TPanel;
|
||
Label47: TLabel;
|
||
Panel232: TPanel;
|
||
Panel233: TPanel;
|
||
Panel234: TPanel;
|
||
Panel235: TPanel;
|
||
Panel196: TPanel;
|
||
Label40: TLabel;
|
||
Panel197: TPanel;
|
||
Panel198: TPanel;
|
||
Panel199: TPanel;
|
||
Panel200: TPanel;
|
||
Panel201: TPanel;
|
||
Label41: TLabel;
|
||
Panel202: TPanel;
|
||
Panel203: TPanel;
|
||
Panel204: TPanel;
|
||
Panel205: TPanel;
|
||
Panel206: TPanel;
|
||
Label42: TLabel;
|
||
Panel207: TPanel;
|
||
Panel208: TPanel;
|
||
Panel209: TPanel;
|
||
Panel210: TPanel;
|
||
cxTabSheet3: TcxTabSheet;
|
||
cxTabSheet4: TcxTabSheet;
|
||
cxTabSheet5: TcxTabSheet;
|
||
cxTabSheet6: TcxTabSheet;
|
||
ScrollBox3: TScrollBox;
|
||
Panel191: TPanel;
|
||
Label39: TLabel;
|
||
Panel192: TPanel;
|
||
Panel193: TPanel;
|
||
Panel194: TPanel;
|
||
Panel195: TPanel;
|
||
Panel211: TPanel;
|
||
Label43: TLabel;
|
||
Panel212: TPanel;
|
||
Panel213: TPanel;
|
||
Panel214: TPanel;
|
||
Panel215: TPanel;
|
||
ScrollBox4: TScrollBox;
|
||
ScrollBox5: TScrollBox;
|
||
Panel254: TPanel;
|
||
Label52: TLabel;
|
||
Panel255: TPanel;
|
||
Panel256: TPanel;
|
||
Panel257: TPanel;
|
||
Panel258: TPanel;
|
||
Panel259: TPanel;
|
||
Label53: TLabel;
|
||
Panel260: TPanel;
|
||
Panel261: TPanel;
|
||
Panel262: TPanel;
|
||
Panel263: TPanel;
|
||
Panel264: TPanel;
|
||
Label54: TLabel;
|
||
Panel265: TPanel;
|
||
Panel266: TPanel;
|
||
Panel267: TPanel;
|
||
Panel268: TPanel;
|
||
Panel269: TPanel;
|
||
Label55: TLabel;
|
||
Panel270: TPanel;
|
||
Panel271: TPanel;
|
||
Panel272: TPanel;
|
||
Panel273: TPanel;
|
||
Panel274: TPanel;
|
||
Label56: TLabel;
|
||
Panel275: TPanel;
|
||
Panel276: TPanel;
|
||
Panel277: TPanel;
|
||
Panel278: TPanel;
|
||
Panel279: TPanel;
|
||
Label57: TLabel;
|
||
Panel280: TPanel;
|
||
Panel281: TPanel;
|
||
Panel282: TPanel;
|
||
Panel283: TPanel;
|
||
Panel284: TPanel;
|
||
Label58: TLabel;
|
||
Panel285: TPanel;
|
||
Panel286: TPanel;
|
||
Panel287: TPanel;
|
||
Panel288: TPanel;
|
||
Panel289: TPanel;
|
||
Label59: TLabel;
|
||
Panel290: TPanel;
|
||
Panel291: TPanel;
|
||
Panel292: TPanel;
|
||
Panel293: TPanel;
|
||
Panel294: TPanel;
|
||
Label60: TLabel;
|
||
Panel295: TPanel;
|
||
Panel296: TPanel;
|
||
Panel297: TPanel;
|
||
Panel298: TPanel;
|
||
Panel299: TPanel;
|
||
Label61: TLabel;
|
||
Panel300: TPanel;
|
||
Panel301: TPanel;
|
||
Panel302: TPanel;
|
||
Panel303: TPanel;
|
||
Panel304: TPanel;
|
||
Label62: TLabel;
|
||
Panel305: TPanel;
|
||
Panel306: TPanel;
|
||
Panel307: TPanel;
|
||
Panel308: TPanel;
|
||
Panel309: TPanel;
|
||
Label63: TLabel;
|
||
Panel310: TPanel;
|
||
Panel311: TPanel;
|
||
Panel312: TPanel;
|
||
Panel313: TPanel;
|
||
Panel314: TPanel;
|
||
Label64: TLabel;
|
||
Panel315: TPanel;
|
||
Panel316: TPanel;
|
||
Panel317: TPanel;
|
||
Panel318: TPanel;
|
||
Panel319: TPanel;
|
||
Label65: TLabel;
|
||
Panel320: TPanel;
|
||
Panel321: TPanel;
|
||
Panel322: TPanel;
|
||
Panel323: TPanel;
|
||
Panel324: TPanel;
|
||
Label66: TLabel;
|
||
Panel325: TPanel;
|
||
Panel326: TPanel;
|
||
Panel327: TPanel;
|
||
Panel328: TPanel;
|
||
Panel329: TPanel;
|
||
Label67: TLabel;
|
||
Panel330: TPanel;
|
||
Panel331: TPanel;
|
||
Panel332: TPanel;
|
||
Panel333: TPanel;
|
||
Panel334: TPanel;
|
||
Label68: TLabel;
|
||
Panel335: TPanel;
|
||
Panel336: TPanel;
|
||
Panel337: TPanel;
|
||
Panel338: TPanel;
|
||
Panel339: TPanel;
|
||
Label69: TLabel;
|
||
Panel340: TPanel;
|
||
Panel341: TPanel;
|
||
Panel342: TPanel;
|
||
Panel343: TPanel;
|
||
Panel216: TPanel;
|
||
Label44: TLabel;
|
||
Panel217: TPanel;
|
||
Panel218: TPanel;
|
||
Panel219: TPanel;
|
||
Panel220: TPanel;
|
||
Panel221: TPanel;
|
||
Label45: TLabel;
|
||
Panel222: TPanel;
|
||
Panel223: TPanel;
|
||
Panel224: TPanel;
|
||
Panel225: TPanel;
|
||
Panel344: TPanel;
|
||
Label70: TLabel;
|
||
Panel345: TPanel;
|
||
Panel346: TPanel;
|
||
Panel347: TPanel;
|
||
Panel348: TPanel;
|
||
Panel349: TPanel;
|
||
Label71: TLabel;
|
||
Panel350: TPanel;
|
||
Panel351: TPanel;
|
||
Panel352: TPanel;
|
||
Panel353: TPanel;
|
||
Panel354: TPanel;
|
||
Label72: TLabel;
|
||
Panel355: TPanel;
|
||
Panel356: TPanel;
|
||
Panel357: TPanel;
|
||
Panel358: TPanel;
|
||
Panel359: TPanel;
|
||
Label73: TLabel;
|
||
Panel360: TPanel;
|
||
Panel361: TPanel;
|
||
Panel362: TPanel;
|
||
Panel363: TPanel;
|
||
Panel364: TPanel;
|
||
Label74: TLabel;
|
||
Panel365: TPanel;
|
||
Panel366: TPanel;
|
||
Panel367: TPanel;
|
||
Panel368: TPanel;
|
||
Panel369: TPanel;
|
||
Label75: TLabel;
|
||
Panel370: TPanel;
|
||
Panel371: TPanel;
|
||
Panel372: TPanel;
|
||
Panel373: TPanel;
|
||
Panel374: TPanel;
|
||
Label76: TLabel;
|
||
Panel375: TPanel;
|
||
Panel376: TPanel;
|
||
Panel377: TPanel;
|
||
Panel378: TPanel;
|
||
Panel379: TPanel;
|
||
Label77: TLabel;
|
||
Panel380: TPanel;
|
||
Panel381: TPanel;
|
||
Panel382: TPanel;
|
||
Panel383: TPanel;
|
||
Panel384: TPanel;
|
||
Label78: TLabel;
|
||
Panel385: TPanel;
|
||
Panel386: TPanel;
|
||
Panel387: TPanel;
|
||
Panel388: TPanel;
|
||
Panel389: TPanel;
|
||
Label79: TLabel;
|
||
Panel390: TPanel;
|
||
Panel391: TPanel;
|
||
Panel392: TPanel;
|
||
Panel393: TPanel;
|
||
Panel394: TPanel;
|
||
Label80: TLabel;
|
||
Panel395: TPanel;
|
||
Panel396: TPanel;
|
||
Panel397: TPanel;
|
||
Panel398: TPanel;
|
||
Panel399: TPanel;
|
||
Label81: TLabel;
|
||
Panel400: TPanel;
|
||
Panel401: TPanel;
|
||
Panel402: TPanel;
|
||
Panel403: TPanel;
|
||
Panel404: TPanel;
|
||
Label82: TLabel;
|
||
Panel405: TPanel;
|
||
Panel406: TPanel;
|
||
Panel407: TPanel;
|
||
Panel408: TPanel;
|
||
Panel409: TPanel;
|
||
Label83: TLabel;
|
||
Panel410: TPanel;
|
||
Panel411: TPanel;
|
||
Panel412: TPanel;
|
||
Panel413: TPanel;
|
||
Panel414: TPanel;
|
||
Label84: TLabel;
|
||
Panel415: TPanel;
|
||
Panel416: TPanel;
|
||
Panel417: TPanel;
|
||
Panel418: TPanel;
|
||
Panel419: TPanel;
|
||
Label85: TLabel;
|
||
Panel420: TPanel;
|
||
Panel421: TPanel;
|
||
Panel422: TPanel;
|
||
Panel423: TPanel;
|
||
Panel424: TPanel;
|
||
Label86: TLabel;
|
||
Panel425: TPanel;
|
||
Panel426: TPanel;
|
||
Panel427: TPanel;
|
||
Panel428: TPanel;
|
||
Panel429: TPanel;
|
||
Label87: TLabel;
|
||
Panel430: TPanel;
|
||
Panel431: TPanel;
|
||
Panel432: TPanel;
|
||
Panel433: TPanel;
|
||
Panel434: TPanel;
|
||
Label88: TLabel;
|
||
Panel435: TPanel;
|
||
Panel436: TPanel;
|
||
Panel437: TPanel;
|
||
Panel438: TPanel;
|
||
Panel439: TPanel;
|
||
Label89: TLabel;
|
||
Panel440: TPanel;
|
||
Panel441: TPanel;
|
||
Panel442: TPanel;
|
||
Panel443: TPanel;
|
||
Panel444: TPanel;
|
||
Label90: TLabel;
|
||
Panel445: TPanel;
|
||
Panel446: TPanel;
|
||
Panel447: TPanel;
|
||
Panel448: TPanel;
|
||
Panel449: TPanel;
|
||
Label91: TLabel;
|
||
Panel450: TPanel;
|
||
Panel451: TPanel;
|
||
Panel452: TPanel;
|
||
Panel453: TPanel;
|
||
Panel454: TPanel;
|
||
Label92: TLabel;
|
||
Panel455: TPanel;
|
||
Panel456: TPanel;
|
||
Panel457: TPanel;
|
||
Panel458: TPanel;
|
||
Panel459: TPanel;
|
||
Label93: TLabel;
|
||
Panel460: TPanel;
|
||
Panel461: TPanel;
|
||
Panel462: TPanel;
|
||
Panel463: TPanel;
|
||
Panel464: TPanel;
|
||
Label94: TLabel;
|
||
Panel465: TPanel;
|
||
Panel466: TPanel;
|
||
Panel467: TPanel;
|
||
Panel468: TPanel;
|
||
Panel469: TPanel;
|
||
Label95: TLabel;
|
||
Panel470: TPanel;
|
||
Panel471: TPanel;
|
||
Panel472: TPanel;
|
||
Panel473: TPanel;
|
||
Panel474: TPanel;
|
||
Label96: TLabel;
|
||
Panel475: TPanel;
|
||
Panel476: TPanel;
|
||
Panel477: TPanel;
|
||
Panel478: TPanel;
|
||
Panel479: TPanel;
|
||
Label97: TLabel;
|
||
Panel480: TPanel;
|
||
Panel481: TPanel;
|
||
Panel482: TPanel;
|
||
Panel483: TPanel;
|
||
Panel484: TPanel;
|
||
Label98: TLabel;
|
||
Panel485: TPanel;
|
||
Panel486: TPanel;
|
||
Panel487: TPanel;
|
||
Panel488: TPanel;
|
||
Panel489: TPanel;
|
||
Label99: TLabel;
|
||
Panel490: TPanel;
|
||
Panel491: TPanel;
|
||
Panel492: TPanel;
|
||
Panel493: TPanel;
|
||
Panel494: TPanel;
|
||
Label100: TLabel;
|
||
Panel495: TPanel;
|
||
Panel496: TPanel;
|
||
Panel497: TPanel;
|
||
Panel498: TPanel;
|
||
Panel499: TPanel;
|
||
Label101: TLabel;
|
||
Panel500: TPanel;
|
||
Panel501: TPanel;
|
||
Panel502: TPanel;
|
||
Panel503: TPanel;
|
||
Panel504: TPanel;
|
||
Label102: TLabel;
|
||
Panel505: TPanel;
|
||
Panel506: TPanel;
|
||
Panel507: TPanel;
|
||
Panel508: TPanel;
|
||
Panel226: TPanel;
|
||
Label48: TLabel;
|
||
Panel231: TPanel;
|
||
Panel236: TPanel;
|
||
Panel237: TPanel;
|
||
Panel238: TPanel;
|
||
Panel239: TPanel;
|
||
Label49: TLabel;
|
||
Panel240: TPanel;
|
||
Panel241: TPanel;
|
||
Panel242: TPanel;
|
||
Panel243: TPanel;
|
||
Panel509: TPanel;
|
||
Label103: TLabel;
|
||
Panel510: TPanel;
|
||
Panel511: TPanel;
|
||
Panel512: TPanel;
|
||
Panel513: TPanel;
|
||
Panel514: TPanel;
|
||
Label104: TLabel;
|
||
Panel515: TPanel;
|
||
Panel516: TPanel;
|
||
Panel517: TPanel;
|
||
Panel518: TPanel;
|
||
Panel519: TPanel;
|
||
Label105: TLabel;
|
||
Panel520: TPanel;
|
||
Panel521: TPanel;
|
||
Panel522: TPanel;
|
||
Panel523: TPanel;
|
||
Panel524: TPanel;
|
||
Label106: TLabel;
|
||
Panel525: TPanel;
|
||
Panel526: TPanel;
|
||
Panel527: TPanel;
|
||
Panel528: TPanel;
|
||
Panel529: TPanel;
|
||
Label107: TLabel;
|
||
Panel530: TPanel;
|
||
Panel531: TPanel;
|
||
Panel532: TPanel;
|
||
Panel533: TPanel;
|
||
Panel534: TPanel;
|
||
Label108: TLabel;
|
||
Panel535: TPanel;
|
||
Panel536: TPanel;
|
||
Panel537: TPanel;
|
||
Panel538: TPanel;
|
||
Panel539: TPanel;
|
||
Label109: TLabel;
|
||
Panel540: TPanel;
|
||
Panel541: TPanel;
|
||
Panel542: TPanel;
|
||
Panel543: TPanel;
|
||
Panel544: TPanel;
|
||
Label110: TLabel;
|
||
Panel545: TPanel;
|
||
Panel546: TPanel;
|
||
Panel547: TPanel;
|
||
Panel548: TPanel;
|
||
Panel549: TPanel;
|
||
Label111: TLabel;
|
||
Panel550: TPanel;
|
||
Panel551: TPanel;
|
||
Panel552: TPanel;
|
||
Panel553: TPanel;
|
||
Panel554: TPanel;
|
||
Label112: TLabel;
|
||
Panel555: TPanel;
|
||
Panel556: TPanel;
|
||
Panel557: TPanel;
|
||
Panel558: TPanel;
|
||
Panel559: TPanel;
|
||
Label113: TLabel;
|
||
Panel560: TPanel;
|
||
Panel561: TPanel;
|
||
Panel562: TPanel;
|
||
Panel563: TPanel;
|
||
Panel564: TPanel;
|
||
Label114: TLabel;
|
||
Panel565: TPanel;
|
||
Panel566: TPanel;
|
||
Panel567: TPanel;
|
||
Panel568: TPanel;
|
||
Panel569: TPanel;
|
||
Label115: TLabel;
|
||
Panel570: TPanel;
|
||
Panel571: TPanel;
|
||
Panel572: TPanel;
|
||
Panel573: TPanel;
|
||
Panel574: TPanel;
|
||
Label116: TLabel;
|
||
Panel575: TPanel;
|
||
Panel576: TPanel;
|
||
Panel577: TPanel;
|
||
Panel578: TPanel;
|
||
Panel579: TPanel;
|
||
Label117: TLabel;
|
||
Panel580: TPanel;
|
||
Panel581: TPanel;
|
||
Panel582: TPanel;
|
||
Panel583: TPanel;
|
||
Panel584: TPanel;
|
||
Label118: TLabel;
|
||
Panel585: TPanel;
|
||
Panel586: TPanel;
|
||
Panel587: TPanel;
|
||
Panel588: TPanel;
|
||
Panel589: TPanel;
|
||
Label119: TLabel;
|
||
Panel590: TPanel;
|
||
Panel591: TPanel;
|
||
Panel592: TPanel;
|
||
Panel593: TPanel;
|
||
Panel594: TPanel;
|
||
Label120: TLabel;
|
||
Panel595: TPanel;
|
||
Panel596: TPanel;
|
||
Panel597: TPanel;
|
||
Panel598: TPanel;
|
||
Panel599: TPanel;
|
||
Label121: TLabel;
|
||
Panel600: TPanel;
|
||
Panel601: TPanel;
|
||
Panel602: TPanel;
|
||
Panel603: TPanel;
|
||
Panel604: TPanel;
|
||
Label122: TLabel;
|
||
Panel605: TPanel;
|
||
Panel606: TPanel;
|
||
Panel607: TPanel;
|
||
Panel608: TPanel;
|
||
Panel609: TPanel;
|
||
Label123: TLabel;
|
||
Panel610: TPanel;
|
||
Panel611: TPanel;
|
||
Panel612: TPanel;
|
||
Panel613: TPanel;
|
||
Panel614: TPanel;
|
||
Label124: TLabel;
|
||
Panel615: TPanel;
|
||
Panel616: TPanel;
|
||
Panel617: TPanel;
|
||
Panel618: TPanel;
|
||
Panel619: TPanel;
|
||
Label125: TLabel;
|
||
Panel620: TPanel;
|
||
Panel621: TPanel;
|
||
Panel622: TPanel;
|
||
Panel623: TPanel;
|
||
Panel624: TPanel;
|
||
Label126: TLabel;
|
||
Panel625: TPanel;
|
||
Panel626: TPanel;
|
||
Panel627: TPanel;
|
||
Panel628: TPanel;
|
||
ScrollBox6: TScrollBox;
|
||
Panel249: TPanel;
|
||
Label51: TLabel;
|
||
Panel250: TPanel;
|
||
Panel251: TPanel;
|
||
Panel252: TPanel;
|
||
Panel253: TPanel;
|
||
Panel629: TPanel;
|
||
Label127: TLabel;
|
||
Panel630: TPanel;
|
||
Panel631: TPanel;
|
||
Panel632: TPanel;
|
||
Panel633: TPanel;
|
||
Panel634: TPanel;
|
||
Label128: TLabel;
|
||
Panel635: TPanel;
|
||
Panel636: TPanel;
|
||
Panel637: TPanel;
|
||
Panel638: TPanel;
|
||
Panel639: TPanel;
|
||
Label129: TLabel;
|
||
Panel640: TPanel;
|
||
Panel641: TPanel;
|
||
Panel642: TPanel;
|
||
Panel643: TPanel;
|
||
Panel644: TPanel;
|
||
Label130: TLabel;
|
||
Panel645: TPanel;
|
||
Panel646: TPanel;
|
||
Panel647: TPanel;
|
||
Panel648: TPanel;
|
||
Panel649: TPanel;
|
||
Label131: TLabel;
|
||
Panel650: TPanel;
|
||
Panel651: TPanel;
|
||
Panel652: TPanel;
|
||
Panel653: TPanel;
|
||
Panel654: TPanel;
|
||
Label132: TLabel;
|
||
Panel655: TPanel;
|
||
Panel656: TPanel;
|
||
Panel657: TPanel;
|
||
Panel658: TPanel;
|
||
Panel669: TPanel;
|
||
Label135: TLabel;
|
||
Panel670: TPanel;
|
||
Panel671: TPanel;
|
||
Panel672: TPanel;
|
||
Panel673: TPanel;
|
||
Panel674: TPanel;
|
||
Label136: TLabel;
|
||
Panel675: TPanel;
|
||
Panel676: TPanel;
|
||
Panel677: TPanel;
|
||
Panel678: TPanel;
|
||
Panel679: TPanel;
|
||
Label137: TLabel;
|
||
Panel680: TPanel;
|
||
Panel681: TPanel;
|
||
Panel682: TPanel;
|
||
Panel683: TPanel;
|
||
Panel684: TPanel;
|
||
Label138: TLabel;
|
||
Panel685: TPanel;
|
||
Panel686: TPanel;
|
||
Panel687: TPanel;
|
||
Panel688: TPanel;
|
||
Panel689: TPanel;
|
||
Label139: TLabel;
|
||
Panel690: TPanel;
|
||
Panel691: TPanel;
|
||
Panel692: TPanel;
|
||
Panel693: TPanel;
|
||
Panel694: TPanel;
|
||
Label140: TLabel;
|
||
Panel695: TPanel;
|
||
Panel696: TPanel;
|
||
Panel697: TPanel;
|
||
Panel698: TPanel;
|
||
Panel699: TPanel;
|
||
Label141: TLabel;
|
||
Panel700: TPanel;
|
||
Panel701: TPanel;
|
||
Panel702: TPanel;
|
||
Panel703: TPanel;
|
||
Panel704: TPanel;
|
||
Label142: TLabel;
|
||
Panel705: TPanel;
|
||
Panel706: TPanel;
|
||
Panel707: TPanel;
|
||
Panel708: TPanel;
|
||
Panel709: TPanel;
|
||
Label143: TLabel;
|
||
Panel710: TPanel;
|
||
Panel711: TPanel;
|
||
Panel712: TPanel;
|
||
Panel713: TPanel;
|
||
Panel714: TPanel;
|
||
Label144: TLabel;
|
||
Panel715: TPanel;
|
||
Panel716: TPanel;
|
||
Panel717: TPanel;
|
||
Panel718: TPanel;
|
||
Panel719: TPanel;
|
||
Label145: TLabel;
|
||
Panel720: TPanel;
|
||
Panel721: TPanel;
|
||
Panel722: TPanel;
|
||
Panel723: TPanel;
|
||
Panel724: TPanel;
|
||
Label146: TLabel;
|
||
Panel725: TPanel;
|
||
Panel726: TPanel;
|
||
Panel727: TPanel;
|
||
Panel728: TPanel;
|
||
Panel729: TPanel;
|
||
Label147: TLabel;
|
||
Panel730: TPanel;
|
||
Panel731: TPanel;
|
||
Panel732: TPanel;
|
||
Panel733: TPanel;
|
||
Panel734: TPanel;
|
||
Label148: TLabel;
|
||
Panel735: TPanel;
|
||
Panel736: TPanel;
|
||
Panel737: TPanel;
|
||
Panel738: TPanel;
|
||
Panel739: TPanel;
|
||
Label149: TLabel;
|
||
Panel740: TPanel;
|
||
Panel741: TPanel;
|
||
Panel742: TPanel;
|
||
Panel743: TPanel;
|
||
Panel244: TPanel;
|
||
Label50: TLabel;
|
||
Panel245: TPanel;
|
||
Panel246: TPanel;
|
||
Panel247: TPanel;
|
||
Panel248: TPanel;
|
||
Panel659: TPanel;
|
||
Label133: TLabel;
|
||
Panel660: TPanel;
|
||
Panel661: TPanel;
|
||
Panel662: TPanel;
|
||
Panel663: TPanel;
|
||
Panel664: TPanel;
|
||
Label134: TLabel;
|
||
Panel665: TPanel;
|
||
Panel666: TPanel;
|
||
Panel667: TPanel;
|
||
Panel668: TPanel;
|
||
ADOTmp: TADOQuery;
|
||
CDS_MC: TClientDataSet;
|
||
Panel744: TPanel;
|
||
Panel745: TPanel;
|
||
Panel746: TPanel;
|
||
Panel747: TPanel;
|
||
Panel748: TPanel;
|
||
Panel749: TPanel;
|
||
Panel750: TPanel;
|
||
Panel751: TPanel;
|
||
Panel752: TPanel;
|
||
Panel753: TPanel;
|
||
Panel754: TPanel;
|
||
Panel755: TPanel;
|
||
Panel756: TPanel;
|
||
Panel757: TPanel;
|
||
Panel758: TPanel;
|
||
Panel759: TPanel;
|
||
Panel760: TPanel;
|
||
Panel761: TPanel;
|
||
Panel762: TPanel;
|
||
Panel763: TPanel;
|
||
Panel764: TPanel;
|
||
Panel765: TPanel;
|
||
Panel766: TPanel;
|
||
Panel767: TPanel;
|
||
Panel768: TPanel;
|
||
Panel769: TPanel;
|
||
Panel770: TPanel;
|
||
Panel771: TPanel;
|
||
Panel772: TPanel;
|
||
Panel773: TPanel;
|
||
Panel774: TPanel;
|
||
Panel775: TPanel;
|
||
Panel776: TPanel;
|
||
Panel778: TPanel;
|
||
Panel779: TPanel;
|
||
Panel780: TPanel;
|
||
Panel781: TPanel;
|
||
Panel782: TPanel;
|
||
Panel783: TPanel;
|
||
Panel784: TPanel;
|
||
Panel785: TPanel;
|
||
Panel786: TPanel;
|
||
Panel787: TPanel;
|
||
Panel777: TPanel;
|
||
Panel788: TPanel;
|
||
Panel789: TPanel;
|
||
Panel790: TPanel;
|
||
Panel791: TPanel;
|
||
Panel792: TPanel;
|
||
Panel793: TPanel;
|
||
Panel794: TPanel;
|
||
Panel795: TPanel;
|
||
Panel796: TPanel;
|
||
Panel797: TPanel;
|
||
Panel798: TPanel;
|
||
Panel799: TPanel;
|
||
Panel800: TPanel;
|
||
Panel801: TPanel;
|
||
Panel803: TPanel;
|
||
Panel802: TPanel;
|
||
Label151: TLabel;
|
||
Label152: TLabel;
|
||
Label150: TLabel;
|
||
Panel804: TPanel;
|
||
Label153: TLabel;
|
||
Panel805: TPanel;
|
||
Label154: TLabel;
|
||
Panel806: TPanel;
|
||
Label155: TLabel;
|
||
Panel807: TPanel;
|
||
Label156: TLabel;
|
||
Panel808: TPanel;
|
||
Label157: TLabel;
|
||
Panel809: TPanel;
|
||
Label158: TLabel;
|
||
Panel810: TPanel;
|
||
Label159: TLabel;
|
||
Panel811: TPanel;
|
||
Label160: TLabel;
|
||
Panel812: TPanel;
|
||
Label161: TLabel;
|
||
Panel813: TPanel;
|
||
Label162: TLabel;
|
||
Panel814: TPanel;
|
||
Label163: TLabel;
|
||
Panel815: TPanel;
|
||
Label164: TLabel;
|
||
Panel816: TPanel;
|
||
Label165: TLabel;
|
||
Panel817: TPanel;
|
||
Label166: TLabel;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure cxPageControl1Change(Sender: TObject);
|
||
private
|
||
procedure InitCarNo();
|
||
procedure InitMachine(ScrollBox:TScrollBox;MCData:TClientDataSet);
|
||
{ Private declarations }
|
||
public
|
||
FlagStr:String;
|
||
canshu1:String;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmMachineArea: TfrmMachineArea;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_RTFun;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmMachineArea.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmMachineArea:=nil;
|
||
end;
|
||
procedure TfrmMachineArea.InitCarNo();
|
||
begin
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('exec P_View_MachineStatus');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTmp,CDS_MC);
|
||
SInitCDSData20(ADOTmp,CDS_MC);
|
||
case cxPageControl1.ActivePageIndex of
|
||
0:begin
|
||
InitMachine(ScrollBox1,CDS_MC);
|
||
end;
|
||
1:begin
|
||
InitMachine(ScrollBox2,CDS_MC);
|
||
end;
|
||
2:begin
|
||
InitMachine(ScrollBox3,CDS_MC);
|
||
end;
|
||
3:begin
|
||
InitMachine(ScrollBox4,CDS_MC);
|
||
end;
|
||
4:begin
|
||
InitMachine(ScrollBox5,CDS_MC);
|
||
end;
|
||
5:begin
|
||
InitMachine(ScrollBox6,CDS_MC);
|
||
end;
|
||
end;
|
||
end;
|
||
procedure TfrmMachineArea.InitMachine(ScrollBox:TScrollBox;MCData:TClientDataSet);
|
||
var
|
||
i,j,k:Integer;
|
||
mHint:string;
|
||
begin
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ScrollBox do
|
||
begin
|
||
//Ѱ<>Ҷ<EFBFBD><D2B6><EFBFBD> һ<><D2BB>TPanel
|
||
for i:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[i] is TLabel then Continue;
|
||
if Controls[i] is TPanel then
|
||
begin
|
||
mHint:=trim(TPanel(Controls[i]).Hint);
|
||
if MCData.Locate('MCNO',trim(TPanel(Controls[i]).Hint),[])=false then Continue;
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
|
||
//Ѱ<><D1B0> <20><><EFBFBD><EFBFBD>TPanel <20><> <20><><EFBFBD><EFBFBD>TLabel
|
||
for j:=0 to ControlCount-1 do
|
||
begin
|
||
// Ϊ <20><><EFBFBD><EFBFBD>TLabel <20><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD> <20><><EFBFBD><EFBFBD>״̬
|
||
if Controls[j] is TLabel then
|
||
begin
|
||
if trim(MCData.FieldByName('Status').AsString)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
TLabel(Controls[j]).Caption:=trim(MCData.FieldByName('C_CodeName').AsString);
|
||
TLabel(Controls[j]).hint:=trim(MCData.FieldByName('C_CodeName').AsString)
|
||
+#13+trim(MCData.FieldByName('MF').AsString)
|
||
+#13+trim(MCData.FieldByName('KZ').AsString)
|
||
+#13+trim(MCData.FieldByName('dcg').AsString)
|
||
+#13+trim(MCData.FieldByName('ywy').AsString);
|
||
TLabel(Controls[j]).Color:=$008000;
|
||
end
|
||
else
|
||
if trim(MCData.FieldByName('Status').AsString)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
TLabel(Controls[j]).Caption:='ά<><CEAC>';
|
||
TLabel(Controls[j]).Color:=$F0CAA6;
|
||
end
|
||
else
|
||
begin
|
||
TLabel(Controls[j]).Caption:='ͣ<><CDA3>';
|
||
TLabel(Controls[j]).Color:=$0000FF;
|
||
end;
|
||
end;
|
||
// <20>ҵ<EFBFBD> <20><><EFBFBD><EFBFBD>TPanel
|
||
if Controls[j] is TPanel then
|
||
begin
|
||
|
||
with TPanel(Controls[j]) do
|
||
begin
|
||
// ѭ<><D1AD> <20><><EFBFBD><EFBFBD>TPanel
|
||
for k:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[k] is TPanel then
|
||
begin
|
||
TPanel(Controls[k]).Hint:='1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>䣺'+#13+trim(MCData.FieldByName('GMDate').AsString)
|
||
+#13+ '2.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2>'+#13+trim(MCData.FieldByName('ISGHZT').AsString)
|
||
+#13+ '<27><><EFBFBD><EFBFBD>ʱ<EFBFBD>䣺'+#13+trim(MCData.FieldByName('ZTDate').AsString)
|
||
+#13+ '3.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+#13+trim(MCData.FieldByName('ISGHXZQ').AsString)
|
||
+#13+ '<27><><EFBFBD><EFBFBD>ʱ<EFBFBD>䣺'+#13+trim(MCData.FieldByName('XZQDate').AsString)
|
||
;
|
||
|
||
|
||
case TPanel(Controls[k]).Tag of
|
||
0:begin
|
||
TPanel(Controls[k]).Caption:=trim(MCData.FieldByName('MCPP').AsString)+trim(MCData.FieldByName('MCNO').AsString);
|
||
end;
|
||
1:begin
|
||
TPanel(Controls[k]).Caption:=trim(MCData.FieldByName('MCType').AsString);
|
||
end;
|
||
2:begin
|
||
TPanel(Controls[k]).Caption:=trim(MCData.FieldByName('MCZX').AsString)+trim(MCData.FieldByName('MCLS').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
procedure TfrmMachineArea.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=cafree;
|
||
end;
|
||
|
||
procedure TfrmMachineArea.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitCarNo();
|
||
end;
|
||
|
||
procedure TfrmMachineArea.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
InitCarNo();
|
||
end;
|
||
|
||
procedure TfrmMachineArea.FormShow(Sender: TObject);
|
||
begin
|
||
InitCarNo();
|
||
end;
|
||
|
||
procedure TfrmMachineArea.TBCloseClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmMachineArea.FormCreate(Sender: TObject);
|
||
begin
|
||
canshu1:=Trim(DParameters1);
|
||
end;
|
||
|
||
procedure TfrmMachineArea.cxPageControl1Change(Sender: TObject);
|
||
begin
|
||
case cxPageControl1.ActivePageIndex of
|
||
0:begin
|
||
InitMachine(ScrollBox1,CDS_MC);
|
||
end;
|
||
1:begin
|
||
InitMachine(ScrollBox2,CDS_MC);
|
||
end;
|
||
2:begin
|
||
InitMachine(ScrollBox3,CDS_MC);
|
||
end;
|
||
3:begin
|
||
InitMachine(ScrollBox4,CDS_MC);
|
||
end;
|
||
4:begin
|
||
InitMachine(ScrollBox5,CDS_MC);
|
||
end;
|
||
5:begin
|
||
InitMachine(ScrollBox6,CDS_MC);
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end.
|