Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-23 17:29:49 +08:00
parent 298ffe5dca
commit a68893445e
5 changed files with 320 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

175
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm
View File

@ -1,6 +1,6 @@
object frmCKProductBCPOutList: TfrmCKProductBCPOutList object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 309 Left = 316
Top = 334 Top = 303
Width = 1621 Width = 1621
Height = 863 Height = 863
Caption = #25104#21697#20986#24211#21015#34920 Caption = #25104#21697#20986#24211#21015#34920
@ -62,44 +62,50 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
ImageIndex = 4 ImageIndex = 4
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ComboBox1: TComboBox object Panel4: TPanel
Left = 317 Left = 317
Top = 1
Width = 128
Height = 27
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 19
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = #25104#21697#20986#24211#21333
Items.Strings = (
#25104#21697#20986#24211#21333
#25104#21697#20986#24211#27719#24635#21333)
end
object TBExport: TToolButton
Left = 445
Top = 0 Top = 0
AutoSize = True Width = 259
Caption = #23548#20986 Height = 30
ImageIndex = 68 BevelInner = bvRaised
OnClick = TBExportClick BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label12: TLabel
Left = 3
Top = 7
Width = 80
Height = 19
Caption = #30721#21333#21517#31216
end
object MDName: TBtnEditA
Left = 89
Top = 1
Width = 164
Height = 28
ReadOnly = True
TabOrder = 0
OnBtnClick = MDNameBtnClick
end
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 524 Left = 576
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton
Left = 655
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 68
OnClick = TBExportClick
end
object TBClose: TToolButton object TBClose: TToolButton
Left = 603 Left = 734
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -265,7 +271,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 518 Left = 518
Top = 8 Top = 8
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -310,7 +316,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 326 Left = 326
Top = 36 Top = 36
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -325,7 +331,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 667 Left = 667
Top = 36 Top = 36
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -340,7 +346,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 326 Left = 326
Top = 8 Top = 8
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -377,7 +383,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 1017 Left = 1017
Top = 8 Top = 8
Width = 80 Width = 80
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -455,7 +461,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 667 Left = 667
Top = 8 Top = 8
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -470,7 +476,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 518 Left = 518
Top = 36 Top = 36
Width = 90 Width = 90
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -485,7 +491,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 1017 Left = 1017
Top = 36 Top = 36
Width = 80 Width = 80
Height = 30 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -831,34 +837,34 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600 CommandTimeout = 600
Parameters = <> Parameters = <>
Left = 1124 Left = 628
Top = 64 Top = 309
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 1148 Left = 710
Top = 40 Top = 309
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
CommandTimeout = 6000 CommandTimeout = 6000
Parameters = <> Parameters = <>
Left = 1188 Left = 338
Top = 40 Top = 253
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = CDS_Main DataSet = CDS_Main
Left = 872 Left = 874
Top = 200 Top = 371
end end
object CDS_Main: TClientDataSet object CDS_Main: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 656 Left = 628
Top = 224 Top = 371
end end
object RMXLSExport1: TRMXLSExport object RMXLSExport1: TRMXLSExport
ShowAfterExport = True ShowAfterExport = True
@ -871,12 +877,12 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 408 Left = 628
Top = 264 Top = 495
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 304 Left = 628
Top = 264 Top = 433
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -887,41 +893,41 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
end end
end end
object DS_JuanPRT: TDataSource object DS_JuanPRT: TDataSource
Left = 360 Left = 956
Top = 384 Top = 371
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 352 Left = 792
Top = 304 Top = 371
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600 CommandTimeout = 600
Parameters = <> Parameters = <>
Left = 1180 Left = 792
Top = 77 Top = 309
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOQueryPrint DataSet = ADOQueryPrint
Left = 696 Left = 874
Top = 392 Top = 433
end end
object RMDBHZ: TRMDBDataSet object RMDBHZ: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_HZ DataSet = ADOQueryPrint
Left = 432 Left = 710
Top = 512 Top = 433
end end
object CDS_HZ: TClientDataSet object CDS_HZ: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 400 Left = 956
Top = 516 Top = 309
end end
object RM3: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
InitialZoom = pzDefault InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
@ -937,20 +943,47 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 468 Left = 956
Top = 444 Top = 433
ReportData = {} ReportData = {}
end end
object RMDBPRT: TRMDBDataSet object RMDBPRT: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_PRT
Left = 440 Left = 792
Top = 444 Top = 433
end end
object CDS_PRT: TClientDataSet object CDS_PRT: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 396 Left = 710
Top = 448 Top = 371
end
object ADOQuery1: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 344
Top = 429
end
object ADOQuery2: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 368
Top = 325
end
object ADOQueryPrint1: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 384
Top = 533
end
object RMDBHZ1: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint1
Left = 432
Top = 536
end end
end end

225
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas
View File

@ -14,18 +14,17 @@ uses
Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, BtnEdit;
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmCKProductBCPOutList = class(TForm) TfrmCKProductBCPOutList = class(TForm)
@ -91,7 +90,7 @@ type
v1rkplace: TcxGridDBColumn; v1rkplace: TcxGridDBColumn;
RMDBHZ: TRMDBDataSet; RMDBHZ: TRMDBDataSet;
CDS_HZ: TClientDataSet; CDS_HZ: TClientDataSet;
RM3: TRMGridReport; RM1: TRMGridReport;
RMDBPRT: TRMDBDataSet; RMDBPRT: TRMDBDataSet;
CDS_PRT: TClientDataSet; CDS_PRT: TClientDataSet;
Label22: TLabel; Label22: TLabel;
@ -108,12 +107,18 @@ type
ganghao: TEdit; ganghao: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ComboBox1: TComboBox;
LBCPAP: TLabel; LBCPAP: TLabel;
Label1: TLabel; Label1: TLabel;
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
Label8: TLabel; Label8: TLabel;
MLConNo: TEdit; MLConNo: TEdit;
Panel4: TPanel;
Label12: TLabel;
MDName: TBtnEditA;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQueryPrint1: TADOQuery;
RMDBHZ1: TRMDBDataSet;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -135,6 +140,7 @@ type
procedure edtSMNOKeyPress(Sender: TObject; var Key: Char); procedure edtSMNOKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure MDNameBtnClick(Sender: TObject);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -151,7 +157,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_SysLogHelp, U_Fun; U_DataLink, U_RTFun, U_SysLogHelp, U_Fun, U_ZDYHelp;
{$R *.dfm} {$R *.dfm}
@ -452,47 +458,172 @@ end;
procedure TfrmCKProductBCPOutList.ToolButton1Click(Sender: TObject); procedure TfrmCKProductBCPOutList.ToolButton1Click(Sender: TObject);
var var
fPrintFile, fPrintFile10, FMainID, FKHName, FFPNo: string; fPrintFile, FCKNO: string;
begin begin
ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp); if CDS_Main.IsEmpty then
if trim(ComboBox1.Text) = '成品出库单' then Exit;
{ if CustomerNoName.Text = '' then
begin begin
with ADOQueryTemp do application.MessageBox('查询条件客户不能为空', '提示');
begin exit;
end; }
Close; if CDS_Main.Locate('ssel', True, []) = false then
sql.Clear;
sql.add('exec P_Print_CKMDWSQ1 ');
sql.add('@CKOrdNo=' + quotedstr(Trim(Trim(CDS_Main.fieldbyname('CKOrdNo').AsString))));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if trim(ComboBox1.Text) = '成品出库汇总单' then
begin begin
with ADOQueryTemp do application.MessageBox('没有选择数据', '提示');
begin exit;
Close;
sql.Clear;
sql.add('exec P_Print_CKMDWSQ2 ');
sql.add('@CKOrdNo=' + quotedstr(Trim(Trim(CDS_Main.fieldbyname('CKOrdNo').AsString))));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
end; end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf'; if Trim(MDName.Text) = '' then
begin
Application.MessageBox('码单名称不能为空!', '提示', 0);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
{if CheckBox1.Checked=False then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\销售码单新.rmf';
end else
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\销售码单新无单价.rmf';
end; }
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MDName.Text) + '.rmf';
RMXLSExport1 := TRMXLSExport.Create(RMXLSExport1);
FCKNO := '';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TbForBatch where DName=' + quotedstr(Trim(DName)));
SQL.Add('and MainType=' + quotedstr('样品码单'));
ExecSQL;
end;
with CDS_Main do
begin
first;
while not Eof do
begin
if FieldByName('Ssel').AsBoolean = true then
begin
if Trim(FCKNO) = '' then
begin
FCKNO := Trim(CDS_Main.fieldbyname('CKOrdNo').AsString);
end
else
begin
if FCKNO <> Trim(CDS_Main.fieldbyname('CKOrdNo').AsString) then
begin
if Trim(CDS_Main.fieldbyname('FeeName').AsString) <> '单面料' then
begin
Application.MessageBox('不能选择不同出库单号!', '提示', 0);
Exit;
end;
end;
end;
with ADOQuery1 do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select distinct D.MJID');
// sql.Add(' from CK_YCL_CR A ');
sql.Add(' from CK_MLCP_CR D ');
// sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID ');
// sql.Add(' left join CK_MLCP_CR D on D.CKOrdNo=B.CKNo');
// sql.add(' where B.CKNO=''' + Trim(FCKNO) + '''');
sql.add(' where D.CKOrdNo=''' + Trim(FCKNO) + '''');
// ShowMessage(SQL.Text);
Open;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
with ADOQuery1 do
begin
first;
while not eof do
begin
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(ADOQuery1.fieldbyname('MJID').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
next;
end;
end;
// if Trim(CDS_Main.fieldbyname('FeeName').AsString) = '单面料' then
// begin
// with ADOQuery2 do
// begin
// Close;
// sql.Clear;
// sql.Add(' insert into TbForBatch(DName,MainType,Value1,Filltime) ');
// sql.Add(' values( ' + quotedstr(Trim(DName)) + ',' + quotedstr('样品码单') + ',' + quotedstr(Trim(CDS_Main.fieldbyname('SPID').AsString)) + ',getdate()' + ')');
// ExecSQL;
// end;
// end;
end;
next;
end;
end;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD4 ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@CKOrdNO=' + quotedstr(Trim(FCKNO)));
// ShowMessage(SQL.Text);
Open;
end;
with ADOQueryPrint1 do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD7 ');
sql.add('@DName=' + quotedstr(Trim(DName)));
Open;
end;
// SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM3.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RMVariables['Filler'] := trim(DName); RMVariables['ZJJE'] := ADOQueryPrint.FIELDBYNAME('sumMoney').ASFLOAT + ADOQueryPrint1.FIELDBYNAME('MoneyHZ').ASFLOAT;
RM3.ShowReport; RMVariables['ZJQty'] := ADOQueryPrint.FIELDBYNAME('sumQty').ASFLOAT + ADOQueryPrint1.FIELDBYNAME('QtyHZ').ASFLOAT;
RM1.ShowReport;
end end
else else
begin begin
Application.MessageBox(PChar('没有找到' + fPrintFile), '提示', 0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\销售码单新.rmf'), '提示', 0);
end;
end;
procedure TfrmCKProductBCPOutList.MDNameBtnClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MDName';
flagname := '码单名称';
if ShowModal = 1 then
begin
Self.MDName.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end; end;
end; end;

21
成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas
View File

@ -67,18 +67,23 @@ begin
SetLength(dtbase, 255); SetLength(dtbase, 255);
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
server := '106.14.113.234,7781'; begin
server := '106.14.113.234,7781';
// server := '.'; // server := '.';
dtbase := 'yunxiangdata'; dtbase := 'yunxiangdata';
user := 'sa'; user := 'sa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@123';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DName:='ÖܸßÏé';
// DName:='ÖܸßÏé';
//DParameters1:='高权限'; //DParameters1:='高权限';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then if not ConnData() then
begin begin

18
成品仓库(FinishedClothWarehouse.dll)/U_ZDYHelp.dfm
View File

@ -20,12 +20,12 @@ object frmZDYHelp: TfrmZDYHelp
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 73 Top = 73
Width = 449 Width = 457
Height = 416 Height = 424
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -134,7 +134,7 @@ object frmZDYHelp: TfrmZDYHelp
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 449 Width = 457
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -145,7 +145,7 @@ object frmZDYHelp: TfrmZDYHelp
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
Images = DataLink_PBMDDJ.ThreeImgList Images = DataLink_FinishedClothWarehouse.ThreeImgList
List = True List = True
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
@ -197,7 +197,7 @@ object frmZDYHelp: TfrmZDYHelp
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 29 Top = 29
Width = 449 Width = 457
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -236,21 +236,21 @@ object frmZDYHelp: TfrmZDYHelp
end end
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 48 Left = 48
Top = 136 Top = 136
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 80 Left = 80
Top = 144 Top = 144
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
Parameters = <> Parameters = <>
Left = 112 Left = 112
Top = 152 Top = 152

17
成品仓库(FinishedClothWarehouse.dll)/U_ZDYHelp.pas
View File

@ -9,7 +9,22 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
cxTimeEdit; cxTimeEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmZDYHelp = class(TForm) TfrmZDYHelp = class(TForm)