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

294
云翔生产管理(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
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); else
SCreateCDS20(ADOQueryMain, Order_Main); begin
SInitCDSData20(ADOQueryMain, Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(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.

999
云翔生产管理(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;

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

File diff suppressed because it is too large Load Diff

345
云翔生产管理(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
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); else
SCreateCDS20(ADOQueryMain, Order_Main); begin
SInitCDSData20(ADOQueryMain, Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(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
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); else
SCreateCDS20(ADOQueryMain, Order_Main); begin
SInitCDSData20(ADOQueryMain, Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(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)

34
云翔生产管理(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,7 +931,8 @@ 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);
ZIName.Text := Edit2.Text; if CopyInt <> 99 then
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.