Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ff5a18cd95
D7myYunxiang/云翔生产管理(MYSC.dll)/U_BPZdy_Panel.pas
DESKTOP-E401PHE\Administrator 1011cb7292 1
2025-01-20 13:04:03 +08:00

803 lines
18 KiB
ObjectPascal
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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('<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.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('<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.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 y<z then
begin
BTNP.Enabled:=true;
end
else
begin
BTNP.Enabled:=False;
end;
y:=y-1;
initimageSH();
end;
procedure TfrmBPZDY_Panel.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.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.
Reference in New Issue View Git Blame Copy Permalink