1669 lines
39 KiB
ObjectPascal
1669 lines
39 KiB
ObjectPascal
unit U_BPZdy_Panel_M;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
|
||
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
|
||
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||
cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL,
|
||
cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter,jpeg,U_SLT_PBSK,U_SLT_BF1,Math, Menus, cxCalendar,
|
||
cxPC, Buttons;
|
||
|
||
type
|
||
TfrmBPZDY_Panel_M = class(TForm)
|
||
ADOQueryMain: TADOQuery;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQuery6: TADOQuery;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
adoqueryPicture: TADOQuery;
|
||
ScrollBox2: TScrollBox;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Label4: TLabel;
|
||
ScrollBox1: TScrollBox;
|
||
Panel2: TPanel;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
Label8: TLabel;
|
||
Panel3: TPanel;
|
||
Label9: TLabel;
|
||
Label10: TLabel;
|
||
Label11: TLabel;
|
||
Label12: TLabel;
|
||
Panel4: TPanel;
|
||
Label13: TLabel;
|
||
Label14: TLabel;
|
||
Label15: TLabel;
|
||
Label16: TLabel;
|
||
Panel5: TPanel;
|
||
Label17: TLabel;
|
||
Label18: TLabel;
|
||
Label19: TLabel;
|
||
Label20: TLabel;
|
||
Panel6: TPanel;
|
||
Label21: TLabel;
|
||
Label22: TLabel;
|
||
Label23: TLabel;
|
||
Label24: TLabel;
|
||
Panel7: TPanel;
|
||
Label25: TLabel;
|
||
Label26: TLabel;
|
||
Label27: TLabel;
|
||
Label28: TLabel;
|
||
Panel8: TPanel;
|
||
Label29: TLabel;
|
||
Label30: TLabel;
|
||
Label31: TLabel;
|
||
Label32: TLabel;
|
||
Panel9: TPanel;
|
||
Label33: TLabel;
|
||
Label34: TLabel;
|
||
Label35: TLabel;
|
||
Label36: TLabel;
|
||
Panel10: TPanel;
|
||
Label37: TLabel;
|
||
Label38: TLabel;
|
||
Label39: TLabel;
|
||
Label40: TLabel;
|
||
Panel11: TPanel;
|
||
Label41: TLabel;
|
||
Label42: TLabel;
|
||
Label43: TLabel;
|
||
Label44: TLabel;
|
||
Panel12: TPanel;
|
||
Label45: TLabel;
|
||
Label46: TLabel;
|
||
Label47: TLabel;
|
||
Label48: TLabel;
|
||
Panel13: TPanel;
|
||
Label49: TLabel;
|
||
Label50: TLabel;
|
||
Label51: TLabel;
|
||
Label52: TLabel;
|
||
Panel14: TPanel;
|
||
Label53: TLabel;
|
||
Label54: TLabel;
|
||
Label55: TLabel;
|
||
Label56: TLabel;
|
||
Panel15: TPanel;
|
||
Label57: TLabel;
|
||
Label58: TLabel;
|
||
Label59: TLabel;
|
||
Label60: TLabel;
|
||
Panel16: TPanel;
|
||
Label61: TLabel;
|
||
Label62: TLabel;
|
||
Label63: TLabel;
|
||
Label64: TLabel;
|
||
Panel17: TPanel;
|
||
Label65: TLabel;
|
||
Label66: TLabel;
|
||
Label67: TLabel;
|
||
Label68: TLabel;
|
||
Panel18: TPanel;
|
||
Label69: TLabel;
|
||
Label70: TLabel;
|
||
Label71: TLabel;
|
||
Label72: TLabel;
|
||
Panel19: TPanel;
|
||
Label73: TLabel;
|
||
Label74: TLabel;
|
||
Label75: TLabel;
|
||
Label76: TLabel;
|
||
Panel20: TPanel;
|
||
Label77: TLabel;
|
||
Label78: TLabel;
|
||
Label79: TLabel;
|
||
Label80: TLabel;
|
||
Panel21: TPanel;
|
||
Label81: TLabel;
|
||
Label82: TLabel;
|
||
Label83: TLabel;
|
||
Label84: TLabel;
|
||
Panel22: TPanel;
|
||
Label85: TLabel;
|
||
Label86: TLabel;
|
||
Label87: TLabel;
|
||
Label88: TLabel;
|
||
Panel23: TPanel;
|
||
Label89: TLabel;
|
||
Label90: TLabel;
|
||
Label91: TLabel;
|
||
Label92: TLabel;
|
||
Panel24: TPanel;
|
||
Label93: TLabel;
|
||
Label94: TLabel;
|
||
Label95: TLabel;
|
||
Label96: TLabel;
|
||
Panel25: TPanel;
|
||
Label97: TLabel;
|
||
Label98: TLabel;
|
||
Label99: TLabel;
|
||
Label100: TLabel;
|
||
Panel26: TPanel;
|
||
Label101: TLabel;
|
||
Label102: TLabel;
|
||
Label103: TLabel;
|
||
Label104: TLabel;
|
||
Panel27: TPanel;
|
||
Label105: TLabel;
|
||
Label106: TLabel;
|
||
Label107: TLabel;
|
||
Label108: TLabel;
|
||
Panel28: TPanel;
|
||
Label109: TLabel;
|
||
Label110: TLabel;
|
||
Label111: TLabel;
|
||
Label112: TLabel;
|
||
Panel29: TPanel;
|
||
Label113: TLabel;
|
||
Label114: TLabel;
|
||
Label115: TLabel;
|
||
Label116: TLabel;
|
||
Panel30: TPanel;
|
||
Label117: TLabel;
|
||
Label118: TLabel;
|
||
Label119: TLabel;
|
||
Label120: TLabel;
|
||
Panel31: TPanel;
|
||
Label121: TLabel;
|
||
Label122: TLabel;
|
||
Label123: TLabel;
|
||
Label124: TLabel;
|
||
Panel32: TPanel;
|
||
Label125: TLabel;
|
||
Label126: TLabel;
|
||
Label127: TLabel;
|
||
Label128: TLabel;
|
||
Panel33: TPanel;
|
||
Label129: TLabel;
|
||
Label130: TLabel;
|
||
Label131: TLabel;
|
||
Label132: TLabel;
|
||
Panel34: TPanel;
|
||
Label133: TLabel;
|
||
Label134: TLabel;
|
||
Label135: TLabel;
|
||
Label136: TLabel;
|
||
Panel35: TPanel;
|
||
Label137: TLabel;
|
||
Label138: TLabel;
|
||
Label139: TLabel;
|
||
Label140: TLabel;
|
||
Panel36: TPanel;
|
||
Label141: TLabel;
|
||
Label142: TLabel;
|
||
Label143: TLabel;
|
||
Label144: TLabel;
|
||
Panel37: TPanel;
|
||
Label145: TLabel;
|
||
Label146: TLabel;
|
||
Label147: TLabel;
|
||
Label148: TLabel;
|
||
Panel38: TPanel;
|
||
Label149: TLabel;
|
||
Label150: TLabel;
|
||
Label151: TLabel;
|
||
Label152: TLabel;
|
||
Panel39: TPanel;
|
||
Label153: TLabel;
|
||
Label154: TLabel;
|
||
Label155: TLabel;
|
||
Label156: TLabel;
|
||
Panel40: TPanel;
|
||
Label157: TLabel;
|
||
Label158: TLabel;
|
||
Label159: TLabel;
|
||
Label160: TLabel;
|
||
Panel41: TPanel;
|
||
Label161: TLabel;
|
||
Label162: TLabel;
|
||
Label163: TLabel;
|
||
Label164: TLabel;
|
||
Panel42: TPanel;
|
||
Label165: TLabel;
|
||
Label166: TLabel;
|
||
Label167: TLabel;
|
||
Label168: TLabel;
|
||
Panel43: TPanel;
|
||
Label169: TLabel;
|
||
Label170: TLabel;
|
||
Label171: TLabel;
|
||
Label172: TLabel;
|
||
Panel44: TPanel;
|
||
Label173: TLabel;
|
||
Label174: TLabel;
|
||
Label175: TLabel;
|
||
Label176: TLabel;
|
||
Panel45: TPanel;
|
||
Label177: TLabel;
|
||
Label178: TLabel;
|
||
Label179: TLabel;
|
||
Label180: TLabel;
|
||
Panel46: TPanel;
|
||
Label181: TLabel;
|
||
Label182: TLabel;
|
||
Label183: TLabel;
|
||
Label184: TLabel;
|
||
Panel47: TPanel;
|
||
Label185: TLabel;
|
||
Label186: TLabel;
|
||
Label187: TLabel;
|
||
Label188: TLabel;
|
||
Panel48: TPanel;
|
||
Label189: TLabel;
|
||
Label190: TLabel;
|
||
Label191: TLabel;
|
||
Label192: TLabel;
|
||
Panel49: TPanel;
|
||
Label193: TLabel;
|
||
Label194: TLabel;
|
||
Label195: TLabel;
|
||
Label196: TLabel;
|
||
Panel50: TPanel;
|
||
Label197: TLabel;
|
||
Label198: TLabel;
|
||
Label199: TLabel;
|
||
Label200: TLabel;
|
||
Panel51: TPanel;
|
||
Label201: TLabel;
|
||
Label202: TLabel;
|
||
Label203: TLabel;
|
||
Label204: TLabel;
|
||
Panel52: TPanel;
|
||
Label205: TLabel;
|
||
Label206: TLabel;
|
||
Label207: TLabel;
|
||
Label208: TLabel;
|
||
Panel53: TPanel;
|
||
Label209: TLabel;
|
||
Label210: TLabel;
|
||
Label211: TLabel;
|
||
Label212: TLabel;
|
||
Panel54: TPanel;
|
||
Label213: TLabel;
|
||
Label214: TLabel;
|
||
Label215: TLabel;
|
||
Label216: TLabel;
|
||
Panel55: TPanel;
|
||
Label217: TLabel;
|
||
Label218: TLabel;
|
||
Label219: TLabel;
|
||
Label220: TLabel;
|
||
Panel56: TPanel;
|
||
Label221: TLabel;
|
||
Label222: TLabel;
|
||
Label223: TLabel;
|
||
Label224: TLabel;
|
||
Panel57: TPanel;
|
||
Label225: TLabel;
|
||
Label226: TLabel;
|
||
Label227: TLabel;
|
||
Label228: TLabel;
|
||
Panel58: TPanel;
|
||
Label229: TLabel;
|
||
Label230: TLabel;
|
||
Label231: TLabel;
|
||
Label232: TLabel;
|
||
Panel59: TPanel;
|
||
Label233: TLabel;
|
||
Label234: TLabel;
|
||
Label235: TLabel;
|
||
Label236: TLabel;
|
||
Panel60: TPanel;
|
||
Label237: TLabel;
|
||
Label238: TLabel;
|
||
Label239: TLabel;
|
||
Label240: TLabel;
|
||
Panel61: TPanel;
|
||
Label241: TLabel;
|
||
Label242: TLabel;
|
||
Label243: TLabel;
|
||
Label244: TLabel;
|
||
Panel62: TPanel;
|
||
Label245: TLabel;
|
||
Label246: TLabel;
|
||
Label247: TLabel;
|
||
Label248: TLabel;
|
||
Panel63: TPanel;
|
||
Label249: TLabel;
|
||
Label250: TLabel;
|
||
Label251: TLabel;
|
||
Label252: TLabel;
|
||
Panel64: TPanel;
|
||
Label253: TLabel;
|
||
Label254: TLabel;
|
||
Label255: TLabel;
|
||
Label256: TLabel;
|
||
Panel65: TPanel;
|
||
Label257: TLabel;
|
||
Label258: TLabel;
|
||
Label259: TLabel;
|
||
Label260: TLabel;
|
||
Panel66: TPanel;
|
||
Label261: TLabel;
|
||
Label262: TLabel;
|
||
Label263: TLabel;
|
||
Label264: TLabel;
|
||
Panel67: TPanel;
|
||
Label265: TLabel;
|
||
Label266: TLabel;
|
||
Label267: TLabel;
|
||
Label268: TLabel;
|
||
Panel68: TPanel;
|
||
Label269: TLabel;
|
||
Label270: TLabel;
|
||
Label271: TLabel;
|
||
Label272: TLabel;
|
||
Panel69: TPanel;
|
||
Label273: TLabel;
|
||
Label274: TLabel;
|
||
Label275: TLabel;
|
||
Label276: TLabel;
|
||
Panel70: TPanel;
|
||
Label277: TLabel;
|
||
Label278: TLabel;
|
||
Label279: TLabel;
|
||
Label280: TLabel;
|
||
Panel71: TPanel;
|
||
Label281: TLabel;
|
||
Label282: TLabel;
|
||
Label283: TLabel;
|
||
Label284: TLabel;
|
||
Panel72: TPanel;
|
||
Label285: TLabel;
|
||
Label286: TLabel;
|
||
Label287: TLabel;
|
||
Label288: TLabel;
|
||
Panel73: TPanel;
|
||
Label289: TLabel;
|
||
Label290: TLabel;
|
||
Label291: TLabel;
|
||
Label292: TLabel;
|
||
Panel74: TPanel;
|
||
Label293: TLabel;
|
||
Label294: TLabel;
|
||
Label295: TLabel;
|
||
Label296: TLabel;
|
||
Panel75: TPanel;
|
||
Label297: TLabel;
|
||
Label298: TLabel;
|
||
Label299: TLabel;
|
||
Label300: TLabel;
|
||
Panel76: TPanel;
|
||
Label301: TLabel;
|
||
Label302: TLabel;
|
||
Label303: TLabel;
|
||
Label304: TLabel;
|
||
Panel77: TPanel;
|
||
Label305: TLabel;
|
||
Label306: TLabel;
|
||
Label307: TLabel;
|
||
Label308: TLabel;
|
||
Panel78: TPanel;
|
||
Label309: TLabel;
|
||
Label310: TLabel;
|
||
Label311: TLabel;
|
||
Label312: TLabel;
|
||
Panel79: TPanel;
|
||
Label313: TLabel;
|
||
Label314: TLabel;
|
||
Label315: TLabel;
|
||
Label316: TLabel;
|
||
Panel80: TPanel;
|
||
Label317: TLabel;
|
||
Label318: TLabel;
|
||
Label319: TLabel;
|
||
Label320: TLabel;
|
||
Panel81: TPanel;
|
||
Label321: TLabel;
|
||
Label322: TLabel;
|
||
Label323: TLabel;
|
||
Label324: TLabel;
|
||
Panel82: TPanel;
|
||
Label325: TLabel;
|
||
Label326: TLabel;
|
||
Label327: TLabel;
|
||
Label328: TLabel;
|
||
Panel83: TPanel;
|
||
Label329: TLabel;
|
||
Label330: TLabel;
|
||
Label331: TLabel;
|
||
Label332: TLabel;
|
||
Panel84: TPanel;
|
||
Label333: TLabel;
|
||
Label334: TLabel;
|
||
Label335: TLabel;
|
||
Label336: TLabel;
|
||
Panel85: TPanel;
|
||
Label337: TLabel;
|
||
Label338: TLabel;
|
||
Label339: TLabel;
|
||
Label340: TLabel;
|
||
Panel86: TPanel;
|
||
Label341: TLabel;
|
||
Label342: TLabel;
|
||
Label343: TLabel;
|
||
Label344: TLabel;
|
||
Panel87: TPanel;
|
||
Label345: TLabel;
|
||
Label346: TLabel;
|
||
Label347: TLabel;
|
||
Label348: TLabel;
|
||
Panel88: TPanel;
|
||
Label349: TLabel;
|
||
Label350: TLabel;
|
||
Label351: TLabel;
|
||
Label352: TLabel;
|
||
Panel89: TPanel;
|
||
Label353: TLabel;
|
||
Label354: TLabel;
|
||
Label355: TLabel;
|
||
Label356: TLabel;
|
||
Panel90: TPanel;
|
||
Label357: TLabel;
|
||
Label358: TLabel;
|
||
Label359: TLabel;
|
||
Label360: TLabel;
|
||
Panel91: TPanel;
|
||
Label361: TLabel;
|
||
Label362: TLabel;
|
||
Label363: TLabel;
|
||
Label364: TLabel;
|
||
Panel92: TPanel;
|
||
Label365: TLabel;
|
||
Label366: TLabel;
|
||
Label367: TLabel;
|
||
Label368: TLabel;
|
||
Panel93: TPanel;
|
||
Label369: TLabel;
|
||
Label370: TLabel;
|
||
Label371: TLabel;
|
||
Label372: TLabel;
|
||
Panel94: TPanel;
|
||
Label373: TLabel;
|
||
Label374: TLabel;
|
||
Label375: TLabel;
|
||
Label376: TLabel;
|
||
Panel95: TPanel;
|
||
Label377: TLabel;
|
||
Label378: TLabel;
|
||
Label379: TLabel;
|
||
Label380: TLabel;
|
||
Panel96: TPanel;
|
||
Label381: TLabel;
|
||
Label382: TLabel;
|
||
Label383: TLabel;
|
||
Label384: TLabel;
|
||
Panel97: TPanel;
|
||
Label385: TLabel;
|
||
Label386: TLabel;
|
||
Label387: TLabel;
|
||
Label388: TLabel;
|
||
Panel98: TPanel;
|
||
Label389: TLabel;
|
||
Label390: TLabel;
|
||
Label391: TLabel;
|
||
Label392: TLabel;
|
||
Panel99: TPanel;
|
||
Label393: TLabel;
|
||
Label394: TLabel;
|
||
Label395: TLabel;
|
||
Label396: TLabel;
|
||
Panel100: TPanel;
|
||
Label397: TLabel;
|
||
Label398: TLabel;
|
||
Label399: TLabel;
|
||
Label400: TLabel;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
Ord_SH: TClientDataSet;
|
||
Panel102: TPanel;
|
||
Panel103: TPanel;
|
||
Label405: TLabel;
|
||
Edit2: TEdit;
|
||
Edit3: TEdit;
|
||
Label450: TLabel;
|
||
Label451: TLabel;
|
||
Panel101: TPanel;
|
||
Label401: TLabel;
|
||
Label402: TLabel;
|
||
Panel104: TPanel;
|
||
Label403: TLabel;
|
||
Edit4: TEdit;
|
||
Edit5: TEdit;
|
||
Panel105: TPanel;
|
||
Label404: TLabel;
|
||
Label406: TLabel;
|
||
Panel106: TPanel;
|
||
Label407: TLabel;
|
||
Edit6: TEdit;
|
||
Edit7: TEdit;
|
||
Panel107: TPanel;
|
||
Label408: TLabel;
|
||
Label409: TLabel;
|
||
Panel108: TPanel;
|
||
Label410: TLabel;
|
||
Edit8: TEdit;
|
||
Edit9: TEdit;
|
||
Panel109: TPanel;
|
||
Label411: TLabel;
|
||
Label412: TLabel;
|
||
Panel110: TPanel;
|
||
Label413: TLabel;
|
||
Edit10: TEdit;
|
||
Edit11: TEdit;
|
||
Panel111: TPanel;
|
||
Label414: TLabel;
|
||
Label415: TLabel;
|
||
Panel112: TPanel;
|
||
Label416: TLabel;
|
||
Edit12: TEdit;
|
||
Edit13: TEdit;
|
||
Panel113: TPanel;
|
||
Label417: TLabel;
|
||
Label418: TLabel;
|
||
Panel114: TPanel;
|
||
Label419: TLabel;
|
||
Edit14: TEdit;
|
||
Edit15: TEdit;
|
||
Panel115: TPanel;
|
||
Label420: TLabel;
|
||
Label421: TLabel;
|
||
Panel116: TPanel;
|
||
Label422: TLabel;
|
||
Edit16: TEdit;
|
||
Edit17: TEdit;
|
||
Panel117: TPanel;
|
||
Label423: TLabel;
|
||
Label424: TLabel;
|
||
Panel118: TPanel;
|
||
Label425: TLabel;
|
||
Edit18: TEdit;
|
||
Edit19: TEdit;
|
||
Panel119: TPanel;
|
||
Label426: TLabel;
|
||
Label427: TLabel;
|
||
Panel120: TPanel;
|
||
Label428: TLabel;
|
||
Edit20: TEdit;
|
||
Edit21: TEdit;
|
||
Panel121: TPanel;
|
||
Label429: TLabel;
|
||
Label430: TLabel;
|
||
Panel122: TPanel;
|
||
Label431: TLabel;
|
||
Edit22: TEdit;
|
||
Edit23: TEdit;
|
||
Panel123: TPanel;
|
||
Label432: TLabel;
|
||
Label433: TLabel;
|
||
Panel124: TPanel;
|
||
Label434: TLabel;
|
||
Edit24: TEdit;
|
||
Edit25: TEdit;
|
||
Panel125: TPanel;
|
||
Label435: TLabel;
|
||
Label436: TLabel;
|
||
Panel126: TPanel;
|
||
Label437: TLabel;
|
||
Edit26: TEdit;
|
||
Edit27: TEdit;
|
||
Panel127: TPanel;
|
||
Label438: TLabel;
|
||
Label439: TLabel;
|
||
Panel128: TPanel;
|
||
Label440: TLabel;
|
||
Edit28: TEdit;
|
||
Edit29: TEdit;
|
||
Panel129: TPanel;
|
||
Label441: TLabel;
|
||
Label442: TLabel;
|
||
Panel130: TPanel;
|
||
Label443: TLabel;
|
||
Edit30: TEdit;
|
||
Edit31: TEdit;
|
||
Panel131: TPanel;
|
||
Label444: TLabel;
|
||
Label445: TLabel;
|
||
Panel132: TPanel;
|
||
Label446: TLabel;
|
||
Edit32: TEdit;
|
||
Edit33: TEdit;
|
||
Panel133: TPanel;
|
||
Label447: TLabel;
|
||
Label448: TLabel;
|
||
Panel134: TPanel;
|
||
Label449: TLabel;
|
||
Edit34: TEdit;
|
||
Edit35: TEdit;
|
||
Panel135: TPanel;
|
||
Label452: TLabel;
|
||
Label453: TLabel;
|
||
Panel136: TPanel;
|
||
Label454: TLabel;
|
||
Edit36: TEdit;
|
||
Edit37: TEdit;
|
||
Panel137: TPanel;
|
||
Label455: TLabel;
|
||
Label456: TLabel;
|
||
Panel138: TPanel;
|
||
Label457: TLabel;
|
||
Edit38: TEdit;
|
||
Edit39: TEdit;
|
||
Panel139: TPanel;
|
||
Label458: TLabel;
|
||
Label459: TLabel;
|
||
Panel140: TPanel;
|
||
Label460: TLabel;
|
||
Edit40: TEdit;
|
||
Edit41: TEdit;
|
||
Panel141: TPanel;
|
||
Label461: TLabel;
|
||
Label462: TLabel;
|
||
Panel142: TPanel;
|
||
Label463: TLabel;
|
||
Edit42: TEdit;
|
||
Edit43: TEdit;
|
||
Panel143: TPanel;
|
||
Label464: TLabel;
|
||
Label465: TLabel;
|
||
Panel144: TPanel;
|
||
Label466: TLabel;
|
||
Edit44: TEdit;
|
||
Edit45: TEdit;
|
||
Panel145: TPanel;
|
||
Label467: TLabel;
|
||
Label468: TLabel;
|
||
Panel146: TPanel;
|
||
Label469: TLabel;
|
||
Edit46: TEdit;
|
||
Edit47: TEdit;
|
||
Panel147: TPanel;
|
||
Label470: TLabel;
|
||
Label471: TLabel;
|
||
Panel148: TPanel;
|
||
Label472: TLabel;
|
||
Edit48: TEdit;
|
||
Edit49: TEdit;
|
||
Panel149: TPanel;
|
||
Label473: TLabel;
|
||
Label474: TLabel;
|
||
Panel150: TPanel;
|
||
Label475: TLabel;
|
||
Edit50: TEdit;
|
||
Edit51: TEdit;
|
||
Panel151: TPanel;
|
||
Label476: TLabel;
|
||
Label477: TLabel;
|
||
Panel152: TPanel;
|
||
Label478: TLabel;
|
||
Edit52: TEdit;
|
||
Edit53: TEdit;
|
||
Panel153: TPanel;
|
||
Label479: TLabel;
|
||
Label480: TLabel;
|
||
Panel154: TPanel;
|
||
Label481: TLabel;
|
||
Edit54: TEdit;
|
||
Edit55: TEdit;
|
||
Panel155: TPanel;
|
||
Label482: TLabel;
|
||
Label483: TLabel;
|
||
Panel156: TPanel;
|
||
Label484: TLabel;
|
||
Edit56: TEdit;
|
||
Edit57: TEdit;
|
||
Panel157: TPanel;
|
||
Label485: TLabel;
|
||
Label486: TLabel;
|
||
Panel158: TPanel;
|
||
Label487: TLabel;
|
||
Edit58: TEdit;
|
||
Edit59: TEdit;
|
||
Panel159: TPanel;
|
||
Label488: TLabel;
|
||
Label489: TLabel;
|
||
Panel160: TPanel;
|
||
Label490: TLabel;
|
||
Edit60: TEdit;
|
||
Edit61: TEdit;
|
||
Panel161: TPanel;
|
||
Label491: TLabel;
|
||
Label492: TLabel;
|
||
Panel162: TPanel;
|
||
Label493: TLabel;
|
||
Edit62: TEdit;
|
||
Edit63: TEdit;
|
||
Panel163: TPanel;
|
||
Label494: TLabel;
|
||
Label495: TLabel;
|
||
Panel164: TPanel;
|
||
Label496: TLabel;
|
||
Edit64: TEdit;
|
||
Edit65: TEdit;
|
||
Panel165: TPanel;
|
||
Label497: TLabel;
|
||
Label498: TLabel;
|
||
Panel166: TPanel;
|
||
Label499: TLabel;
|
||
Edit66: TEdit;
|
||
Edit67: TEdit;
|
||
Panel167: TPanel;
|
||
Label500: TLabel;
|
||
Label501: TLabel;
|
||
Panel168: TPanel;
|
||
Label502: TLabel;
|
||
Edit68: TEdit;
|
||
Edit69: TEdit;
|
||
Panel169: TPanel;
|
||
Label503: TLabel;
|
||
Label504: TLabel;
|
||
Panel170: TPanel;
|
||
Label505: TLabel;
|
||
Edit70: TEdit;
|
||
Edit71: TEdit;
|
||
Panel171: TPanel;
|
||
Label506: TLabel;
|
||
Label507: TLabel;
|
||
Panel172: TPanel;
|
||
Label508: TLabel;
|
||
Edit72: TEdit;
|
||
Edit73: TEdit;
|
||
Panel173: TPanel;
|
||
Label509: TLabel;
|
||
Label510: TLabel;
|
||
Panel174: TPanel;
|
||
Label511: TLabel;
|
||
Edit74: TEdit;
|
||
Edit75: TEdit;
|
||
Panel175: TPanel;
|
||
Label512: TLabel;
|
||
Label513: TLabel;
|
||
Panel176: TPanel;
|
||
Label514: TLabel;
|
||
Edit76: TEdit;
|
||
Edit77: TEdit;
|
||
Panel177: TPanel;
|
||
Label515: TLabel;
|
||
Label516: TLabel;
|
||
Panel178: TPanel;
|
||
Label517: TLabel;
|
||
Edit78: TEdit;
|
||
Edit79: TEdit;
|
||
Panel179: TPanel;
|
||
Label518: TLabel;
|
||
Label519: TLabel;
|
||
Panel180: TPanel;
|
||
Label520: TLabel;
|
||
Edit80: TEdit;
|
||
Edit81: TEdit;
|
||
Panel181: TPanel;
|
||
Label523: TLabel;
|
||
Label524: TLabel;
|
||
Panel182: TPanel;
|
||
Label525: TLabel;
|
||
Edit82: TEdit;
|
||
Edit83: TEdit;
|
||
Panel183: TPanel;
|
||
Label526: TLabel;
|
||
Label527: TLabel;
|
||
Panel184: TPanel;
|
||
Label528: TLabel;
|
||
Edit84: TEdit;
|
||
Edit85: TEdit;
|
||
Panel185: TPanel;
|
||
Label529: TLabel;
|
||
Label530: TLabel;
|
||
Panel186: TPanel;
|
||
Label531: TLabel;
|
||
Edit86: TEdit;
|
||
Edit87: TEdit;
|
||
Panel187: TPanel;
|
||
Label532: TLabel;
|
||
Label533: TLabel;
|
||
Panel188: TPanel;
|
||
Label534: TLabel;
|
||
Edit88: TEdit;
|
||
Edit89: TEdit;
|
||
Panel189: TPanel;
|
||
Label535: TLabel;
|
||
Label536: TLabel;
|
||
Panel190: TPanel;
|
||
Label537: TLabel;
|
||
Edit90: TEdit;
|
||
Edit91: TEdit;
|
||
Panel191: TPanel;
|
||
Label538: TLabel;
|
||
Label539: TLabel;
|
||
Panel192: TPanel;
|
||
Label540: TLabel;
|
||
Edit92: TEdit;
|
||
Edit93: TEdit;
|
||
Panel193: TPanel;
|
||
Label541: TLabel;
|
||
Label542: TLabel;
|
||
Panel194: TPanel;
|
||
Label543: TLabel;
|
||
Edit94: TEdit;
|
||
Edit95: TEdit;
|
||
Panel195: TPanel;
|
||
Label544: TLabel;
|
||
Label545: TLabel;
|
||
Panel196: TPanel;
|
||
Label546: TLabel;
|
||
Edit96: TEdit;
|
||
Edit97: TEdit;
|
||
Panel197: TPanel;
|
||
Label547: TLabel;
|
||
Label548: TLabel;
|
||
Panel198: TPanel;
|
||
Label549: TLabel;
|
||
Edit98: TEdit;
|
||
Edit99: TEdit;
|
||
Panel199: TPanel;
|
||
Label550: TLabel;
|
||
Label551: TLabel;
|
||
Panel200: TPanel;
|
||
Label552: TLabel;
|
||
Edit100: TEdit;
|
||
Edit101: TEdit;
|
||
Panel201: TPanel;
|
||
ScrollBox3: TScrollBox;
|
||
Label521: TLabel;
|
||
Label522: TLabel;
|
||
BTLP: TButton;
|
||
BTNP: TButton;
|
||
Button1: TButton;
|
||
PTID: TEdit;
|
||
ColName: TEdit;
|
||
Edit1: TEdit;
|
||
ScrollBox4: TScrollBox;
|
||
Button2: TButton;
|
||
SY: TButton;
|
||
XY: TButton;
|
||
LBCPAP: TLabel;
|
||
Label553: TLabel;
|
||
Label554: TLabel;
|
||
Label555: TLabel;
|
||
Label556: TLabel;
|
||
ColNameKH: TEdit;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure BTLPClick(Sender: TObject);
|
||
procedure BTNPClick(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure Panel1DblClick(Sender: TObject);
|
||
procedure Panel101DblClick(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure Panel102MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Edit2Exit(Sender: TObject);
|
||
procedure Edit3Exit(Sender: TObject);
|
||
procedure XYClick(Sender: TObject);
|
||
procedure SYClick(Sender: TObject);
|
||
procedure ColNameKeyPress(Sender: TObject; var Key: Char);
|
||
private
|
||
FSKID,FCPID,FCPNo,FCPName:string;
|
||
FPTID,FColNameEng,FColName,FColNameKH:string;
|
||
FColor:TColor;
|
||
y,Z,my,mz:integer;
|
||
procedure SaveData();
|
||
procedure InitSHByOrdBP_SH();
|
||
{ Private declarations }
|
||
public
|
||
flag,flagname,snote,MainType,FGYName,Fint,FColorFlag,formid:string;
|
||
fnote,fnote1,forderno,fZdyFlag,ViewFlag,fHelpType:Boolean;
|
||
PPSTE:integer;
|
||
procedure initimageSH();
|
||
procedure initimageSHSql();
|
||
procedure initPanel();
|
||
procedure initPL();
|
||
{ Public declarations }
|
||
end;
|
||
var
|
||
frmBPZDY_Panel_M: TfrmBPZDY_Panel_M;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun10,U_BPZdy_YT;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmBPZDY_Panel_M.InitSHByOrdBP_SH();
|
||
var
|
||
i,j,z,q:Integer;
|
||
begin
|
||
with Ord_SH do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
q:=1;
|
||
while not Eof do
|
||
begin
|
||
if (q>50*(my-1)) and (q<=50*my) then
|
||
begin
|
||
with ScrollBox1 do
|
||
begin
|
||
TPanel(Controls[i]).Visible:=True;
|
||
TPanel(Controls[i]).Hint:=Trim(Ord_SH.Fieldbyname('PTID').AsString);
|
||
TPanel(Controls[i]).Color:=StrToInt('$'+Trim(Ord_SH.Fieldbyname('ColDaiMa').AsString));
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
TLabel(Controls[0]).Caption:=Trim(Ord_SH.Fieldbyname('PTID').AsString);
|
||
TLabel(Controls[1]).Caption:=Trim(Ord_SH.Fieldbyname('ColNameEng').AsString);
|
||
for j:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[j] is TPanel then
|
||
begin
|
||
with TPanel(Controls[j]) do
|
||
begin
|
||
for z:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[z] is TEdit then
|
||
begin
|
||
if TEdit(Controls[z]).Tag=1 then
|
||
begin
|
||
TEdit(Controls[z]).Text:=Trim(Ord_SH.Fieldbyname('ColNo').AsString);
|
||
TEdit(Controls[z]).Hint:=Trim(Ord_SH.Fieldbyname('PTID').AsString);
|
||
end else
|
||
begin
|
||
TEdit(Controls[z]).Text:=Trim(Ord_SH.Fieldbyname('ColNameKH').AsString);
|
||
TEdit(Controls[z]).Hint:=Trim(Ord_SH.Fieldbyname('PTID').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
i:=i+1;
|
||
end;
|
||
q:=q+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.initPL();
|
||
var i,j,x:Integer;
|
||
begin
|
||
with Self.ScrollBox1 do
|
||
begin
|
||
for i:=0 to Self.ScrollBox1.ControlCount-1 do
|
||
begin
|
||
if Controls[i] is TPanel then
|
||
begin
|
||
if TPanel(Controls[i]).Ctl3D=False then
|
||
begin
|
||
TPanel(Controls[i]).Visible:=false;
|
||
Self.ScrollBox1.Refresh;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
Self.ScrollBox1.Refresh;
|
||
Self.InitSHByOrdBP_SH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.initPanel();
|
||
var i:integer;
|
||
begin
|
||
with ScrollBox1 do
|
||
begin
|
||
for i:=0 to ScrollBox1.ControlCount-1 do
|
||
begin
|
||
if TPanel(Controls[i]).Visible=False then
|
||
begin
|
||
TPanel(Controls[i]).Visible:=True;
|
||
TPanel(Controls[i]).Color:=FColor;
|
||
TPanel(Controls[i]).Hint:=FPTID;
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
TLabel(Controls[0]).Caption:=Trim(FPTID);
|
||
TLabel(Controls[1]).Caption:=Trim(FColNameEng);
|
||
TLabel(Controls[2]).Caption:=Trim(FColName);
|
||
TLabel(Controls[3]).Caption:=Trim(FColNameKH);
|
||
TLabel(Controls[0]).Visible:=False;
|
||
TLabel(Controls[1]).Visible:=False;
|
||
TLabel(Controls[2]).Visible:=False;
|
||
TLabel(Controls[3]).Visible:=False;
|
||
end;
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.initimageSH();
|
||
var
|
||
i,j,x:Integer;
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from RT_PTColor_M ');
|
||
sql.Add('where 1=1 ');
|
||
if PTID.Text<>'' then
|
||
begin
|
||
sql.Add(' and PTID='''+trim(PTID.Text)+'''');
|
||
end;
|
||
if ColName.Text<>'' then
|
||
begin
|
||
sql.Add(' and ColName='''+trim(ColName.Text)+'''');
|
||
end;
|
||
if ColNameKH.Text<>'' then
|
||
begin
|
||
sql.Add(' and ColNameKH like'''+'%'+trim(ColNameKH.Text)+'%'+'''');
|
||
end;
|
||
if (PTID.Text='') and (ColName.Text='') then
|
||
begin
|
||
sql.Add(' and PTInt>'''+trim(IntToStr((y-1)*100))+'''');
|
||
sql.Add(' and PTInt<='''+trim(IntToStr(y*100))+'''');
|
||
end;
|
||
sql.Add(' order by PTID ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
ADOQueryTemp.DisableControls;
|
||
with ADOQueryTemp do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
while not Eof do
|
||
begin
|
||
with ScrollBox2 do
|
||
begin
|
||
TPanel(Controls[i]).Visible:=True;
|
||
TPanel(Controls[i]).Hint:=Trim(ADOQueryTemp.Fieldbyname('PTID').AsString);
|
||
TPanel(Controls[i]).Color:=StrToInt('$'+Trim(ADOQueryTemp.Fieldbyname('ColDaiMa').AsString));
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
TLabel(Controls[0]).Caption:=Trim(ADOQueryTemp.Fieldbyname('PTID').AsString);
|
||
TLabel(Controls[1]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColNameEng').AsString);
|
||
TLabel(Controls[2]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColName').AsString);
|
||
TLabel(Controls[3]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColNameKH').AsString);
|
||
TLabel(Controls[0]).Visible:=False;
|
||
TLabel(Controls[1]).Visible:=False;
|
||
TLabel(Controls[2]).Visible:=False;
|
||
TLabel(Controls[3]).Visible:=False;
|
||
end;
|
||
end;
|
||
i:=i+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
ADOQueryTemp.EnableControls;
|
||
LBCPAP.Caption:=IntToStr(y)+'/'+inttostr(Z);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.initimageSHSql();
|
||
var
|
||
i,j,x:Integer;
|
||
begin
|
||
with ScrollBox2 do
|
||
begin
|
||
for x:=0 to ScrollBox2.ControlCount-1 do
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
end;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from RT_PTColor_M ');
|
||
sql.Add('where 1=1 ');
|
||
if Trim(PTID.Text)<>'' then
|
||
begin
|
||
sql.Add(' and PTID='''+trim(PTID.Text)+'''');
|
||
end;
|
||
if Trim(ColName.Text)<>'' then
|
||
begin
|
||
sql.Add(' and ColName='''+trim(ColName.Text)+'''');
|
||
end;
|
||
if Trim(ColNameKH.Text)<>'' then
|
||
begin
|
||
sql.Add(' and ColNameKH like'''+'%'+trim(ColNameKH.Text)+'%'+'''');
|
||
end;
|
||
if (PTID.Text='') and (ColName.Text='') and (ColNameKH.Text='') then
|
||
begin
|
||
sql.Add(' and PTInt>'''+trim(IntToStr((y-1)*100))+'''');
|
||
sql.Add(' and PTInt<='''+trim(IntToStr(y*100))+'''');
|
||
end;
|
||
sql.Add(' order by PTID ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
ADOQueryTemp.DisableControls;
|
||
with ADOQueryTemp do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
while not Eof do
|
||
begin
|
||
with ScrollBox2 do
|
||
begin
|
||
TPanel(Controls[i]).Visible:=True;
|
||
TPanel(Controls[i]).Hint:=Trim(ADOQueryTemp.Fieldbyname('PTID').AsString);
|
||
TPanel(Controls[i]).Color:=StrToInt('$'+Trim(ADOQueryTemp.Fieldbyname('ColDaiMa').AsString));
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
TLabel(Controls[0]).Caption:=Trim(ADOQueryTemp.Fieldbyname('PTID').AsString);
|
||
TLabel(Controls[1]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColNameEng').AsString);
|
||
TLabel(Controls[2]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColName').AsString);
|
||
TLabel(Controls[3]).Caption:=Trim(ADOQueryTemp.Fieldbyname('ColNameKH').AsString);
|
||
TLabel(Controls[0]).Visible:=False;
|
||
TLabel(Controls[1]).Visible:=False;
|
||
TLabel(Controls[2]).Visible:=False;
|
||
TLabel(Controls[3]).Visible:=False;
|
||
end;
|
||
end;
|
||
i:=i+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
ADOQueryTemp.EnableControls;
|
||
LBCPAP.Caption:=IntToStr(y)+'/'+inttostr(Z);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.SaveData();
|
||
var
|
||
maxno,FColID:string;
|
||
j,i:Integer;
|
||
begin
|
||
ScrollBox3.SetFocus;
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
Ord_SH.DisableControls;
|
||
with Ord_SH do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
FColID:=Trim(fieldbyname('ColID').AsString);
|
||
if Trim(FColID)='' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd,maxno,'TJ','BP_ColZDY_M',3,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(FColID);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from BP_ColZDY_M where ColID='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if Trim(FColID)='' then
|
||
begin
|
||
Append;
|
||
end else
|
||
begin
|
||
Edit;
|
||
end;
|
||
FieldByName('ColID').Value:=Trim(maxno);
|
||
FieldByName('PTID').Value:=Trim(Ord_SH.fieldbyname('PTID').AsString);
|
||
if Ord_SH.fieldbyname('ColNo').AsString='' then
|
||
begin
|
||
FieldByName('ColNo').Value:=Ord_SH.RecordCount+1;
|
||
end
|
||
else
|
||
FieldByName('ColNo').Value:=Trim(Ord_SH.fieldbyname('ColNo').AsString);
|
||
FieldByName('ColNameKH').Value:=Trim(Ord_SH.fieldbyname('ColNameKH').AsString);
|
||
if FColorFlag<>'' then
|
||
FieldByName('SKID').Value:=Trim(FColorFlag)
|
||
else
|
||
FieldByName('SKID').Value:=Trim(maxno);
|
||
Post;
|
||
end;
|
||
Edit;
|
||
FieldByName('ColID').Value:=Trim(maxno);
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
SQL.Add('update RT_PTColor_M set ColNameKH='''+trim(Ord_SH.fieldbyname('ColNameKH').AsString)+''' ');
|
||
sql.Add(' where PTID='''+trim(Ord_SH.fieldbyname('PTID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
Ord_SH.EnableControls;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+trim(FColorFlag)+''' ');
|
||
sql.Add('where BPCode='''+trim(FColorFlag)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
//Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ');
|
||
except
|
||
Ord_SH.EnableControls;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.FormShow(Sender: TObject);
|
||
var
|
||
x:Integer;
|
||
begin
|
||
my:=1;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select Count(PTID) GS from RT_PTColor_M');
|
||
open;
|
||
end;
|
||
y:=1;
|
||
z:=ceil(ADOQueryCmd.fieldbyname('GS').AsInteger/100);
|
||
LBCPAP.Caption:='1/'+inttostr(z);
|
||
if Trim(FColorFlag)='' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* ');
|
||
SQL.Add(',MXGS=(select count(C.PTID) from BP_ColZDY_M C where C.SKID=B.SKID and isnull(C.SKID,'''')<>'''') ');
|
||
sql.Add('from RT_PTColor_M A ');
|
||
sql.Add('inner join BP_ColZDY_M B on B.PTID=A.PTID ');
|
||
sql.Add('where 1=2');
|
||
sql.Add(' order by cast(B.ColNo as int)');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp,Ord_SH);
|
||
SInitCDSData20(ADOQueryTemp,Ord_SH);
|
||
end else
|
||
begin
|
||
with ScrollBox1 do
|
||
begin
|
||
for x:=0 to ScrollBox1.ControlCount-1 do
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
end;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* ');
|
||
SQL.Add(',MXGS=(select count(C.PTID) from BP_ColZDY_M C where C.SKID=B.SKID and isnull(C.SKID,'''')<>'''') ');
|
||
sql.Add('from RT_PTColor_M A ');
|
||
sql.Add('inner join BP_ColZDY_M B on B.PTID=A.PTID ');
|
||
sql.Add('where B.SKID='''+trim(FColorFlag)+''' and isnull(B.SKID,'''')<>''''');
|
||
sql.Add(' order by cast(B.ColNo as int)');
|
||
//showmessage(sql.text);
|
||
Open;
|
||
end;
|
||
mz:=ceil(ADOQueryTemp.fieldbyname('MXGS').AsInteger/50);
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
SCreateCDS20(ADOQueryTemp,Ord_SH);
|
||
SInitCDSData20(ADOQueryTemp,Ord_SH);
|
||
InitSHByOrdBP_SH();
|
||
end;
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.BTLPClick(Sender: TObject);
|
||
begin
|
||
if y=1 then exit;
|
||
if y<z then
|
||
begin
|
||
BTNP.Enabled:=true;
|
||
end
|
||
else
|
||
begin
|
||
BTNP.Enabled:=False;
|
||
end;
|
||
y:=y-1;
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.BTNPClick(Sender: TObject);
|
||
begin
|
||
if y=z then exit;
|
||
BTNP.Enabled:=False;
|
||
if y>0 then
|
||
begin
|
||
BTLP.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
BTLP.Enabled:=False;
|
||
end;
|
||
y:=y+1;
|
||
initimageSH();
|
||
BTNP.Enabled:=true;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Button1Click(Sender: TObject);
|
||
begin
|
||
y:=1;
|
||
if (y<0) or (y>z) then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>Ч','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
button1.Enabled:=False;
|
||
if y>1 then
|
||
begin
|
||
BTLP.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
BTLP.Enabled:=False;
|
||
end;
|
||
initimageSH();
|
||
button1.Enabled:=true;
|
||
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Panel1MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
FColor:=TPanel(Sender).Color;
|
||
with TPanel(Sender) do
|
||
begin
|
||
for i:=0 to 3 do
|
||
begin
|
||
if TLabel(Controls[i]).Visible=false then
|
||
TLabel(Controls[i]).Visible:=True
|
||
else
|
||
TLabel(Controls[i]).Visible:=false;
|
||
TLabel(Controls[i]).Color:=clWhite;
|
||
end;
|
||
FPTID:=Trim(TLabel(Controls[0]).Caption);
|
||
FColNameEng:=Trim(TLabel(Controls[1]).Caption);
|
||
FColName:=Trim(TLabel(Controls[2]).Caption);
|
||
FColNameKH:=Trim(TLabel(Controls[3]).Caption);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.N1Click(Sender: TObject);
|
||
begin
|
||
FrmBPZdy_YT:=TFrmBPZdy_YT.create(Self);
|
||
with FrmBPZdy_YT do
|
||
begin
|
||
BJFlag:='Y';
|
||
Panel1.Color:=FColor;
|
||
Label1.Caption:=FPTID;
|
||
Label2.Caption:=FColNameEng;
|
||
Label3.Caption:=FColName;
|
||
Label4.Caption:=FColNameKH;
|
||
if showmodal=1 then
|
||
begin
|
||
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Panel1DblClick(Sender: TObject);
|
||
var i:Integer;
|
||
begin
|
||
with TPanel(Sender) do
|
||
begin
|
||
FPTID:=Trim(TLabel(Controls[0]).Caption);
|
||
FColNameEng:=Trim(TLabel(Controls[1]).Caption);
|
||
FColName:=Trim(TLabel(Controls[2]).Caption);
|
||
FColNameKH:=Trim(TLabel(Controls[3]).Caption);
|
||
end;
|
||
if Ord_SH.Locate('PTID',FPTID,[])=False then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from RT_PTColor_M where PTID='''+Trim(FPTID)+'''');
|
||
Open;
|
||
end;
|
||
with Ord_SH do
|
||
begin
|
||
if formid='1' then
|
||
edit
|
||
else
|
||
Append;
|
||
FieldByName('ColDaiMa').Value:=Trim(ADOQueryTemp.fieldbyname('ColDaiMa').AsString);
|
||
FieldByName('PTID').Value:=FPTID;
|
||
FieldByName('ColNo').Value:=Ord_SH.RecordCount+1;
|
||
FieldByName('ColNameEng').Value:=FColNameEng;
|
||
FieldByName('ColName').Value:=FColName;
|
||
FieldByName('ColNameKH').Value:=FColNameKH;
|
||
post;
|
||
end;
|
||
i:=Ord_SH.RecordCount;
|
||
mz:=ceil(i/50);
|
||
Label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
end;
|
||
InitSHByOrdBP_SH();
|
||
if formid='1' then
|
||
begin
|
||
Button2.Click;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Panel101DblClick(Sender: TObject);
|
||
var i:Integer;
|
||
begin
|
||
if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>','<27><>ʾ',1)=2 then Exit;
|
||
FColor:=clBtnFace;
|
||
TPanel(Sender).Visible:=false;
|
||
with TPanel(Sender) do
|
||
begin
|
||
for i:=0 to 1 do
|
||
begin
|
||
TLabel(Controls[i]).Visible:=false;
|
||
end;
|
||
Ord_SH.Locate('PTID',TLabel(Controls[0]).Caption,[]);
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete from BP_ColZDY_M where ColID='''+Trim(Ord_SH.fieldbyname('ColID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
Ord_SH.Delete;
|
||
FPTID:='';
|
||
FColNameEng:='';
|
||
FColName:='';
|
||
FColNameKH:='';
|
||
if Ord_SH.IsEmpty then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''' where SKID='''+Trim(FColorFlag)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
end;
|
||
Self.initPL();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Button2Click(Sender: TObject);
|
||
begin
|
||
if Ord_SH.IsEmpty then exit;
|
||
PTID.SetFocus;
|
||
savedata();
|
||
ModalResult:=1;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Panel102MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
var
|
||
i:Integer;
|
||
FPT:string;
|
||
begin
|
||
FColor:=TPanel(Sender).Color;
|
||
with TPanel(Sender) do
|
||
begin
|
||
for i:=0 to 1 do
|
||
begin
|
||
if TLabel(Controls[i]).Visible=false then
|
||
TLabel(Controls[i]).Visible:=True
|
||
else
|
||
TLabel(Controls[i]).Visible:=false;
|
||
TLabel(Controls[i]).Color:=clWhite;
|
||
end;
|
||
FPT:=Trim(TLabel(Controls[0]).Caption);
|
||
Ord_SH.Locate('PTID',FPT,[]);
|
||
FPTID:=Trim(Ord_SH.fieldbyname('PTID').AsString);
|
||
FColNameEng:=Trim(Ord_SH.fieldbyname('ColNameEng').AsString);
|
||
FColName:=Trim(Ord_SH.fieldbyname('ColName').AsString);
|
||
FColNameKH:=Trim(Ord_SH.fieldbyname('ColNameKH').AsString);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Edit2Exit(Sender: TObject);
|
||
var
|
||
FPT,FTEX:string;
|
||
begin
|
||
FPT:=Trim(TEdit(Sender).Hint);
|
||
FTEX:=Trim(TEdit(Sender).Text);
|
||
if FTEX<>'0' then
|
||
begin
|
||
if StrToIntDef(FTEX,0)=0 then
|
||
begin
|
||
application.MessageBox('ɫ<>ű<EFBFBD><C5B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
||
FTEX:='';
|
||
TEdit(Sender).Text:='';
|
||
exit;
|
||
end;
|
||
end;
|
||
//ShowMessage(FPT);
|
||
with Ord_SH do
|
||
begin
|
||
if Locate('PTID',FPT,[]) then
|
||
begin
|
||
Edit;
|
||
FieldByName('ColNo').value:=Trim(FTEX);
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.Edit3Exit(Sender: TObject);
|
||
var FPT,FTEX:string;
|
||
begin
|
||
FPT:=Trim(TEdit(Sender).Hint);
|
||
FTEX:=Trim(TEdit(Sender).Text);
|
||
with Ord_SH do
|
||
begin
|
||
if Locate('PTID',FPT,[]) then
|
||
begin
|
||
Edit;
|
||
FieldByName('ColNameKH').value:=Trim(FTEX);
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.XYClick(Sender: TObject);
|
||
var x:integer;
|
||
begin
|
||
if my=mz then exit;
|
||
XY.Enabled:=False;
|
||
my:=my+1;
|
||
if my>0 then
|
||
begin
|
||
SY.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
SY.Enabled:=False;
|
||
end;
|
||
with ScrollBox1 do
|
||
begin
|
||
for x:=0 to ScrollBox1.ControlCount-1 do
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
end;
|
||
end;
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
InitSHByOrdBP_SH();
|
||
XY.Enabled:=true;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.SYClick(Sender: TObject);
|
||
var x:integer;
|
||
begin
|
||
if my=1 then exit;
|
||
SY.Enabled:=False;
|
||
my:=my-1;
|
||
if my<mz then
|
||
begin
|
||
XY.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
XY.Enabled:=False;
|
||
end;
|
||
with ScrollBox1 do
|
||
begin
|
||
for x:=0 to ScrollBox1.ControlCount-1 do
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
end;
|
||
end;
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
InitSHByOrdBP_SH();
|
||
SY.Enabled:=true;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_Panel_M.ColNameKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key=#13 then
|
||
begin
|
||
initimageSHSql();
|
||
end;
|
||
end;
|
||
|
||
end.
|