1127 lines
26 KiB
ObjectPascal
1127 lines
26 KiB
ObjectPascal
|
unit U_BPZdy_Panel_RSCX;
|
|||
|
|
|
|||
|
|
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_RSCX = 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;
|
|||
|
|
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;
|
|||
|
|
Panel201: TPanel;
|
|||
|
|
ScrollBox3: TScrollBox;
|
|||
|
|
Label521: TLabel;
|
|||
|
|
Label522: TLabel;
|
|||
|
|
BTLP: TButton;
|
|||
|
|
BTNP: TButton;
|
|||
|
|
Button1: TButton;
|
|||
|
|
PTID: TEdit;
|
|||
|
|
ColName: TEdit;
|
|||
|
|
Edit1: TEdit;
|
|||
|
|
LBCPAP: TLabel;
|
|||
|
|
Label553: TLabel;
|
|||
|
|
Label556: TLabel;
|
|||
|
|
ColNameKH: TEdit;
|
|||
|
|
TBClose: TButton;
|
|||
|
|
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 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);
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
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:string;
|
|||
|
|
fnote,fnote1,forderno,fZdyFlag,ViewFlag,fHelpType:Boolean;
|
|||
|
|
PPSTE:integer;
|
|||
|
|
procedure initimageSH();
|
|||
|
|
procedure initimageSHSql();
|
|||
|
|
procedure initPanel();
|
|||
|
|
procedure initPL();
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
var
|
|||
|
|
frmBPZDY_Panel_RSCX: TfrmBPZDY_Panel_RSCX;
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_DataLink,U_Fun10,U_BPZdy_YT;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.InitSHByOrdBP_SH();
|
|||
|
|
var
|
|||
|
|
i,j,z,q:Integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.initPL();
|
|||
|
|
var i,j,x:Integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.initPanel();
|
|||
|
|
var i:integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.initimageSH();
|
|||
|
|
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 ');
|
|||
|
|
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_RSCX.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 ');
|
|||
|
|
sql.Add('where 1=1 ');
|
|||
|
|
if Trim(PTID.Text)<>'' then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and PTID like '''+'%'+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_RSCX.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,'CL','BP_ColZDY',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 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);
|
|||
|
|
FieldByName('SKID').Value:=Trim(FColorFlag);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('ColID').Value:=Trim(maxno);
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('update RT_PTColor 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 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_RSCX.FormClose(Sender: TObject;
|
|||
|
|
var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
Action:=caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.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');
|
|||
|
|
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 C where C.SKID=B.SKID and isnull(C.SKID,'''')<>'''') ');
|
|||
|
|
sql.Add('from RT_PTColor A ');
|
|||
|
|
sql.Add('left join BP_ColZDY 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
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
initimageSH();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.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_RSCX.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_RSCX.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_RSCX.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_RSCX.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_RSCX.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 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 set SKID='''' where SKID='''+Trim(FColorFlag)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Self.initPL();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.Button2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Ord_SH.IsEmpty then exit;
|
|||
|
|
PTID.SetFocus;
|
|||
|
|
savedata();
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.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_RSCX.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_RSCX.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_RSCX.XYClick(Sender: TObject);
|
|||
|
|
var x:integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.SYClick(Sender: TObject);
|
|||
|
|
var x:integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.ColNameKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key=#13 then
|
|||
|
|
begin
|
|||
|
|
initimageSHSql();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBPZDY_Panel_RSCX.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmBPZDY_Panel_RSCX:=nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|