unit U_BPZdy_Panel; 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,Math, Menus, cxCalendar, cxPC, Buttons; type TfrmBPZDY_Panel = 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; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure BTLPClick(Sender: TObject); procedure BTNPClick(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ColNameKeyPress(Sender: TObject; var Key: Char); private FColor:TColor; y,Z,my,mz:integer; { Private declarations } public FPTID,FColNameEng,FColName,FColNameKH,FColorFlag:string; procedure initimageSH(); procedure initimageSHSql(); { Public declarations } end; var frmBPZDY_Panel: TfrmBPZDY_Panel; implementation uses U_DataLink,U_RTFun; {$R *.dfm} procedure TfrmBPZDY_Panel.initimageSH(); var i,j,x:Integer; begin 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('数据不存在！','提示',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.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='''+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('数据不存在！','提示',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.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfrmBPZDY_Panel.TBCloseClick(Sender: TObject); begin Close; end; procedure TfrmBPZDY_Panel.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); initimageSH(); end; procedure TfrmBPZDY_Panel.BTLPClick(Sender: TObject); begin if y=1 then exit; if y0 then begin BTLP.Enabled:=True; end else begin BTLP.Enabled:=False; end; y:=y+1; initimageSH(); BTNP.Enabled:=true; end; procedure TfrmBPZDY_Panel.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.ColNameKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin initimageSHSql(); end; end; end.