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

产品管理修改，来料仓库，来料入库，来料出库增加分页面，修改查询方式

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-19 17:40:03 +08:00
parent 672bf06813
commit eeec0ec912
17 changed files with 3095 additions and 933 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
A00标签打印/U_ClientPrintRmf.dfm
View File

@ -1,8 +1,8 @@
object frmClientPrintRmf: TfrmClientPrintRmf object frmClientPrintRmf: TfrmClientPrintRmf
Left = 874 Left = 874
Top = 483 Top = 483
Width = 403 Width = 419
Height = 240 Height = 249
Caption = #25253#34920#25171#21360 Caption = #25253#34920#25171#21360
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -16,6 +16,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
OnStartDock = FormStartDock
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 11 TextHeight = 11
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
@ -3870,7 +3871,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf
Top = 153 Top = 153
end end
object ADOQueryReport: TADOQuery object ADOQueryReport: TADOQuery
Connection = DataLink_YXYMT.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 183 Left = 183
Top = 65503 Top = 65503

35
A00标签打印/U_ClientPrintRmf.pas
View File

@ -42,6 +42,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TV1DblClick(Sender: TObject); procedure TV1DblClick(Sender: TObject);
procedure FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
private private
IsDebug, FPreviewPrint, fIsPreview: Boolean; IsDebug, FPreviewPrint, fIsPreview: Boolean;
FLMType, FLBName: string; FLMType, FLBName: string;
@ -52,6 +53,7 @@ type
procedure PrintReport(); procedure PrintReport();
procedure ExportReport(); procedure ExportReport();
procedure InitAdo(Ado: TADOQuery; SqlStr: string); procedure InitAdo(Ado: TADOQuery; SqlStr: string);
procedure TfrmClientPrintRmf.GetQrCode();
procedure InitArgs(); procedure InitArgs();
{ Private declarations } { Private declarations }
public public
@ -77,6 +79,34 @@ begin
FPrintJson := JsonArgs; FPrintJson := JsonArgs;
end; end;
procedure TfrmClientPrintRmf.GetQrCode(Txt: string; );
var
fPrintFile: string;
fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
CurRow: Integer;
begin
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
end;
procedure TfrmClientPrintRmf.InitArgs; procedure TfrmClientPrintRmf.InitArgs;
var var
JSONObject, item: ISuperObject; JSONObject, item: ISuperObject;
@ -281,5 +311,10 @@ begin
frmClientPrintRmf := nil; frmClientPrintRmf := nil;
end; end;
procedure TfrmClientPrintRmf.FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
begin
end;
end. end.

64
云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm
View File

@ -1281,39 +1281,39 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 165 Left = 760
Top = 148 Top = 345
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 205 Left = 696
Top = 209 Top = 313
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 205 Left = 728
Top = 178 Top = 313
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 206 Left = 792
Top = 149 Top = 313
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = Order_Main DataSet = Order_Main
Left = 164 Left = 792
Top = 210 Top = 345
end end
object Order_Main: TClientDataSet object Order_Main: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 165 Left = 728
Top = 179 Top = 345
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -1331,15 +1331,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 1048 Left = 728
Top = 8 Top = 409
ReportData = {} ReportData = {}
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_PRT
Left = 1016 Left = 728
Top = 8 Top = 377
end end
object RMXLSExport2: TRMXLSExport object RMXLSExport2: TRMXLSExport
ShowAfterExport = False ShowAfterExport = False
@ -1352,18 +1352,18 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 1108 Left = 696
Top = 8 Top = 409
end end
object CDS_PRT: TClientDataSet object CDS_PRT: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 1080 Left = 824
Top = 8 Top = 313
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 164 Left = 824
Top = 240 Top = 345
object N1: TMenuItem object N1: TMenuItem
Caption = #20462#25913 Caption = #20462#25913
OnClick = N1Click OnClick = N1Click
@ -1376,15 +1376,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object ClientDataSet1: TClientDataSet object ClientDataSet1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 773 Left = 696
Top = 259 Top = 345
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 280 Left = 760
Top = 544 Top = 313
end end
object RM2: TRMGridReport object RM2: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -1403,19 +1403,19 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 344 Left = 760
Top = 568 Top = 417
ReportData = {} ReportData = {}
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOQueryPrint DataSet = ADOQueryPrint
Left = 320 Left = 760
Top = 528 Top = 377
end end
object PopupMenu2: TPopupMenu object PopupMenu2: TPopupMenu
Left = 172 Left = 696
Top = 392 Top = 377
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = MenuItem1Click OnClick = MenuItem1Click

18
云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas
View File

@ -24,7 +24,19 @@ uses
dxSkinSharpPlus, dxSkinSpringTime, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinsDefaultPainters,
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu; dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmKCPBCGRKList_RCDJ = class(TForm) TfrmKCPBCGRKList_RCDJ = class(TForm)
@ -872,8 +884,8 @@ begin
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport; RM2.ShowReport;
RM2.PrintReport; // RM2.PrintReport;
end end
else else
begin begin

982
云翔生产管理(MYSC.dll)/U_LLCKList.dfm
View File

File diff suppressed because it is too large Load Diff

288
云翔生产管理(MYSC.dll)/U_LLCKList.pas
View File

@ -11,20 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2013White, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinsDefaultPainters, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinscxPCPainter; dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmLLCKList = class(TForm) TfrmLLCKList = class(TForm)
@ -40,7 +40,7 @@ type
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DS_Main: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; ToolButton1: TToolButton;
@ -55,7 +55,7 @@ type
RM1: TRMGridReport; RM1: TRMGridReport;
RMDBMain: TRMDBDataSet; RMDBMain: TRMDBDataSet;
RMXLSExport2: TRMXLSExport; RMXLSExport2: TRMXLSExport;
CDS_PRT: TClientDataSet; CDS_3: TClientDataSet;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
@ -75,7 +75,7 @@ type
v1filler: TcxGridDBColumn; v1filler: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
filler: TEdit; filler: TEdit;
ClientDataSet1: TClientDataSet; CDS_2: TClientDataSet;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
@ -97,6 +97,63 @@ type
Label9: TLabel; Label9: TLabel;
MYColor: TEdit; MYColor: TEdit;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Ssel: TcxGridDBColumn;
TV2KHName: TcxGridDBColumn;
TV2KHNo: TcxGridDBColumn;
TV2MYType: TcxGridDBColumn;
TV2PS: TcxGridDBColumn;
Tv2Qty: TcxGridDBColumn;
TV2KgQty: TcxGridDBColumn;
TV2Note: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TabSheet2: TTabSheet;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV3Ssel: TcxGridDBColumn;
TV3MLOrderNo: TcxGridDBColumn;
TV3KHCode: TcxGridDBColumn;
TV3KHName: TcxGridDBColumn;
TV3CRTime: TcxGridDBColumn;
TV3PBBatchNo: TcxGridDBColumn;
TV3GYSNo: TcxGridDBColumn;
TV3KHNameJC: TcxGridDBColumn;
TV3KHNameJCDH: TcxGridDBColumn;
TV3MYType: TcxGridDBColumn;
TV3MYName: TcxGridDBColumn;
TV3MYColor: TcxGridDBColumn;
TV3MYColorNo: TcxGridDBColumn;
TV3filler: TcxGridDBColumn;
TV3RCGangNo: TcxGridDBColumn;
TV3JH: TcxGridDBColumn;
TV3JKGQTY: TcxGridDBColumn;
TV3JMQTY: TcxGridDBColumn;
TV3MYMF: TcxGridDBColumn;
TV3MYKZ: TcxGridDBColumn;
TV3SJKZ: TcxGridDBColumn;
TV3Note: TcxGridDBColumn;
TV3RCColor: TcxGridDBColumn;
TV3ZKZT: TcxGridDBColumn;
TV3CDZSD: TcxGridDBColumn;
TV3KW: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TabSheet3: TTabSheet;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
TV4RCGangNo: TcxGridDBColumn;
TV4JH: TcxGridDBColumn;
TV4KgQty: TcxGridDBColumn;
TV4MQty: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
ADOQuery3: TADOQuery;
ADOQuery2: TADOQuery;
DS_2: TDataSource;
DS_3: TDataSource;
DS_Sub: TDataSource;
CDS_Sub: TClientDataSet;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -112,18 +169,21 @@ type
procedure CustomerNoNameChange(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject); procedure ZJStatusChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
private private
FGXName: string; FGXName: string;
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
function DelData(): Boolean; function DelData(): Boolean;
procedure InitGridByCustomer();
procedure InitMXGrid();
procedure InitSubGrid();
{ Private declarations } { Private declarations }
public public
FFInt, FCloth: Integer; FFInt, FCloth: Integer;
@ -211,11 +271,131 @@ begin
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
InitSubGrid();
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmLLCKList.InitGridByCustomer();
begin
try
ADOQuery2.DisableControls;
with ADOQuery2 do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty ');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' where 1=1 ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible := false;
EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible := true;
EndDate.Visible := true;
end;
sql.Add(' and isnull(A.CRType,'''')=''À´ÁÏÈë¿â'' ');
sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType ');
sql.Add(' ORDER BY MIN(A.CRTime),A.KHName');
Open;
end;
SCreateCDS20(ADOQuery2, CDS_2);
SInitCDSData20(ADOQuery2, CDS_2);
finally
ADOQuery2.EnableControls;
end;
end;
procedure TfrmLLCKList.InitMXGrid();
begin
try
ADOQuery3.DisableControls;
with ADOQuery3 do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from(');
sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
sql.Add(' where 1=1 ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible := false;
EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible := true;
EndDate.Visible := true;
end;
sql.Add(' and isnull(CRType,'''')=''À´ÁÏÈë¿â'' ');
sql.Add(')AA');
sql.Add(' order by AA.CRTime,AA.KHName');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmLLCKList.InitSubGrid();
var
MYID: string;
begin
if Order_Main.IsEmpty then
exit;
try
ADOQueryTemp.DisableControls;
MYID := Order_Main.FieldByName('MYID').AsString;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + '''');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmLLCKList.InitForm(); procedure TfrmLLCKList.InitForm();
var var
fsj: string; fsj: string;
@ -223,18 +403,41 @@ begin
BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
EndDate.Date := SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('¼Ó¹¤Âëµ¥', Tv1, 'óÒ×Éú²ú¹ÜÀí'); ReadCxGrid('¼Ó¹¤Âëµ¥', Tv1, 'óÒ×Éú²ú¹ÜÀí');
fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' ';
SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj);
InitGrid(); InitGrid();
InitGridByCustomer();
InitMXGrid();
end; end;
procedure TfrmLLCKList.TBFindClick(Sender: TObject); procedure TfrmLLCKList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
Exit; Exit
else
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
end;
if ADOQuery1.Active = False then
Exit
else
begin
SDofilter(ADOQuery2, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery2, CDS_2);
SInitCDSData20(ADOQuery2, CDS_2);
end;
if ADOQuery3.Active = False then
Exit
else
begin
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
end;
end; end;
function TfrmLLCKList.DelData(): Boolean; function TfrmLLCKList.DelData(): Boolean;
@ -285,6 +488,8 @@ end;
procedure TfrmLLCKList.TBRafreshClick(Sender: TObject); procedure TfrmLLCKList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
InitGridByCustomer();
InitMXGrid();
TBFind.Click; TBFind.Click;
end; end;
@ -298,7 +503,7 @@ begin
FMainId := ''; FMainId := '';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click
end; end;
end; end;
finally finally
@ -313,7 +518,7 @@ end;
procedure TfrmLLCKList.CheckBox1Click(Sender: TObject); procedure TfrmLLCKList.CheckBox1Click(Sender: TObject);
begin begin
InitGrid(); TBRafresh.Click
end; end;
procedure TfrmLLCKList.CheckBox2Click(Sender: TObject); procedure TfrmLLCKList.CheckBox2Click(Sender: TObject);
@ -352,6 +557,33 @@ begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
if ADOQueryMain.Active = False then
Exit
else
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
if ADOQuery2.Active = False then
Exit
else
begin
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery2, CDS_2);
SInitCDSData20(ADOQuery2, CDS_2);
end;
if ADOQuery3.Active = False then
Exit
else
begin
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
end;
end; end;
procedure TfrmLLCKList.N2Click(Sender: TObject); procedure TfrmLLCKList.N2Click(Sender: TObject);
@ -448,11 +680,6 @@ begin
end; } end; }
end; end;
procedure TfrmLLCKList.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLLCKList.ZJStatusChange(Sender: TObject); procedure TfrmLLCKList.ZJStatusChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
@ -499,5 +726,10 @@ begin
end; end;
end; end;
procedure TfrmLLCKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSubGrid();
end;
end. end.

847
云翔生产管理(MYSC.dll)/U_LLKCList.dfm
View File

File diff suppressed because it is too large Load Diff

82
云翔生产管理(MYSC.dll)/U_LLKCList.pas
View File

@ -24,7 +24,19 @@ uses
dxSkinSharpPlus, dxSkinSpringTime, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinsDefaultPainters,
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu; dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmLLKCList = class(TForm) TfrmLLKCList = class(TForm)
@ -40,7 +52,7 @@ type
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DS_Main: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; ToolButton1: TToolButton;
@ -75,7 +87,7 @@ type
Label4: TLabel; Label4: TLabel;
filler: TEdit; filler: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ClientDataSet1: TClientDataSet; CDS_2: TClientDataSet;
SpeedButton2: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton; SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton; SpeedButton4: TSpeedButton;
@ -150,6 +162,64 @@ type
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
KW: TEdit; KW: TEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Ssel: TcxGridDBColumn;
TV2KHName: TcxGridDBColumn;
TV2KHNo: TcxGridDBColumn;
TV2MYType: TcxGridDBColumn;
TV2PS: TcxGridDBColumn;
Tv2Qty: TcxGridDBColumn;
TV2KgQty: TcxGridDBColumn;
TV2Note: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TabSheet2: TTabSheet;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV3Ssel: TcxGridDBColumn;
TV3MLOrderNo: TcxGridDBColumn;
TV3KHCode: TcxGridDBColumn;
TV3KHName: TcxGridDBColumn;
TV3CRTime: TcxGridDBColumn;
TV3PBBatchNo: TcxGridDBColumn;
TV3GYSNo: TcxGridDBColumn;
TV3KHNameJC: TcxGridDBColumn;
TV3KHNameJCDH: TcxGridDBColumn;
TV3MYType: TcxGridDBColumn;
TV3MYName: TcxGridDBColumn;
TV3MYColor: TcxGridDBColumn;
TV3MYColorNo: TcxGridDBColumn;
TV3filler: TcxGridDBColumn;
TV3RCGangNo: TcxGridDBColumn;
TV3JH: TcxGridDBColumn;
TV3JKGQTY: TcxGridDBColumn;
TV3JMQTY: TcxGridDBColumn;
TV3MYMF: TcxGridDBColumn;
TV3MYKZ: TcxGridDBColumn;
TV3SJKZ: TcxGridDBColumn;
TV3Note: TcxGridDBColumn;
TV3RCColor: TcxGridDBColumn;
TV3ZKZT: TcxGridDBColumn;
TV3CDZSD: TcxGridDBColumn;
TV3KW: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TabSheet3: TTabSheet;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
TV4RCGangNo: TcxGridDBColumn;
TV4JH: TcxGridDBColumn;
TV4KgQty: TcxGridDBColumn;
TV4MQty: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
ADOQuery3: TADOQuery;
ADOQuery2: TADOQuery;
CDS_3: TClientDataSet;
CDS_Sub: TClientDataSet;
DS_2: TDataSource;
DS_3: TDataSource;
DS_Sub: TDataSource;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -329,8 +399,6 @@ begin
BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
EndDate.Date := SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('库存来料入库', Tv1, '库存贸易生产管理'); ReadCxGrid('库存来料入库', Tv1, '库存贸易生产管理');
fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' ';
SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj);
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
@ -872,8 +940,8 @@ begin
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport; RM2.ShowReport;
RM2.PrintReport; // RM2.PrintReport;
end end
else else
begin begin

42
云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm
View File

@ -199,7 +199,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 99 Left = 99
Top = 11 Top = 11
Width = 261 Width = 261
Height = 31 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
@ -214,7 +214,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 479 Left = 479
Top = 50 Top = 50
Width = 179 Width = 179
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -231,7 +231,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 481 Left = 481
Top = 11 Top = 11
Width = 187 Width = 187
Height = 30 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -575,7 +575,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 99 Left = 99
Top = 120 Top = 120
Width = 272 Width = 272
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -589,7 +589,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 465 Left = 465
Top = 22 Top = 22
Width = 40 Width = 40
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -603,7 +603,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 554 Left = 554
Top = 22 Top = 22
Width = 71 Width = 71
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -618,7 +618,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 663 Left = 663
Top = 22 Top = 22
Width = 71 Width = 71
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -632,7 +632,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 467 Left = 467
Top = 191 Top = 191
Width = 40 Width = 40
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -648,7 +648,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 553 Left = 553
Top = 191 Top = 191
Width = 71 Width = 71
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -664,7 +664,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 662 Left = 662
Top = 191 Top = 191
Width = 71 Width = 71
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -680,7 +680,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 467 Left = 467
Top = 251 Top = 251
Width = 40 Width = 40
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
@ -696,7 +696,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 553 Left = 553
Top = 251 Top = 251
Width = 71 Width = 71
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
@ -712,7 +712,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 662 Left = 662
Top = 251 Top = 251
Width = 71 Width = 71
Height = 24 Height = 23
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
@ -761,7 +761,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 941 Left = 941
Top = 64 Top = 64
Width = 72 Width = 72
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -776,7 +776,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 465 Left = 465
Top = 116 Top = 116
Width = 289 Width = 289
Height = 30 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -792,7 +792,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 99 Left = 99
Top = 21 Top = 21
Width = 60 Width = 60
Height = 25 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -808,7 +808,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 277 Left = 277
Top = 20 Top = 20
Width = 60 Width = 60
Height = 25 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -824,7 +824,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 99 Left = 99
Top = 71 Top = 71
Width = 60 Width = 60
Height = 25 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -840,7 +840,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 277 Left = 277
Top = 71 Top = 71
Width = 60 Width = 60
Height = 25 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -856,7 +856,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 465 Left = 465
Top = 73 Top = 73
Width = 59 Width = 59
Height = 23 Height = 21
Color = clScrollBar Color = clScrollBar
Enabled = False Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -873,7 +873,7 @@ object frmLLRKInPut: TfrmLLRKInPut
Left = 641 Left = 641
Top = 71 Top = 71
Width = 111 Width = 111
Height = 25 Height = 23
TabOrder = 18 TabOrder = 18
end end
end end

1
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas
View File

@ -921,6 +921,7 @@ begin
begin begin
Parameters.ParamByName('KGQty').Value := Null; Parameters.ParamByName('KGQty').Value := Null;
end; end;
if Trim(MXHZQty.Text) <> '0' then if Trim(MXHZQty.Text) <> '0' then
begin begin
Parameters.ParamByName('MQty').Value := FM; Parameters.ParamByName('MQty').Value := FM;

762
云翔生产管理(MYSC.dll)/U_LLRKList.dfm
View File

@ -1,6 +1,6 @@
object frmLLRKList: TfrmLLRKList object frmLLRKList: TfrmLLRKList
Left = 601 Left = 1195
Top = 249 Top = 285
Width = 1361 Width = 1361
Height = 698 Height = 698
Caption = #23458#25143#26469#26009#20837#24211#30331#35760 Caption = #23458#25143#26469#26009#20837#24211#30331#35760
@ -17,103 +17,404 @@ object frmLLRKList: TfrmLLRKList
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar object PageControl1: TPageControl
Left = 0
Top = 0
Width = 1353
AutoSize = True
ButtonHeight = 30
ButtonWidth = 65
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_MYSC.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBAdd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20837#24211
ImageIndex = 1
OnClick = TBAddClick
end
object TBRafresh: TToolButton
Left = 69
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 138
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 97
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 207
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
object labMYType: TLabel
Left = 276
Top = 0
Width = 340
Height = 30
Caption = ' '#23458#25143#26469#26009#20837#24211' '
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ToolButton1: TToolButton
Left = 616
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 55
Visible = False
OnClick = ToolButton1Click
end
object TBFind: TToolButton
Left = 685
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
Visible = False
OnClick = TBFindClick
end
end
object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 104 Top = 104
Width = 1353 Width = 1353
Height = 563 Height = 563
ActivePage = TabSheet3
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
TabPosition = tpBottom
object TabSheet1: TTabSheet
Caption = #23458#25143#27719#24635
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1345
Height = 530
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = TV2PS
end
item
Kind = skSum
Column = TV2KgQty
end
item
Kind = skSum
Column = Tv2Qty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_MYSC.Default10
Styles.Footer = DataLink_MYSC.Default10
Styles.Header = DataLink_MYSC.Default10
object TV2Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
SortIndex = 0
SortOrder = soDescending
Width = 58
end
object TV2KHName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 129
end
object TV2KHNo: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'KHCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV2MYType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'MYType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 70
end
object TV2PS: TcxGridDBColumn
Caption = #21305#25968'/'#25903
DataBinding.FieldName = 'PS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Styles.Footer = DataLink_MYSC.Default10
Width = 68
end
object Tv2Qty: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Styles.Footer = DataLink_MYSC.Default10
Width = 78
end
object TV2KgQty: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'KgQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Styles.Footer = DataLink_MYSC.Default10
Width = 85
end
object TV2Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Options.Sorting = False
Width = 182
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object TabSheet2: TTabSheet
Caption = #26126#32454#20449#24687
ImageIndex = 1
object cxGrid3: TcxGrid
Left = 0
Top = 0
Width = 1345
Height = 530
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_MYSC.Default10
Styles.Footer = DataLink_MYSC.Default10
Styles.Header = DataLink_MYSC.Default10
object TV3Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
SortIndex = 0
SortOrder = soDescending
Width = 58
end
object TV3MLOrderNo: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'MLOrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3KHCode: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'KHCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3KHName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 129
end
object TV3CRTime: TcxGridDBColumn
Caption = #20837#24211#26085#26399
DataBinding.FieldName = 'CRTime'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object TV3PBBatchNo: TcxGridDBColumn
Caption = #22383#24067#32852#31995#21495
DataBinding.FieldName = 'PBBatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3GYSNo: TcxGridDBColumn
Caption = #21152#24037#21378#32534#21495
DataBinding.FieldName = 'GYSNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3KHNameJC: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'KHNameJC'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 103
end
object TV3KHNameJCDH: TcxGridDBColumn
Caption = #25910#36135#21333#20301
DataBinding.FieldName = 'KHNameJCDH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3MYType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'MYType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 70
end
object TV3MYName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 168
end
object TV3MYColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'MYColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 74
end
object TV3MYColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MYColorNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 59
end
object TV3filler: TcxGridDBColumn
Caption = #21046#20316#20154
DataBinding.FieldName = 'filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3RCGangNo: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'RCGangNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3JH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'JH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3JKGQTY: TcxGridDBColumn
Caption = #21367#20844#26020#25968
DataBinding.FieldName = 'JKGQTY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3JMQTY: TcxGridDBColumn
Caption = #21367#31859#25968
DataBinding.FieldName = 'JMQTY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3MYMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'MYMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3MYKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'MYKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3SJKZ: TcxGridDBColumn
Caption = #23454#38469#20811#37325
DataBinding.FieldName = 'SJKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 74
end
object TV3Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 182
end
object TV3RCColor: TcxGridDBColumn
Caption = #26579#21378#39068#33394
DataBinding.FieldName = 'RCColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3ZKZT: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'ZKZT'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3CDZSD: TcxGridDBColumn
Caption = #20986#21040#25351#31034#21333
DataBinding.FieldName = 'CDZSD'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV3KW: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KW'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV3
end
end
end
object TabSheet3: TTabSheet
Caption = #27719#24635#20449#24687
ImageIndex = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1345
Height = 328
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_Main
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -183,6 +484,7 @@ object frmLLRKList: TfrmLLRKList
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'KHName' DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 129 Width = 129
end end
@ -190,6 +492,7 @@ object frmLLRKList: TfrmLLRKList
Caption = #26469#36135#21333#20301 Caption = #26469#36135#21333#20301
DataBinding.FieldName = 'JCDanWei' DataBinding.FieldName = 'JCDanWei'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 103 Width = 103
end end
@ -197,6 +500,7 @@ object frmLLRKList: TfrmLLRKList
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'MYName' DataBinding.FieldName = 'MYName'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 168 Width = 168
end end
@ -307,6 +611,7 @@ object frmLLRKList: TfrmLLRKList
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 182 Width = 182
end end
@ -315,6 +620,167 @@ object frmLLRKList: TfrmLLRKList
GridView = Tv1 GridView = Tv1
end end
end end
object cxGrid4: TcxGrid
Left = 0
Top = 328
Width = 1345
Height = 202
Align = alBottom
PopupMenu = PopupMenu1
TabOrder = 1
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_Sub
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_MYSC.Default10
Styles.Footer = DataLink_MYSC.Default10
Styles.Header = DataLink_MYSC.Default10
object TV4RCGangNo: TcxGridDBColumn
Caption = #20837#24211#32568#21495
DataBinding.FieldName = 'RCGangNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV4JH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'JH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV4KgQty: TcxGridDBColumn
Caption = #20844#26020#25968
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV4MQty: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'MQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV4
end
end
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1353
AutoSize = True
ButtonHeight = 30
ButtonWidth = 65
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_MYSC.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBAdd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20837#24211
ImageIndex = 1
OnClick = TBAddClick
end
object TBRafresh: TToolButton
Left = 69
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 138
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 97
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 207
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
object labMYType: TLabel
Left = 276
Top = 0
Width = 340
Height = 30
Caption = ' '#23458#25143#26469#26009#20837#24211' '
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TbLook: TToolButton
Left = 616
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 55
Visible = False
OnClick = TbLookClick
end
object TBFind: TToolButton
Left = 685
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
Visible = False
OnClick = TBFindClick
end
end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
@ -324,7 +790,7 @@ object frmLLRKList: TfrmLLRKList
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 1
object Label34: TLabel object Label34: TLabel
Left = 198 Left = 198
Top = 15 Top = 15
@ -627,7 +1093,7 @@ object frmLLRKList: TfrmLLRKList
Width = 249 Width = 249
Height = 225 Height = 225
Color = clSkyBlue Color = clSkyBlue
TabOrder = 3 TabOrder = 2
Visible = False Visible = False
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 55 Left = 55
@ -754,7 +1220,7 @@ object frmLLRKList: TfrmLLRKList
Width = 249 Width = 249
Height = 225 Height = 225
Color = clSkyBlue Color = clSkyBlue
TabOrder = 4 TabOrder = 3
Visible = False Visible = False
object SpeedButton6: TSpeedButton object SpeedButton6: TSpeedButton
Left = 55 Left = 55
@ -888,7 +1354,7 @@ object frmLLRKList: TfrmLLRKList
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 5 TabOrder = 4
Visible = False Visible = False
Height = 202 Height = 202
Width = 327 Width = 327
@ -1137,39 +1603,39 @@ object frmLLRKList: TfrmLLRKList
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 173 Left = 598
Top = 143 Top = 319
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 204 Left = 662
Top = 209 Top = 255
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 204 Left = 694
Top = 175 Top = 255
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 205 Left = 726
Top = 144 Top = 255
end end
object DataSource1: TDataSource object DS_Main: TDataSource
DataSet = Order_Main DataSet = Order_Main
Left = 172 Left = 694
Top = 176 Top = 319
end end
object Order_Main: TClientDataSet object Order_Main: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 173 Left = 662
Top = 209 Top = 287
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -1187,15 +1653,15 @@ object frmLLRKList: TfrmLLRKList
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 1049 Left = 630
Top = 8 Top = 383
ReportData = {} ReportData = {}
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_PRT
Left = 1016 Left = 598
Top = 8 Top = 383
end end
object RMXLSExport2: TRMXLSExport object RMXLSExport2: TRMXLSExport
ShowAfterExport = False ShowAfterExport = False
@ -1208,18 +1674,18 @@ object frmLLRKList: TfrmLLRKList
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 1108 Left = 662
Top = 8 Top = 383
end end
object CDS_PRT: TClientDataSet object CDS_PRT: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 1080 Left = 694
Top = 8 Top = 287
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 110 Left = 694
Top = 241 Top = 351
object N1: TMenuItem object N1: TMenuItem
Caption = #20462#25913 Caption = #20462#25913
OnClick = N1Click OnClick = N1Click
@ -1258,8 +1724,8 @@ object frmLLRKList: TfrmLLRKList
end end
end end
object PopupMenu2: TPopupMenu object PopupMenu2: TPopupMenu
Left = 1094 Left = 726
Top = 174 Top = 351
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = #19978#20256 Caption = #19978#20256
OnClick = MenuItem1Click OnClick = MenuItem1Click
@ -1282,33 +1748,73 @@ object frmLLRKList: TfrmLLRKList
ReadTimeout = 0 ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0 ProxySettings.Port = 0
Left = 1119 Left = 598
Top = 174 Top = 351
end end
object ODPat: TOpenDialog object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 1148 Left = 662
Top = 173 Top = 351
end end
object ImageList1: TImageList object ImageList1: TImageList
Height = 32 Height = 32
ShareImages = True ShareImages = True
Width = 32 Width = 32
Left = 151 Left = 630
Top = 743 Top = 351
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 156 Left = 598
Top = 255 Top = 255
end end
object ADOQuery2: TADOQuery object ADOQuery2: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 200 Left = 630
Top = 259 Top = 255
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 630
Top = 319
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 662
Top = 319
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 598
Top = 287
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 630
Top = 287
end
object DS_Sub: TDataSource
DataSet = CDS_Sub
Left = 726
Top = 319
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 726
Top = 287
end
object ADOQuery3: TADOQuery
Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 702
Top = 383
end end
end end

333
云翔生产管理(MYSC.dll)/U_LLRKList.pas
View File

@ -13,20 +13,19 @@ uses
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinSharpPlus, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinsDefaultPainters, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinscxPCPainter;
type type
TfrmLLRKList = class(TForm) TfrmLLRKList = class(TForm)
@ -42,10 +41,10 @@ type
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DS_Main: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; TbLook: TToolButton;
Panel1: TPanel; Panel1: TPanel;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
Label34: TLabel; Label34: TLabel;
@ -140,6 +139,64 @@ type
Filler: TComboBox; Filler: TComboBox;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery; ADOQuery2: TADOQuery;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Ssel: TcxGridDBColumn;
TV2MYType: TcxGridDBColumn;
TV2KHName: TcxGridDBColumn;
TV2PS: TcxGridDBColumn;
TV2KgQty: TcxGridDBColumn;
Tv2Qty: TcxGridDBColumn;
TV2Note: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV3Ssel: TcxGridDBColumn;
TV3CRTime: TcxGridDBColumn;
TV3MYType: TcxGridDBColumn;
TV3KHName: TcxGridDBColumn;
TV3KHNameJC: TcxGridDBColumn;
TV3MYName: TcxGridDBColumn;
TV3MYColor: TcxGridDBColumn;
TV3MYColorNo: TcxGridDBColumn;
TV3SJKZ: TcxGridDBColumn;
TV3Note: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DS_2: TDataSource;
DS_3: TDataSource;
CDS_2: TClientDataSet;
CDS_3: TClientDataSet;
DS_Sub: TDataSource;
CDS_Sub: TClientDataSet;
TV2KHNo: TcxGridDBColumn;
TV3MLOrderNo: TcxGridDBColumn;
TV3KHCode: TcxGridDBColumn;
TV3PBBatchNo: TcxGridDBColumn;
TV3GYSNo: TcxGridDBColumn;
TV3KHNameJCDH: TcxGridDBColumn;
TV3RCGangNo: TcxGridDBColumn;
TV3filler: TcxGridDBColumn;
TV3JH: TcxGridDBColumn;
TV3JKGQTY: TcxGridDBColumn;
TV3JMQTY: TcxGridDBColumn;
TV3MYMF: TcxGridDBColumn;
TV3MYKZ: TcxGridDBColumn;
TV3RCColor: TcxGridDBColumn;
TV3ZKZT: TcxGridDBColumn;
TV3CDZSD: TcxGridDBColumn;
TV3KW: TcxGridDBColumn;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridLevel3: TcxGridLevel;
TV4RCGangNo: TcxGridDBColumn;
TV4JH: TcxGridDBColumn;
TV4KgQty: TcxGridDBColumn;
TV4MQty: TcxGridDBColumn;
ADOQuery3: TADOQuery;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -149,13 +206,10 @@ type
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject); procedure TbLookClick(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject); procedure ZJStatusChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure Image2Click(Sender: TObject); procedure Image2Click(Sender: TObject);
@ -192,6 +246,8 @@ type
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject); procedure Button6Click(Sender: TObject);
procedure N9Click(Sender: TObject); procedure N9Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure CheckBox1Click(Sender: TObject);
private private
canshu1: string; canshu1: string;
DQdate: TDateTime; DQdate: TDateTime;
@ -199,6 +255,10 @@ type
procedure InitForm(); procedure InitForm();
function DelData(): Boolean; function DelData(): Boolean;
procedure Initimage(); procedure Initimage();
procedure InitFiller();
procedure InitGridByCustomer();
procedure InitMXGrid();
procedure InitSubGrid();
{ Private declarations } { Private declarations }
public public
FFInt, FCloth: Integer; FFInt, FCloth: Integer;
@ -289,7 +349,7 @@ begin
sql.Add(',PJKG=cast((case when isnull(PS,0)<>0 then KgQty/PS else 0 end) as decimal(18,1))'); sql.Add(',PJKG=cast((case when isnull(PS,0)<>0 then KgQty/PS else 0 end) as decimal(18,1))');
SQL.Add(',KHNameQC=(select Top 1 B.KHName from KH_Main B '); SQL.Add(',KHNameQC=(select Top 1 B.KHName from KH_Main B ');
sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(B.Valid,'''')=''Y'' and B.KHNameJC=A.KHName)'); sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(B.Valid,'''')=''Y'' and B.KHNameJC=A.KHName)');
sql.add(',IFFZ=(select Count(B.WBID) from TP_File B where B.WBID=A.MYID and B.TFType=''À´ÁÏÈë¿â'')'); sql.add(',IFFZ=(select Count(C.WBID) from TP_File C where C.WBID=A.MYID and C.TFType=''来料入库'')');
sql.Add(' from CK_MYSC_CR A '); sql.Add(' from CK_MYSC_CR A ');
sql.Add(' where 1=1 '); sql.Add(' where 1=1 ');
if CheckBox1.Checked = False then if CheckBox1.Checked = False then
@ -307,16 +367,141 @@ begin
EndDate.Visible := true; EndDate.Visible := true;
end; end;
sql.Add(' and isnull(CRType,'''')=''来料入库'' '); sql.Add(' and isnull(CRType,'''')=''来料入库'' ');
sql.Add(' order by A.CRTime'); sql.Add(' order by A.CRTime,A.KHName');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
TBFind.Click; InitSubGrid();
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end;
procedure TfrmLLRKList.InitGridByCustomer();
begin
try
ADOQuery1.DisableControls;
with ADOQuery1 do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty ');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' where 1=1 ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible := false;
EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible := true;
EndDate.Visible := true;
end;
sql.Add(' and isnull(A.CRType,'''')=''来料入库'' ');
sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType ');
sql.Add(' ORDER BY MIN(A.CRTime),A.KHName');
Open;
end;
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery1, CDS_2);
SInitCDSData20(ADOQuery1, CDS_2);
finally
ADOQuery1.EnableControls;
end;
end;
procedure TfrmLLRKList.InitMXGrid();
begin
try
ADOQuery3.DisableControls;
with ADOQuery3 do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from(');
sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
sql.Add(' where 1=1 ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible := false;
EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible := true;
EndDate.Visible := true;
end;
sql.Add(' and isnull(CRType,'''')=''来料入库'' ');
sql.Add(')AA');
sql.Add(' order by AA.CRTime,AA.KHName');
// ShowMessage(SQL.Text);
Open;
end;
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmLLRKList.InitSubGrid();
var
MYID: string;
begin
if Order_Main.IsEmpty then
exit;
try
ADOQueryTemp.DisableControls;
MYID := Order_Main.FieldByName('MYID').AsString;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + '''');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmLLRKList.InitFiller();
begin
with ADOQuery2 do with ADOQuery2 do
begin begin
Filtered := False; Filtered := False;
@ -324,6 +509,7 @@ begin
sql.Clear; sql.Clear;
sql.add(' select DISTINCT A.filler AS Name'); sql.add(' select DISTINCT A.filler AS Name');
sql.Add(' from CK_MYSC_CR A where 1=1 '); sql.Add(' from CK_MYSC_CR A where 1=1 ');
if CheckBox1.Checked = False then if CheckBox1.Checked = False then
begin begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
@ -359,15 +545,39 @@ begin
EndDate.Date := SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('来料入库111', Tv1, '贸易生产管理'); ReadCxGrid('来料入库111', Tv1, '贸易生产管理');
InitGrid(); InitGrid();
InitFiller();
InitGridByCustomer();
InitMXGrid();
end; end;
procedure TfrmLLRKList.TBFindClick(Sender: TObject); procedure TfrmLLRKList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
Exit; Exit
else
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
end;
if ADOQuery1.Active = False then
Exit
else
begin
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery1, CDS_2);
SInitCDSData20(ADOQuery1, CDS_2);
end;
if ADOQuery3.Active = False then
Exit
else
begin
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
end;
end; end;
function TfrmLLRKList.DelData(): Boolean; function TfrmLLRKList.DelData(): Boolean;
@ -415,6 +625,8 @@ end;
procedure TfrmLLRKList.TBRafreshClick(Sender: TObject); procedure TfrmLLRKList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
InitMXGrid();
InitGridByCustomer();
end; end;
procedure TfrmLLRKList.TBAddClick(Sender: TObject); procedure TfrmLLRKList.TBAddClick(Sender: TObject);
@ -427,17 +639,7 @@ begin
InitForm(); InitForm();
end; end;
procedure TfrmLLRKList.CheckBox1Click(Sender: TObject); procedure TfrmLLRKList.TbLookClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLLRKList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmLLRKList.ToolButton1Click(Sender: TObject);
var var
FFMYType: string; FFMYType: string;
begin begin
@ -455,7 +657,7 @@ begin
frmLLRKInPut.TBSave.Visible := False; frmLLRKInPut.TBSave.Visible := False;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); // TBRafresh.Click;
end; end;
end; end;
finally finally
@ -476,7 +678,7 @@ begin
FML := '底布'; FML := '底布';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); // TBRafresh.Click;
end; end;
end; end;
finally finally
@ -497,7 +699,7 @@ begin
FML := '棉'; FML := '棉';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); // TBRafresh.Click;
end; end;
end; end;
finally finally
@ -518,7 +720,7 @@ begin
FML := '无纺布'; FML := '无纺布';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); // TBRafresh.Click;
end; end;
end; end;
finally finally
@ -539,7 +741,7 @@ begin
FML := '线'; FML := '线';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); // TBRafresh.Click;
end; end;
end; end;
finally finally
@ -551,10 +753,32 @@ end;
procedure TfrmLLRKList.CustomerNoNameChange(Sender: TObject); procedure TfrmLLRKList.CustomerNoNameChange(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
Exit; Exit
else
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
end;
if ADOQuery1.Active = False then
Exit
else
begin
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery1, CDS_2);
SInitCDSData20(ADOQuery1, CDS_2);
end;
if ADOQuery3.Active = False then
Exit
else
begin
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuery3, CDS_3);
SInitCDSData20(ADOQuery3, CDS_3);
end;
end; end;
procedure TfrmLLRKList.N2Click(Sender: TObject); procedure TfrmLLRKList.N2Click(Sender: TObject);
@ -618,7 +842,7 @@ begin
FML := '面料'; FML := '面料';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click;
end; end;
end; end;
finally finally
@ -638,7 +862,7 @@ begin
FML := '底布'; FML := '底布';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click;
end; end;
end; end;
finally finally
@ -658,7 +882,7 @@ begin
FML := '棉'; FML := '棉';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click;
end; end;
end; end;
finally finally
@ -678,7 +902,7 @@ begin
FML := '无纺布'; FML := '无纺布';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click;
end; end;
end; end;
finally finally
@ -698,7 +922,7 @@ begin
FML := '线'; FML := '线';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); TBRafresh.Click;
end; end;
end; end;
finally finally
@ -707,11 +931,6 @@ begin
end; end;
end; end;
procedure TfrmLLRKList.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLLRKList.ZJStatusChange(Sender: TObject); procedure TfrmLLRKList.ZJStatusChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
@ -725,7 +944,7 @@ begin
Initimage(); Initimage();
end end
else else
ToolButton1.Click; TbLook.Click;
end; end;
procedure TfrmLLRKList.Image2Click(Sender: TObject); procedure TfrmLLRKList.Image2Click(Sender: TObject);
@ -1581,5 +1800,15 @@ begin
end; end;
end; end;
procedure TfrmLLRKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSubGrid();
end;
procedure TfrmLLRKList.CheckBox1Click(Sender: TObject);
begin
TBRafresh.Click;
end;
end. end.

2
云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm
View File

@ -1,5 +1,5 @@
object frmLLRKMXInPut: TfrmLLRKMXInPut object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 477 Left = 478
Top = 184 Top = 184
Width = 1349 Width = 1349
Height = 653 Height = 653

14
云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas
View File

@ -25,7 +25,19 @@ uses
dxSkinSharpPlus, dxSkinSpringTime, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxNavigator; dxSkinscxPCPainter, cxNavigator, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmLLRKMXInPut = class(TForm) TfrmLLRKMXInPut = class(TForm)

32
云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas
View File

@ -132,7 +132,7 @@ type
procedure SaveImage(maxnoWB: string; FIMNO: string); procedure SaveImage(maxnoWB: string; FIMNO: string);
procedure ReadINIFile10(); procedure ReadINIFile10();
function SaveData(): Boolean; function SaveData(): Boolean;
function BJData(): Boolean; function BJData(maxno: string): Boolean;
function StrFenHang(FStr: string; var FHStr: string): Boolean; function StrFenHang(FStr: string; var FHStr: string): Boolean;
{ Private declarations } { Private declarations }
public public
@ -153,9 +153,9 @@ uses
{$R *.dfm} {$R *.dfm}
function TfrmZHCPInPut.BJData(): Boolean; function TfrmZHCPInPut.BJData(maxno: string): Boolean;
var var
BJmaxno, BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string; BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string;
FXH: Integer; FXH: Integer;
FDate: TDateTime; FDate: TDateTime;
begin begin
@ -206,14 +206,13 @@ begin
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('FillerCode').Value := Trim(DCode); FieldByName('FillerCode').Value := Trim(DCode);
FieldByName('Valid').Value := 'Y'; FieldByName('Valid').Value := 'Y';
FieldByName('ZIID').Value := Trim(FMainId); FieldByName('ZIID').Value := maxno;
FieldByName('ZIName').Value := Trim(ZIName.text); FieldByName('ZIName').Value := Trim(ZIName.text);
FieldByName('ZIMF').Value := Trim(ZIMF.text); FieldByName('ZIMF').Value := Trim(ZIMF.text);
FieldByName('ZIKZ').Value := Trim(ZIKZ.text); FieldByName('ZIKZ').Value := Trim(ZIKZ.text);
FieldByName('ZICF').Value := Trim(ZICF.text); FieldByName('ZICF').Value := Trim(ZICF.text);
FieldByName('ZICL').Value := Trim(ZICL.text); FieldByName('ZICL').Value := Trim(ZICL.text);
FieldByName('ZIIDYS').Value := Trim(FMainId); FieldByName('ZIIDYS').Value := maxno;
FieldByName('ZDID').Value := Trim(BJmaxno);
FieldByName('ZCID').Value := Trim(BJmaxmxno); FieldByName('ZCID').Value := Trim(BJmaxmxno);
// FieldByName('CPFiller').Value := Trim(DName); // FieldByName('CPFiller').Value := Trim(DName);
FieldByName('LeiBie').Value := '되션湳'; FieldByName('LeiBie').Value := '되션湳';
@ -267,7 +266,8 @@ begin
sql.Add(' and isnull(A.IMNo,'''')=''코휭'' and A.Valid=''Y'' '); sql.Add(' and isnull(A.IMNo,'''')=''코휭'' and A.Valid=''Y'' ');
Open; Open;
end; end;
if adoqueryPicture.IsEmpty = False then
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
begin begin
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString); FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
Edit1.Text := Copy(FStr, 1, Length(FStr) - 4); Edit1.Text := Copy(FStr, 1, Length(FStr) - 4);
@ -299,7 +299,8 @@ begin
sql.Add(' and isnull(A.IMNo,''暠튬'')=''暠튬'' and A.Valid=''Y'' '); sql.Add(' and isnull(A.IMNo,''暠튬'')=''暠튬'' and A.Valid=''Y'' ');
Open; Open;
end; end;
if adoqueryPicture.IsEmpty = False then
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
begin begin
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString); FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
Edit2.Text := Copy(FStr, 1, Length(FStr) - 4); Edit2.Text := Copy(FStr, 1, Length(FStr) - 4);
@ -321,6 +322,7 @@ begin
end; end;
Image2.Visible := True; Image2.Visible := True;
end; end;
if TBSave.Visible = False then if TBSave.Visible = False then
begin begin
Button1.Visible := False; Button1.Visible := False;
@ -332,6 +334,13 @@ begin
ZIGY.Color := ZIID.Color; ZIGY.Color := ZIID.Color;
Note.Color := ZIID.Color; Note.Color := ZIID.Color;
end; end;
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
ZIID.Text := ''
end;
end; end;
procedure TfrmZHCPInPut.FormShow(Sender: TObject); procedure TfrmZHCPInPut.FormShow(Sender: TObject);
@ -380,6 +389,7 @@ begin
SQL.Add('select * from ZH_CP_Info where ZIId=''' + Trim(maxno) + ''''); SQL.Add('select * from ZH_CP_Info where ZIId=''' + Trim(maxno) + '''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
if Trim(FMainId) = '' then if Trim(FMainId) = '' then
@ -392,6 +402,7 @@ begin
Edit; Edit;
end; end;
FieldByName('ZIId').Value := Trim(maxno); FieldByName('ZIId').Value := Trim(maxno);
if Trim(FMainId) = '' then if Trim(FMainId) = '' then
begin begin
FieldByName('ZIIdYS').Value := Trim(maxno); FieldByName('ZIIdYS').Value := Trim(maxno);
@ -411,7 +422,7 @@ begin
FieldByName('HXNM').Value := Trim(HXNO.TxtCode); FieldByName('HXNM').Value := Trim(HXNO.TxtCode);
Post; Post;
end; end;
FMainId := Trim(maxno);
if Trim(Image1.Hint) <> '' then if Trim(Image1.Hint) <> '' then
begin begin
SaveImage(maxno, '코휭'); SaveImage(maxno, '코휭');
@ -422,7 +433,7 @@ begin
end; end;
if trim(FZIType) <> '데충죕' then if trim(FZIType) <> '데충죕' then
begin begin
if not BJData() then if not BJData(maxno) then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('괏닸嫩끽!', '瓊刻', 0); Application.MessageBox('괏닸嫩끽!', '瓊刻', 0);
@ -920,6 +931,7 @@ begin
Image22.Picture.Assign(Bitmap22); Image22.Picture.Assign(Bitmap22);
Image2.Visible := True; Image2.Visible := True;
Edit2.Text := Copy(Image2.Hint, 1, Length(Image2.Hint) - 4); Edit2.Text := Copy(Image2.Hint, 1, Length(Image2.Hint) - 4);
if CopyInt <> 99 then
ZIName.Text := Edit2.Text; ZIName.Text := Edit2.Text;
Panel1.Visible := False; Panel1.Visible := False;
end; end;

25
云翔生产管理(MYSC.dll)/U_ZHCPList.dfm
View File

@ -1,6 +1,6 @@
object frmZHCPList: TfrmZHCPList object frmZHCPList: TfrmZHCPList
Left = 238 Left = 312
Top = 137 Top = 325
Width = 1556 Width = 1556
Height = 857 Height = 857
Caption = #20844#21496#20135#21697#31649#29702 Caption = #20844#21496#20135#21697#31649#29702
@ -63,16 +63,23 @@ object frmZHCPList: TfrmZHCPList
Visible = False Visible = False
OnClick = TBAddClick OnClick = TBAddClick
end end
object ToolButton1: TToolButton object TbCopy: TToolButton
Left = 207 Left = 207
Top = 0 Top = 0
Caption = #22797#21046
ImageIndex = 25
OnClick = TbCopyClick
end
object TbLook: TToolButton
Left = 272
Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 55 ImageIndex = 55
OnClick = ToolButton1Click OnClick = TbLookClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 276 Left = 341
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -80,7 +87,7 @@ object frmZHCPList: TfrmZHCPList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object Panel3: TPanel object Panel3: TPanel
Left = 345 Left = 410
Top = 0 Top = 0
Width = 113 Width = 113
Height = 30 Height = 30
@ -104,7 +111,7 @@ object frmZHCPList: TfrmZHCPList
end end
end end
object Panel8: TPanel object Panel8: TPanel
Left = 458 Left = 523
Top = 0 Top = 0
Width = 115 Width = 115
Height = 30 Height = 30
@ -161,7 +168,7 @@ object frmZHCPList: TfrmZHCPList
end end
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 573 Left = 638
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -170,7 +177,7 @@ object frmZHCPList: TfrmZHCPList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 642 Left = 707
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

66
云翔生产管理(MYSC.dll)/U_ZHCPList.pas
View File

@ -43,7 +43,7 @@ type
DataSource1: TDataSource; DataSource1: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; TbLook: TToolButton;
Panel11: TPanel; Panel11: TPanel;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn; v1Column7: TcxGridDBColumn;
@ -143,6 +143,7 @@ type
DiBu: TEdit; DiBu: TEdit;
SpeedButton7: TSpeedButton; SpeedButton7: TSpeedButton;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
TbCopy: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -154,7 +155,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure TbLookClick(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
@ -175,6 +176,7 @@ type
procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject);
procedure TbCopyClick(Sender: TObject);
private private
canshu1: string; canshu1: string;
DQdate: TDateTime; DQdate: TDateTime;
@ -272,21 +274,21 @@ end;
procedure TfrmZHCPList.TBCloseClick(Sender: TObject); procedure TfrmZHCPList.TBCloseClick(Sender: TObject);
begin begin
if Trim(Self.Caption) = '展会产品录入(高)*' then if Trim(Self.Caption) = '公司产品录入(高)*' then
begin begin
WriteCxGrid('展会产品录入(高)', Tv1, '展会产品管理'); WriteCxGrid('公司产品录入(高)', Tv1, '公司产品管理');
end end
else if Trim(Self.Caption) = '展会产品录入*' then else if Trim(Self.Caption) = '公司产品录入*' then
begin begin
WriteCxGrid('展会产品录入', Tv1, '展会产品管理'); WriteCxGrid('公司产品录入', Tv1, '公司产品管理');
end end
else if Trim(Self.Caption) = '展会产品查询*' then else if Trim(Self.Caption) = '公司产品查询*' then
begin begin
WriteCxGrid('展会产品查询', Tv1, '展会产品管理'); WriteCxGrid('公司产品查询', Tv1, '公司产品管理');
end end
else if Trim(Self.Caption) = '挂钩库存查询*' then else if Trim(Self.Caption) = '挂钩库存查询*' then
begin begin
WriteCxGrid('挂钩库存查询', Tv1, '展会产品管理'); WriteCxGrid('挂钩库存查询', Tv1, '公司产品管理');
end; end;
Close; Close;
end; end;
@ -511,14 +513,14 @@ begin
EndDate.Date := SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
if Trim(Self.Caption) = '公司产品录入(高)*' then if Trim(Self.Caption) = '公司产品录入(高)*' then
begin begin
ReadCxGrid('展会产品录入(高)', Tv1, '展会产品管理'); ReadCxGrid('公司产品录入(高)', Tv1, '公司产品管理');
TBAdd.Visible := True; TBAdd.Visible := True;
TBEdit.Visible := True; TBEdit.Visible := True;
TBDel.Visible := True; TBDel.Visible := True;
end end
else if Trim(Self.Caption) = '公司产品录入*' then else if Trim(Self.Caption) = '公司产品录入*' then
begin begin
ReadCxGrid('展会产品录入', Tv1, '展会产品管理'); ReadCxGrid('公司产品录入', Tv1, '公司产品管理');
TBAdd.Visible := True; TBAdd.Visible := True;
TBEdit.Visible := True; TBEdit.Visible := True;
v1ZICost.Visible := False; v1ZICost.Visible := False;
@ -526,17 +528,19 @@ begin
end end
else if Trim(Self.Caption) = '公司产品查询*' then else if Trim(Self.Caption) = '公司产品查询*' then
begin begin
ReadCxGrid('展会产品查询', Tv1, '展会产品管理'); ReadCxGrid('公司产品查询', Tv1, '公司产品管理');
v1ZICost.Visible := False; v1ZICost.Visible := False;
v1ZICost.Hidden := True; v1ZICost.Hidden := True;
TbCopy.Visible := False;
end end
else if Trim(Self.Caption) = '挂钩库存查询*' then else if Trim(Self.Caption) = '挂钩库存查询*' then
begin begin
ReadCxGrid('挂钩库存查询', Tv1, '展会产品管理'); ReadCxGrid('挂钩库存查询', Tv1, '公司产品管理');
v1ZICost.Visible := False; v1ZICost.Visible := False;
v1ZICost.Hidden := True; v1ZICost.Hidden := True;
canshu1 := '库存'; canshu1 := '库存';
Panel5.Visible := False; Panel5.Visible := False;
TbCopy.Visible := False;
end; end;
//InitGrid(); //InitGrid();
end; end;
@ -719,7 +723,7 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmZHCPList.ToolButton1Click(Sender: TObject); procedure TfrmZHCPList.TbLookClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
@ -790,7 +794,7 @@ end;
procedure TfrmZHCPList.Tv1DblClick(Sender: TObject); procedure TfrmZHCPList.Tv1DblClick(Sender: TObject);
begin begin
ToolButton1.Click; TbLook.Click;
end; end;
procedure TfrmZHCPList.v1Column2PropertiesEditValueChanged(Sender: TObject); procedure TfrmZHCPList.v1Column2PropertiesEditValueChanged(Sender: TObject);
@ -1611,5 +1615,37 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
end; end;
procedure TfrmZHCPList.TbCopyClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
// if not assigned(frmZHCPInPut) then
// begin
try
frmZHCPInPut := TfrmZHCPInPut.Create(Application);
with frmZHCPInPut do
begin
PState := 1;
CopyInt := 99;
FZIType := Trim(Self.Order_Main.fieldbyname('ZIType').AsString);
FMainId := Trim(Self.Order_Main.fieldbyname('ZIID').AsString);
// Show;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmZHCPInPut.Free;
end;
// end
// else
// begin
// frmZHCPInPut.WindowState := wsMaximized;
// frmZHCPInPut.Show;
// end;
end;
end. end.