Group_99/D7myzhenyong
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-12 10:40:01 +08:00
parent 81ca91d7fa
commit 47c211dfc0
41 changed files with 1359 additions and 170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\淃커덜쯤\驪湛\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
HostApplication=D:\D7W\淃커덜쯤\D7myzhenyong\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

3
坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm
View File

@ -261,7 +261,8 @@ object frmWJGCKOutList: TfrmWJGCKOutList
#24179#31227#20986#24211
#22238#20462#20986#24211
#35797#26679#20986#24211
#27425#21697#20986#24211)
#27425#21697#20986#24211
#20854#20182#20986#24211)
end
object SPCF: TEdit
Tag = 2

16
坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas
View File

@ -11,7 +11,21 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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;
type
TfrmWJGCKOutList = class(TForm)

3
坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm
View File

@ -144,7 +144,8 @@ object frmWJGCKOutPut: TfrmWJGCKOutPut
#24179#31227#20986#24211
#22238#20462#20986#24211
#35797#26679#20986#24211
#27425#21697#20986#24211)
#27425#21697#20986#24211
#20854#20182#20986#24211)
HeaderAlignmentHorz = taCenter
Width = 81
end

16
坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas
View File

@ -9,7 +9,21 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
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;
type
TfrmWJGCKOutPut = class(TForm)

372
应收应付/U_CKProductXSMHZList.dfm Normal file
View File

@ -0,0 +1,372 @@
object frmCKProducTXSHZList: TfrmCKProducTXSHZList
Left = 384
Top = 164
Width = 1027
Height = 511
Caption = #27599#26085#38144#21806#36134#21333
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1011
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_FinishedClothWarehouse.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object TBExport: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 68
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1011
Height = 56
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 158
Top = 34
Width = 48
Height = 12
Caption = #20013#25991#21517#31216
end
object Label4: TLabel
Left = 182
Top = 10
Width = 24
Height = 12
Caption = #39068#33394
end
object Label1: TLabel
Left = 20
Top = 10
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
end
object Label2: TLabel
Left = 52
Top = 34
Width = 12
Height = 12
Caption = #33267
end
object Label6: TLabel
Left = 36
Top = 72
Width = 48
Height = 12
Caption = #26465' '#30721
end
object Label11: TLabel
Left = 321
Top = 8
Width = 24
Height = 12
Caption = #23458#25143
end
object MPRTCodeName2: TEdit
Tag = 2
Left = 211
Top = 29
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = MPRTCodeName2Change
end
object BegDate: TDateTimePicker
Left = 65
Top = 7
Width = 87
Height = 20
Date = 40768.458268587970000000
Time = 40768.458268587970000000
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 65
Top = 31
Width = 87
Height = 20
Date = 40768.458268587970000000
Time = 40768.458268587970000000
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 2
end
object MJID: TEdit
Tag = 2
Left = 82
Top = 68
Width = 109
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = MPRTCodeName2Change
end
object tt: TEdit
Tag = 2
Left = 347
Top = 4
Width = 80
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = MPRTCodeName2Change
end
object prtcolor2: TEdit
Tag = 2
Left = 212
Top = 4
Width = 100
Height = 20
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = MPRTCodeName2Change
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 89
Width = 1011
Height = 383
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
Column = Tv1Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_FinishedClothWarehouse.SHuangSe
Styles.IncSearch = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Selection = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Header = DataLink_FinishedClothWarehouse.Default
object v1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'gongyi'
HeaderAlignmentHorz = taCenter
Width = 68
end
object v2Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 92
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 77
end
object v1Column6: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'JQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 74
end
object v2Column6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Qty2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 85
end
object v1Column13: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'PRICE'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v2Column5: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'MONEY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 83
end
object Tv1Column1: TcxGridDBColumn
Caption = #21152#24037#31859#25968
DataBinding.FieldName = 'qty1'
HeaderAlignmentHorz = taCenter
Width = 84
end
object Tv1Column6: TcxGridDBColumn
Caption = #24213#24067#39068#33394
DataBinding.FieldName = 'dbcolor'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #24213#24067#31859#25968
HeaderAlignmentHorz = taCenter
Width = 83
end
object Tv1Column3: TcxGridDBColumn
Caption = #24213#24067#20844#26020
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'cknote'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column4PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
Parameters = <>
Left = 968
Top = 40
end
object ADOQueryMain: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 984
Top = 40
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 944
Top = 32
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 896
Top = 128
end
end

279
应收应付/U_CKProductXSMHZList.pas Normal file
View File

@ -0,0 +1,279 @@
unit U_CKProductXSMHZList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, 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, cxTextEdit;
type
TfrmCKProducTXSHZList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label3: TLabel;
Label4: TLabel;
MPRTCodeName2: TEdit;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
Tv1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Label6: TLabel;
MJID: TEdit;
v1Column6: TcxGridDBColumn;
MovePanel2: TMovePanel;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
Label11: TLabel;
tt: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
prtcolor2: TEdit;
Tv1Column6: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeName2Change(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject);
procedure Tv1Column4PropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
end;
var
frmCKProducTXSHZList: TfrmCKProducTXSHZList;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmCKProducTXSHZList.FormDestroy(Sender: TObject);
begin
frmCKProductXSHZList := nil;
end;
procedure TfrmCKProducTXSHZList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCKProducTXSHZList.FormCreate(Sender: TObject);
begin
//cxGrid1.Align:=alClient;
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end;
procedure TfrmCKProducTXSHZList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
// sql.Add('select b.CustomerNoName,SUM(round((a.qty-a.kongjia)*machi,2)) Qty,SUM(A.NetKGQty) NetKGQty,count(A.MJID) JQty ');
// sql.Add(' ,B.MPRTCodeName, PRTColor=isnull(jycolor,PRTColor),B.PRICE,MONEY=SUM(B.PRICE*(a.qty-a.kongjia)*machi),A.cknote ');
//
// sql.Add('from CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId ');
// sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId ');
//// sql.Add('inner join JYOrder_Car D on D.CarNo=A.APID ');
// sql.Add(' where A.CRFlag=''出库'' ');
//
// sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
// sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
//
// sql.Add(' group by CustomerNoName,MPRTCodeName,isnull(jycolor,PRTColor),B.PRICE,A.cknote ');
sql.Add('EXEC P_EVERYDAY_XS ');
sql.Add('@begdate=''' + formatdateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(',@enddate=''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCKProducTXSHZList.TBRafreshClick(Sender: TObject);
begin
//BegDate.SetFocus;
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmCKProducTXSHZList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmCKProducTXSHZList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '三水成品仓库');
Close;
end;
procedure TfrmCKProducTXSHZList.FormShow(Sender: TObject);
begin
ReadCxGrid(trim(self.Caption), Tv1, '三水成品仓库');
end;
procedure TfrmCKProducTXSHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel('库存汇总列表', cxGrid2);
end;
procedure TfrmCKProducTXSHZList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmCKProducTXSHZList.MPRTCodeName2Change(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCKProducTXSHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SOrdDefStr10';
flagname := '库存存放地点';
if ShowModal = 1 then
begin
with CDS_Main do
begin
Edit;
FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCKProducTXSHZList.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCKProducTXSHZList.Tv1Column4PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE CK_BanCP_CR SET cknote=' + QuotedStr(mvalue));
SQL.ADD(' where MJID IN (SELECT MJID FROM ');
SQL.Add(' CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId ');
SQL.Add('inner join JYOrder_Sub C on A.SubId=C.SubId ');
sql.Add(' where A.CRFlag=''出库'' ');
sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
SQL.Add(' AND b.CustomerNoName=' + QuotedStr(CDS_Main.FIELDBYNAME('CustomerNoName').AsString));
SQL.Add(' AND B.MPRTCodeName=' + QuotedStr(CDS_Main.FIELDBYNAME('MPRTCodeName').AsString));
SQL.Add(' AND isnull(jycolor,PRTColor)=' + QuotedStr(CDS_Main.FIELDBYNAME('PRTColor').AsString));
SQL.Add(' AND ISNULL(B.PRICE,0)=' + (CDS_Main.FIELDBYNAME('PRICE').AsString));
SQL.Add(' AND ISNULL(a.cknote,'''')=' + QuotedStr(CDS_Main.FIELDBYNAME('cknote').AsString));
sql.Add(')');
// ShowMessage(SQL.Text);
ExecSQL;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

24
应收应付/U_FPWSLIST.dfm
View File

@ -21,7 +21,7 @@ object frmFPWSCX: TfrmFPWSCX
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1374
Width = 1366
Height = 31
ButtonHeight = 30
ButtonWidth = 95
@ -78,7 +78,7 @@ object frmFPWSCX: TfrmFPWSCX
object Panel1: TPanel
Left = 0
Top = 31
Width = 1374
Width = 1366
Height = 70
Align = alTop
BevelInner = bvRaised
@ -328,8 +328,8 @@ object frmFPWSCX: TfrmFPWSCX
object cxGrid1: TcxGrid
Left = 0
Top = 101
Width = 1374
Height = 331
Width = 1366
Height = 323
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -526,8 +526,8 @@ object frmFPWSCX: TfrmFPWSCX
end
object cxGrid2: TcxGrid
Left = 0
Top = 432
Width = 1374
Top = 424
Width = 1366
Height = 291
Align = alBottom
TabOrder = 3
@ -676,6 +676,18 @@ object frmFPWSCX: TfrmFPWSCX
HeaderAlignmentHorz = taCenter
Width = 126
end
object TV2Column3: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
HeaderAlignmentHorz = taCenter
Width = 68
end
object TV2Column4: TcxGridDBColumn
Caption = #25910#27719#26085#26399
DataBinding.FieldName = 'CRTIME'
HeaderAlignmentHorz = taCenter
Width = 74
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2

5
应收应付/U_FPWSLIST.pas
View File

@ -101,6 +101,8 @@ type
Tv1Column12: TcxGridDBColumn;
Tv1MXOrderNoSummary: TcxGridDBColumn;
CheckBox2: TCheckBox;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -566,7 +568,10 @@ begin
Close;
SQL.Clear;
sql.Add(' select A.*,B.SDNO');
SQL.Add(',CRTIME ');
SQL.Add(',GSDYSJE=(SELECT sum(HXNUM) from YF_Money_CR_SUB e INNER JOIN YF_Money_CR f ON e.YFID=f.YFID where f.sdno=b.sdno)');
SQL.Add(',OrdDate=(select OrdDate from jyorder_main c where a.mxorderno=c.orderno)');
sql.Add(' from YF_Money_CR_SUB A INNER JOIN YF_Money_CR B ON A.YFID=B.YFID where SUBWXFPNO=' + Quotedstr(Trim(CDS_HZ.fieldbyname('SUBWXFPNO').AsString)));
SQL.Add('ORDER BY SDNO');
Open;

2
应收应付/U_GetDllForm.pas
View File

@ -72,7 +72,7 @@ begin
pswd := 'rightsoft@9101';
// pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DConString := DataBaseStr;
DConString := DataBaseStr;
if not ConnData() then
begin

257
应收应付/U_SDManage.dfm
View File

@ -1,6 +1,6 @@
object frmSDmanage: TfrmSDmanage
Left = 173
Top = 54
Left = 271
Top = 230
Width = 1382
Height = 754
Caption = #27700#21333#31649#29702
@ -20,7 +20,7 @@ object frmSDmanage: TfrmSDmanage
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1374
Width = 1366
Height = 31
ButtonHeight = 30
ButtonWidth = 83
@ -97,17 +97,25 @@ object frmSDmanage: TfrmSDmanage
ImageIndex = 53
OnClick = TBexcelClick
end
object ToolButton1: TToolButton
object ToolButton2: TToolButton
Left = 528
Top = 0
AutoSize = True
Caption = #26126#32454#23548#20986
ImageIndex = 57
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 615
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256
ImageIndex = 49
Visible = False
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 615
Left = 702
Top = 0
AutoSize = True
Caption = #25171#21360
@ -116,7 +124,7 @@ object frmSDmanage: TfrmSDmanage
OnClick = TBPrintClick
end
object TBClose: TToolButton
Left = 678
Left = 765
Top = 0
AutoSize = True
Caption = #20851#38381
@ -127,7 +135,7 @@ object frmSDmanage: TfrmSDmanage
object Panel1: TPanel
Left = 0
Top = 31
Width = 1374
Width = 1366
Height = 74
Align = alTop
BevelInner = bvRaised
@ -281,8 +289,8 @@ object frmSDmanage: TfrmSDmanage
object cxGrid2: TcxGrid
Left = 0
Top = 127
Width = 1374
Height = 305
Width = 1366
Height = 297
Align = alClient
TabOrder = 2
object Tv2: TcxGridDBTableView
@ -407,7 +415,7 @@ object frmSDmanage: TfrmSDmanage
object cxTabControl1: TcxTabControl
Left = 0
Top = 105
Width = 1374
Width = 1366
Height = 22
Align = alTop
TabOrder = 3
@ -420,13 +428,13 @@ object frmSDmanage: TfrmSDmanage
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1374
ClientRectRight = 1366
ClientRectTop = 19
end
object cxGrid1: TcxGrid
Left = 0
Top = 432
Width = 1374
Top = 424
Width = 1366
Height = 291
Align = alBottom
TabOrder = 4
@ -567,6 +575,214 @@ object frmSDmanage: TfrmSDmanage
GridView = Tv1
end
end
object Panel2: TPanel
Left = 403
Top = 81
Width = 363
Height = 313
Caption = 'Panel2'
TabOrder = 5
Visible = False
object cxGrid3: TcxGrid
Left = 1
Top = 1
Width = 361
Height = 311
Align = alClient
TabOrder = 0
Visible = False
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_DC
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
Column = TV3Column4
end
item
Kind = skSum
Column = TV3Column5
end
item
Kind = skSum
Column = TV3Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_YSYF.Default
object cxGridDBColumn1: TcxGridDBColumn
Caption = #27700#21333#32534#21495
DataBinding.FieldName = 'SDNO'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'FILLTime'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'factoryName'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #22806#38144#21457#31080#21495
DataBinding.FieldName = 'WXFPNO'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25910#27719#26085#26399
DataBinding.FieldName = 'CRTIME'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #25910#27719#37329#39069
DataBinding.FieldName = 'MONEY'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_YSYF.Default
Width = 80
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #22806#24065#36153#29992
DataBinding.FieldName = 'ZWBFY'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #22269#20869#25187#36153
DataBinding.FieldName = 'ZGNKF'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_YSYF.Default
Width = 80
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #32034#36180#27454
DataBinding.FieldName = 'ZSKP'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20323#37329
DataBinding.FieldName = 'ZYJ'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #20854#20182
DataBinding.FieldName = 'ZQITA'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'BZTYPE'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #21040#36134#20928#39069
DataBinding.FieldName = 'DZMONEY'
HeaderAlignmentHorz = taCenter
Width = 71
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #26410#26680#38144#37329#39069
DataBinding.FieldName = 'WHXJE'
OnCustomDrawCell = Tv2Column2CustomDrawCell
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV3Column1: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'kxtype'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column2: TcxGridDBColumn
Caption = #22806#38144#21457#31080#21495
DataBinding.FieldName = 'SUBWXFPNO'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column3: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'MXORDERNO'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column4: TcxGridDBColumn
Caption = #21457#31080#37329#39069
DataBinding.FieldName = 'MXMONEY'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column5: TcxGridDBColumn
Caption = #26680#38144#37329#39069
DataBinding.FieldName = 'HXNUM'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column6: TcxGridDBColumn
Caption = #32034#36180#37329#39069
DataBinding.FieldName = 'SPK'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column7: TcxGridDBColumn
Caption = #32034#36180#35828#26126
DataBinding.FieldName = 'SPNOTE'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'MXNOTE'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column9: TcxGridDBColumn
Caption = #23454#38469#20986#24211#31859#25968
DataBinding.FieldName = 'CKQTY'
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV3Column10: TcxGridDBColumn
Caption = #23454#38469#20986#24211#20928#37325
DataBinding.FieldName = 'CKkgqty'
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV3
end
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YSYF.ADOLink
LockType = ltReadOnly
@ -639,12 +855,23 @@ object frmSDmanage: TfrmSDmanage
object CDS_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 444
Top = 489
Left = 443
Top = 488
end
object DS_SUB: TDataSource
DataSet = CDS_SUB
Left = 492
Top = 477
end
object CDS_DC: TClientDataSet
Aggregates = <>
Params = <>
Left = 730
Top = 487
end
object DS_DC: TDataSource
DataSet = CDS_DC
Left = 779
Top = 477
end
end

102
应收应付/U_SDManage.pas
View File

@ -14,7 +14,18 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
dxSkinscxPCPainter, 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,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmSDmanage = class(TForm)
@ -88,6 +99,37 @@ type
CheckBox2: TCheckBox;
Label5: TLabel;
BZTYPE: TEdit;
Panel2: TPanel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
TV3Column4: TcxGridDBColumn;
TV3Column5: TcxGridDBColumn;
TV3Column6: TcxGridDBColumn;
TV3Column7: TcxGridDBColumn;
TV3Column8: TcxGridDBColumn;
TV3Column9: TcxGridDBColumn;
TV3Column10: TcxGridDBColumn;
CDS_DC: TClientDataSet;
DS_DC: TDataSource;
ToolButton2: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -108,6 +150,7 @@ type
procedure Tv2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -322,6 +365,7 @@ begin
end;
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
TBfind.Click;
@ -628,5 +672,61 @@ begin
InitGrid();
end;
procedure TfrmSDmanage.ToolButton2Click(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
Filtered := False;
SQL.Clear;
SQL.Add('SELECT * FROM (');
sql.Add(' select A.*,B.kxtype AS KXTYPE2,SUBWXFPNO,MXORDERNO,MXMONEY,HXNUM,SPNOTE,MXNOTE ');
SQL.Add(',WHXJE=MONEY-isnull((SELECT SUM(HXNUM) FROM yf_money_cr_SUB C WHERE C.YFID=A.YFID),0)');
sql.Add(',CKQTY=(SELECT SUM(QTY) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag=''出库'')');
sql.Add(',CKkgqty=(SELECT sum(kgqty) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag=''出库'')');
sql.Add(',STUFF(( SELECT '', '' +convert(VARCHAR, kxtype) FROM YF_Money_CR_SUB C where C.yfid=a.yfid FOR XML PATH('''')), 1, 1, '''') AS kxtype');
sql.Add(' from yf_money_cr A INNER JOIN yf_money_cr_SUB B ON A.YFID=B.YFID where ');
sql.Add(' A.CRtype=''收款登记'' AND A.SKTYPE=''水单''');
if cxTabControl1.TabIndex < 2 then
begin
sql.Add('and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
end;
if CheckBox1.Checked = True then
begin
sql.Add('and ZSKP>0');
end;
SQL.Add(')AA ');
// sql.Add('or WHXJE>10');
if CheckBox2.Checked = True then
begin
sql.Add('where WHXJE>10');
end
else
begin
sql.Add(' where CRTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
sql.Add('and CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
sql.Add('or WHXJE>10');
end;
sql.Add('ORDER BY FILLTIME DESC');
Open;
end;
SCreateCDS20(ADOQueryCmd, CDS_DC);
SInitCDSData20(ADOQueryCmd, CDS_DC);
if ADOQueryCmd.Active = False then
Exit;
SDofilter(ADOQueryCmd, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryCmd, CDS_DC);
SInitCDSData20(ADOQueryCmd, CDS_DC);
TcxGridToExcel(self.Caption + '明细', cxgrid3);
end;
end.

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Project\D7myzhenyong\壇澗壇마\testDll.exe
HostApplication=D:\D7W\淃커덜쯤\D7myzhenyong\壇澗壇마\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

1
应收应付/YSYF.dpr
View File

@ -6,6 +6,7 @@ uses
forms,
WinTypes,
WinProcs,
MidasLib,
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\项目代码\振永\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
HostApplication=D:\D7W\项目代码\D7myzhenyong\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

2
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
View File

@ -507,7 +507,7 @@ begin
end;
SCreateCDS20(ADOQueryPrint, CDS_PRT);
SInitCDSData20(ADOQueryPrint, CDS_PRT);
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
begin
with ADOQueryPrint do
begin

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

@ -249,7 +249,7 @@ begin
SCreateCDS20(ADOQueryPrint, CDS_PRT);
SInitCDSData20(ADOQueryPrint, CDS_PRT);
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
begin
with ADOQueryPrint do
begin

2
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutListHZ.pas
View File

@ -213,7 +213,7 @@ begin
end;
SCreateCDS20(ADOQueryPrint, CDS_PRT);
SInitCDSData20(ADOQueryPrint, CDS_PRT);
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
begin
with ADOQueryPrint do
begin

6
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPinListHZ.pas
View File

@ -193,13 +193,13 @@ begin
end;
SCreateCDS20(ADOQueryPrint, CDS_PRT);
SInitCDSData20(ADOQueryPrint, CDS_PRT);
if ComboBox1.Text = '丹빻紺쯤데(쵠路좆)' then
if (ComboBox1.Text = '丹빻紺쯤데(쵠路좆)') or (ComboBox1.Text = 'AZ') then
begin
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD_DXHZ3 @code=' + quotedstr(Trim(DCode)));
sql.add('exec P_Print_CKMD_DXHZ3_R @code=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryPrint, CDS_HZ);
@ -211,7 +211,7 @@ begin
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD_DXHZ @code=' + quotedstr(Trim(DCode)));
sql.add('exec P_Print_rKMD_DXHZ_R @code=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryPrint, CDS_HZ);

2
报关管理(BaoGuan.dll)/BaoGuan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Project\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
HostApplication=D:\D7W\项目代码\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

8
报关管理(BaoGuan.dll)/BaoGuan.dpr
View File

@ -1,11 +1,13 @@
library BaoGuan;
//ÒѸÄ
uses
SysUtils,
classes,
forms,
WinTypes,
WinProcs,
MidasLib,
U_GetDllForm in 'U_GetDllForm.pas',
U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule},
U_FjList in 'U_FjList.pas' {frmFjList},
@ -38,7 +40,7 @@ uses
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
@ -49,11 +51,13 @@ begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
// Application:=NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp:=Application;
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except

10
报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm
View File

@ -20,7 +20,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1318
Width = 1310
Height = 33
ButtonHeight = 30
ButtonWidth = 59
@ -67,8 +67,8 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
object cxGrid1: TcxGrid
Left = 0
Top = 370
Width = 1318
Height = 307
Width = 1310
Height = 299
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
@ -468,7 +468,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
object Panel1: TPanel
Left = 0
Top = 33
Width = 1318
Width = 1310
Height = 304
Align = alTop
BevelInner = bvRaised
@ -1007,7 +1007,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut
object ToolBar2: TToolBar
Left = 0
Top = 337
Width = 1318
Width = 1310
Height = 33
ButtonHeight = 30
ButtonWidth = 83

15
报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas
View File

@ -10,7 +10,20 @@ uses
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TfrmBaoGuanInPut = class(TForm)

14
报关管理(BaoGuan.dll)/U_CHList.dfm
View File

@ -21,7 +21,7 @@ object frmCHList: TfrmCHList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1376
Width = 1368
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
@ -100,7 +100,7 @@ object frmCHList: TfrmCHList
object Panel1: TPanel
Left = 0
Top = 32
Width = 1376
Width = 1368
Height = 59
Align = alTop
BevelInner = bvRaised
@ -259,8 +259,8 @@ object frmCHList: TfrmCHList
object cxGrid2: TcxGrid
Left = 0
Top = 91
Width = 1376
Height = 548
Width = 1368
Height = 540
Align = alClient
TabOrder = 2
object TV1: TcxGridDBTableView
@ -440,6 +440,12 @@ object frmCHList: TfrmCHList
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column16: TcxGridDBColumn
Caption = #25253#20851#22791#27880
DataBinding.FieldName = 'MXNOTE'
HeaderAlignmentHorz = taCenter
Width = 73
end
object TV1Column8: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'ywzb'

1
报关管理(BaoGuan.dll)/U_CHList.pas
View File

@ -105,6 +105,7 @@ type
ywzb: TEdit;
TV1E4JingZ: TcxGridDBColumn;
TV1JS: TcxGridDBColumn;
TV1Column16: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

24
报关管理(BaoGuan.dll)/U_JHDInPut.dfm
View File

@ -20,7 +20,7 @@ object frmJHDInPut: TfrmJHDInPut
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1256
Width = 1248
Height = 33
ButtonHeight = 30
ButtonWidth = 59
@ -58,7 +58,7 @@ object frmJHDInPut: TfrmJHDInPut
object Panel1: TPanel
Left = 0
Top = 33
Width = 1256
Width = 1248
Height = 360
Align = alTop
BevelInner = bvRaised
@ -836,7 +836,7 @@ object frmJHDInPut: TfrmJHDInPut
object FKR: TMemo
Tag = 2
Left = 799
Top = 126
Top = 127
Width = 397
Height = 64
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
@ -997,15 +997,15 @@ object frmJHDInPut: TfrmJHDInPut
object Panel2: TPanel
Left = 0
Top = 393
Width = 796
Height = 351
Width = 788
Height = 343
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object ToolBar2: TToolBar
Left = 1
Top = 1
Width = 794
Width = 786
Height = 33
ButtonHeight = 30
ButtonWidth = 107
@ -1101,8 +1101,8 @@ object frmJHDInPut: TfrmJHDInPut
object cxGrid1: TcxGrid
Left = 1
Top = 34
Width = 794
Height = 316
Width = 786
Height = 308
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
@ -1425,10 +1425,10 @@ object frmJHDInPut: TfrmJHDInPut
end
end
object Panel3: TPanel
Left = 796
Left = 788
Top = 393
Width = 460
Height = 351
Height = 343
Align = alRight
Caption = 'Panel2'
TabOrder = 3
@ -1483,7 +1483,7 @@ object frmJHDInPut: TfrmJHDInPut
Left = 1
Top = 34
Width = 458
Height = 181
Height = 173
Align = alClient
TabOrder = 1
object TV2: TcxGridDBTableView
@ -1596,7 +1596,7 @@ object frmJHDInPut: TfrmJHDInPut
end
object Panel4: TPanel
Left = 1
Top = 215
Top = 207
Width = 458
Height = 135
Align = alBottom

19
报关管理(BaoGuan.dll)/U_JHDInPut.pas
View File

@ -9,8 +9,20 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit,
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmJHDInPut = class(TForm)
@ -400,6 +412,9 @@ begin
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 1);
RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 2);
FieldByName('FKR').Value := UpperCase(FKR.Text);
if chuandate.Checked = true then
begin
FieldByName('chuandate').Value := chuandate.DateTime;

8
报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm
View File

@ -21,7 +21,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1358
Width = 1350
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
@ -172,7 +172,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList
object Panel1: TPanel
Left = 0
Top = 32
Width = 1358
Width = 1350
Height = 59
Align = alTop
BevelInner = bvRaised
@ -279,8 +279,8 @@ object frmJHDMAKEList: TfrmJHDMAKEList
object cxGrid2: TcxGrid
Left = 0
Top = 91
Width = 1358
Height = 548
Width = 1350
Height = 540
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2

15
报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas
View File

@ -14,7 +14,20 @@ uses
BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, MovePanel, Registry, frxExportRTF, frxExportImage,
frxExportPDF, frxExportXLSX, frxExportDOCX, frxClass, frxExportBIFF, frxDBSet,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TfrmJHDMAKEList = class(TForm)

10
报关管理(BaoGuan.dll)/U_YFGLList.dfm
View File

@ -21,7 +21,7 @@ object frmYFGLList: TfrmYFGLList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1376
Width = 1368
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
@ -137,7 +137,7 @@ object frmYFGLList: TfrmYFGLList
object Panel1: TPanel
Left = 0
Top = 32
Width = 1376
Width = 1368
Height = 59
Align = alTop
BevelInner = bvRaised
@ -260,8 +260,8 @@ object frmYFGLList: TfrmYFGLList
object cxGrid2: TcxGrid
Left = 0
Top = 91
Width = 1376
Height = 548
Width = 1368
Height = 540
Align = alClient
TabOrder = 2
object TV1: TcxGridDBTableView
@ -389,7 +389,7 @@ object frmYFGLList: TfrmYFGLList
end
object TV1Column12: TcxGridDBColumn
Caption = #24320#33337#26085#26399
DataBinding.FieldName = 'chuandate'
DataBinding.FieldName = 'chuandate2'
HeaderAlignmentHorz = taCenter
Width = 66
end

1
报关管理(BaoGuan.dll)/U_YFGLList.pas
View File

@ -222,6 +222,7 @@ begin
Close;
sql.Clear;
sql.Add('select A.* ');
SQL.Add(',CHUANDATE2=(SELECT CHUANDATE FROM JHD_MAIN E WHERE E.VALID=''Y'' and E.A4FPNO=A.A4FPNO )');
SQL.Add(',ZUSD=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''美元'')');
sql.Add(',ZRMB=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''人民币'')');
SQL.Add('FROM FP_MAIN A where 1=1 ');

2
染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Project\D7myzhenyong\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myzhenyong\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

96
染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm
View File

@ -1,7 +1,7 @@
object frmJYG: TfrmJYG
Left = 442
Top = 228
Width = 1033
Width = 1090
Height = 512
Caption = #25968#25454#36873#25321
Color = clBtnFace
@ -20,7 +20,7 @@ object frmJYG: TfrmJYG
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 1017
Width = 1074
Height = 473
Align = alClient
TabOrder = 0
@ -53,7 +53,7 @@ object frmJYG: TfrmJYG
end
object btn3: TSpeedButton
Left = 577
Top = 19
Top = 17
Width = 208
Height = 70
Font.Charset = GB2312_CHARSET
@ -66,8 +66,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object btn4: TSpeedButton
Left = 23
Top = 131
Left = 843
Top = 19
Width = 208
Height = 70
Font.Charset = GB2312_CHARSET
@ -80,8 +80,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object btn5: TSpeedButton
Left = 300
Top = 131
Left = 23
Top = 126
Width = 208
Height = 70
Font.Charset = GB2312_CHARSET
@ -94,8 +94,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton1: TSpeedButton
Left = 577
Top = 131
Left = 300
Top = 126
Width = 208
Height = 70
Font.Charset = GB2312_CHARSET
@ -108,8 +108,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton2: TSpeedButton
Left = 23
Top = 243
Left = 577
Top = 125
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
@ -122,8 +122,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton4: TSpeedButton
Left = 302
Top = 243
Left = 843
Top = 126
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
@ -136,8 +136,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton5: TSpeedButton
Left = 577
Top = 243
Left = 23
Top = 233
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
@ -150,8 +150,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton3: TSpeedButton
Left = 23
Top = 354
Left = 300
Top = 234
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
@ -164,8 +164,8 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton6: TSpeedButton
Left = 302
Top = 354
Left = 577
Top = 231
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
@ -178,8 +178,64 @@ object frmJYG: TfrmJYG
OnClick = btn1Click
end
object SpeedButton7: TSpeedButton
Left = 843
Top = 231
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
OnClick = btn1Click
end
object SpeedButton8: TSpeedButton
Left = 23
Top = 339
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
OnClick = btn1Click
end
object SpeedButton9: TSpeedButton
Left = 300
Top = 340
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
OnClick = btn1Click
end
object SpeedButton10: TSpeedButton
Left = 577
Top = 354
Top = 338
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
OnClick = btn1Click
end
object SpeedButton11: TSpeedButton
Left = 843
Top = 337
Width = 208
Height = 69
Font.Charset = GB2312_CHARSET

8
染整计划(DyeingFinishingPlan.dll)/U_JYG.pas
View File

@ -22,6 +22,10 @@ type
SpeedButton3: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btn1Click(Sender: TObject);
@ -89,9 +93,9 @@ begin
end;
end;
i := i - 1;
if i > 11 then
if i > 15 then
begin
i := 11;
i := 15;
end;
for j := 0 to i do
begin

24
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
View File

@ -1,6 +1,6 @@
object frmMarkingInspection: TfrmMarkingInspection
Left = 556
Top = 370
Left = 214
Top = 185
Width = 1539
Height = 825
Align = alLeft
@ -23,7 +23,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 236
Top = 113
Width = 621
Height = 681
Height = 673
Align = alLeft
TabOrder = 6
Visible = False
@ -1572,8 +1572,8 @@ object frmMarkingInspection: TfrmMarkingInspection
object cxGrid3: TcxGrid
Left = 1151
Top = 113
Width = 380
Height = 681
Width = 372
Height = 673
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3
@ -1699,7 +1699,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 0
Top = 113
Width = 236
Height = 681
Height = 673
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -2155,7 +2155,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end
object Button3: TButton
Left = 191
Top = 362
Top = 363
Width = 39
Height = 41
Caption = #36873#25321
@ -2256,7 +2256,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 857
Top = 113
Width = 294
Height = 681
Height = 673
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -2281,7 +2281,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 2
Top = 404
Width = 290
Height = 275
Height = 267
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
@ -2397,14 +2397,14 @@ object frmMarkingInspection: TfrmMarkingInspection
object Panel5: TPanel
Left = 0
Top = 0
Width = 1531
Width = 1523
Height = 113
Align = alTop
TabOrder = 0
object Panel6: TPanel
Left = 1
Top = 31
Width = 1529
Width = 1521
Height = 81
Align = alClient
BevelInner = bvRaised
@ -2654,7 +2654,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object ToolBar1: TToolBar
Left = 1
Top = 1
Width = 1529
Width = 1521
Height = 30
ButtonHeight = 30
ButtonWidth = 119

54
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm
View File

@ -1,7 +1,7 @@
object frmProductOrderList: TfrmProductOrderList
Left = 495
Top = 367
Width = 1363
Left = 315
Top = 201
Width = 1439
Height = 801
Caption = #29983#20135#25351#31034#21333
Color = clBtnFace
@ -21,7 +21,7 @@ object frmProductOrderList: TfrmProductOrderList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1355
Width = 1423
Height = 62
AutoSize = True
ButtonHeight = 30
@ -295,7 +295,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel1: TPanel
Left = 0
Top = 62
Width = 1355
Width = 1423
Height = 64
Align = alTop
BevelInner = bvRaised
@ -497,6 +497,19 @@ object frmProductOrderList: TfrmProductOrderList
Font.Style = [fsBold]
ParentFont = False
end
object Label41: TLabel
Left = 1278
Top = 14
Width = 54
Height = 12
Caption = #38376' '#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 109
Top = 11
@ -698,12 +711,21 @@ object frmProductOrderList: TfrmProductOrderList
#26797#32455
'')
end
object MPRTMF: TEdit
Tag = 2
Left = 1332
Top = 10
Width = 80
Height = 20
TabOrder = 21
OnKeyPress = CustomerNoNameKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 157
Width = 1355
Height = 372
Width = 1423
Height = 364
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -1011,8 +1033,8 @@ object frmProductOrderList: TfrmProductOrderList
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 566
Width = 1355
Top = 558
Width = 1423
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
@ -1020,8 +1042,8 @@ object frmProductOrderList: TfrmProductOrderList
end
object Panel2: TPanel
Left = 0
Top = 574
Width = 1355
Top = 566
Width = 1423
Height = 196
Align = alBottom
BevelOuter = bvNone
@ -1030,7 +1052,7 @@ object frmProductOrderList: TfrmProductOrderList
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1355
Width = 1423
Height = 196
Align = alClient
PopupMenu = PopupMenu2
@ -1869,8 +1891,8 @@ object frmProductOrderList: TfrmProductOrderList
end
object Panel11: TPanel
Left = 0
Top = 529
Width = 1355
Top = 521
Width = 1423
Height = 37
Align = alBottom
TabOrder = 8
@ -1930,7 +1952,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel12: TPanel
Left = 0
Top = 126
Width = 1355
Width = 1423
Height = 31
Align = alTop
AutoSize = True
@ -1938,7 +1960,7 @@ object frmProductOrderList: TfrmProductOrderList
BorderStyle = bsSingle
TabOrder = 9
DesignSize = (
1351
1419
27)
object Label30: TLabel
Left = 506

2
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas
View File

@ -299,6 +299,8 @@ type
Tv1Column12: TcxGridDBColumn;
ToolButton12: TToolButton;
YSBQ: TcxButtonEdit;
Label41: TLabel;
MPRTMF: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

2
样布仓库(染色)/SampleWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\Ñù²¼²Ö¿â(Ⱦɫ)\testDll.exe
HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myzhenyong\Ñù²¼²Ö¿â(Ⱦɫ)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

4
样布仓库(染色)/U_SMPBCK.dfm
View File

@ -1,6 +1,6 @@
object frmSMPBCK: TfrmSMPBCK
Left = 143
Top = 152
Left = 381
Top = 265
Width = 1230
Height = 638
BorderIcons = [biSystemMenu]

27
样布仓库(染色)/U_SMPBCK.pas
View File

@ -11,7 +11,20 @@ uses
DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxContainer,
cxTextEdit, cxCurrencyEdit, cxCheckBox, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator;
cxNavigator, 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;
type
TfrmSMPBCK = class(TForm)
@ -626,11 +639,11 @@ begin
begin
cds_main.DisableControls;
// cds_main.First;
cds_main.First;
// while not cds_main.Eof do
// begin
if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) then
while not cds_main.Eof do
begin
if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) and (cds_main.FieldByName('SSel').AsBoolean = True) then
begin
self.cds_main.Append;
// self.cds_main.FieldByName('JYSQD').Value := fjysq;
@ -664,8 +677,8 @@ begin
self.cds_main.FieldByName('Price').Value := 0;
self.cds_main.FieldByName('Money').Value := 0;
self.cds_main.Post;
// end;
// cds_main.Next;
end;
cds_main.Next;
end;
cds_main.EnableControls;
end;

15
样布仓库(染色)/U_SMPBCKlist.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator;
cxNavigator, 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;
type
TfrmsmpbCKlist = class(TForm)