Group_02/D7zzHanglin
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7zzHanglin/圆机管理(Machine.dll)/U_MachineArea.pas

1221 lines
28 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-08-06 16:42:07 +08:00
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.
Reference in New Issue Copy Permalink