Group_99/D7wmguihua
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

跟单做到电脑 生成其他费用

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:09:07 +08:00
parent b1bf81b5d2
commit c05d9910d9
34 changed files with 11738 additions and 647 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas
View File

@ -159,10 +159,10 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered:=False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * '); sql.Add('select *,C_CodeName as C_CodeNameM ');
sql.Add('from Contract_Main A'); sql.Add('from Contract_Main A');
sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); sql.Add('inner join Contract_sub B on B.MainID=A.mainID ');
sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' ');

4
坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas
View File

@ -220,14 +220,14 @@ begin
mNewHandle:=frmSXCRKList.Handle; mNewHandle:=frmSXCRKList.Handle;
end ; end ;
5: //Íâ¼Ó¹¤Èë¿â 5: //Íâ¼Ó¹¤Èë¿â
begin begin
if frmWJGMDList=nil then if frmWJGMDList=nil then
begin begin
frmWJGMDList:= TfrmWJGMDList.Create(application.MainForm); frmWJGMDList:= TfrmWJGMDList.Create(application.MainForm);
with frmWJGMDList do with frmWJGMDList do
begin begin
caption:=Trim(Title); caption:=Trim(Title);
FormStyle := mstyle ; FormStyle := mstyle ;
windowState := mstate ; windowState := mstate ;
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
//show; //show;

10
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKInPut: TfrmSXCKInPut object frmSXCKInPut: TfrmSXCKInPut
Left = 247 Left = 258
Top = 398 Top = 353
Width = 1382 Width = 1382
Height = 655 Height = 655
Align = alClient Align = alClient
@ -256,6 +256,12 @@ object frmSXCKInPut: TfrmSXCKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1Column1: TcxGridDBColumn
Caption = #37319#36141#35745#21010#21333#21495
DataBinding.FieldName = 'CGConNo'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

7
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas
View File

@ -60,6 +60,7 @@ type
Panel1: TPanel; Panel1: TPanel;
Label1: TLabel; Label1: TLabel;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -516,7 +517,7 @@ end;
procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject); procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('<EFBFBD>窟흙욋되션', Tv1, '<27>窟꾑욋'); WriteCxGrid('툰꼈흙욋되션', Tv1, '툰꼈꾑욋');
Close; Close;
end; end;
@ -527,7 +528,7 @@ begin
ReadCxGrid('Å÷²¼Èë¿âµÇ¼Ç', Tv1, 'Å÷²¼²Ö¿â'); ReadCxGrid('Å÷²¼Èë¿âµÇ¼Ç', Tv1, 'Å÷²¼²Ö¿â');
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)');
@ -999,7 +1000,7 @@ begin
frmClothContractList_CG_help.Order_Main.DisableControls; frmClothContractList_CG_help.Order_Main.DisableControls;
with frmClothContractList_CG_help.Order_Main do with frmClothContractList_CG_help.Order_Main do
begin begin
First; // First;
// while frmClothContractList_CG_help.Order_Main.Locate('SSel', True, []) do // while frmClothContractList_CG_help.Order_Main.Locate('SSel', True, []) do
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do

8
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKKCSelList: TfrmSXCKKCSelList object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 34 Left = 306
Top = 125 Top = 231
Width = 1181 Width = 1181
Height = 511 Height = 511
Align = alClient Align = alClient
@ -260,12 +260,12 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1165
Height = 380 Height = 379
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <

17
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas
View File

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
cxCalendar, cxButtonEdit, cxTextEdit; cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmSXCKKCSelList = class(TForm) TfrmSXCKKCSelList = class(TForm)

10
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKNewList: TfrmSXCKNewList object frmSXCKNewList: TfrmSXCKNewList
Left = 14 Left = 355
Top = 141 Top = 417
Width = 1335 Width = 1335
Height = 511 Height = 511
Caption = #22383#24067#20837#24211#21015#34920 Caption = #22383#24067#20837#24211#21015#34920
@ -568,6 +568,12 @@ object frmSXCKNewList: TfrmSXCKNewList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1Column5: TcxGridDBColumn
Caption = #37319#36141#35745#21010#21333#21495
DataBinding.FieldName = 'CGConNo'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas
View File

@ -102,6 +102,7 @@ type
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
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,7 +330,7 @@ begin
begin begin
Self.InitGrid(); Self.InitGrid();
end; end;
end; end;
finally finally
frmSXCKInPut.Free; frmSXCKInPut.Free;
end; end;

695
桂华管理系统/U_CPKCzhl.dfm Normal file
View File

@ -0,0 +1,695 @@
object frmCPKCzhl: TfrmCPKCzhl
Left = 306
Top = 350
Width = 1220
Height = 592
Caption = #25104#21697#24211#23384#36716#21270#29575
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1204
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TBFindClick
end
object TBexcel: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBexcelClick
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1204
Height = 45
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 43
Top = 15
Width = 26
Height = 12
Caption = #26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 314
Top = 15
Width = 26
Height = 12
Caption = #21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 495
Top = 55
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 164
Top = 16
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 490
Top = 15
Width = 26
Height = 12
Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 642
Top = 15
Width = 52
Height = 12
Caption = #39044#35686#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 11
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 172
Top = 11
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object C_CodeName: TEdit
Tag = 2
Left = 343
Top = 11
Width = 100
Height = 20
TabOrder = 2
OnChange = C_CodeNameChange
end
object ConNoM: TEdit
Tag = 2
Left = 536
Top = 51
Width = 77
Height = 20
TabOrder = 3
end
object P_color: TEdit
Tag = 2
Left = 519
Top = 11
Width = 100
Height = 20
TabOrder = 4
OnChange = C_CodeNameChange
end
object YJPS: TEdit
Left = 698
Top = 11
Width = 100
Height = 20
TabOrder = 5
Visible = False
OnKeyPress = YJPSKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 77
Width = 897
Height = 476
Align = alLeft
TabOrder = 2
object Tv1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_Main
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column2
end
item
Kind = skSum
Column = v1Column3
end
item
Kind = skSum
Column = v1Column4
end
item
Kind = skSum
Column = v1Column5
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
Column = v1Column9
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
Column = v1Column11
end
item
Kind = skSum
Column = v1Column12
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
Column = v1Column15
end
item
Kind = skSum
Column = v1Column16
end
item
Kind = skSum
Column = v1Column17
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnMoving = False
OptionsCustomize.BandHiding = True
OptionsCustomize.BandMoving = False
OptionsCustomize.BandSizing = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.cxStyle_fontBlack
Styles.BandHeader = DataLink_TradeManage.cxStyle_fontBlack
Bands = <
item
Caption = #22383#24067
end
item
Caption = #25104#21697
end>
object v1Column1: TcxGridDBBandedColumn
Caption = #25104#21697#36135#21495
DataBinding.FieldName = 'CPhh'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column18: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column2: TcxGridDBBandedColumn
Caption = #24211#23384#19978#38480#39044#35686
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
Position.BandIndex = 1
Position.ColIndex = 7
Position.RowIndex = 0
end
object v1Column3: TcxGridDBBandedColumn
Caption = #24211#23384#19979#38480#39044#35686
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
Position.BandIndex = 1
Position.ColIndex = 8
Position.RowIndex = 0
end
object v1Column4: TcxGridDBBandedColumn
Caption = #37329#39069
DataBinding.FieldName = 'J_money'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 1
Position.ColIndex = 9
Position.RowIndex = 0
end
object v1Column5: TcxGridDBBandedColumn
Caption = #21305#25968
DataBinding.FieldName = 'G_ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column6: TcxGridDBBandedColumn
Caption = #25968#37327
DataBinding.FieldName = 'G_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column7: TcxGridDBBandedColumn
Caption = #37329#39069
DataBinding.FieldName = 'G_money'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column8: TcxGridDBBandedColumn
Caption = #21305#25968
DataBinding.FieldName = 'H_ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column9: TcxGridDBBandedColumn
Caption = #25968#37327
DataBinding.FieldName = 'H_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column10: TcxGridDBBandedColumn
Caption = #37329#39069
DataBinding.FieldName = 'H_Money'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object Tv1Column3: TcxGridDBBandedColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'ZdyName'
Width = 53
Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
end
object v1Column11: TcxGridDBBandedColumn
Caption = #22383#24067#20837#24211#21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object v1Column12: TcxGridDBBandedColumn
Caption = #22383#24067#20837#24211#25968#37327
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
Position.BandIndex = 0
Position.ColIndex = 2
Position.RowIndex = 0
end
object v1Column14: TcxGridDBBandedColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'KC_RollNum'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
Position.BandIndex = 1
Position.ColIndex = 10
Position.RowIndex = 0
end
object v1Column15: TcxGridDBBandedColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'KC_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 1
Position.ColIndex = 11
Position.RowIndex = 0
end
object v1Column16: TcxGridDBBandedColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'G_KCRollNum'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object v1Column17: TcxGridDBBandedColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'G_KCQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object Tv1Column1: TcxGridDBBandedColumn
Caption = #25104#21697#36716#21270#29575
DataBinding.FieldName = 'CPZHL'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.ImmediatePost = True
Properties.Items.Strings = (
#26159
#21542)
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
Position.BandIndex = 1
Position.ColIndex = 12
Position.RowIndex = 0
end
object Tv1Column2: TcxGridDBBandedColumn
DataBinding.FieldName = 'YJstatus'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 40
Position.BandIndex = 1
Position.ColIndex = 13
Position.RowIndex = 0
end
object Tv1Column4: TcxGridDBBandedColumn
Caption = #25104#21697#20837#24211#25968#37327
DataBinding.FieldName = 'rk_Qty'
Position.BandIndex = 1
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column5: TcxGridDBBandedColumn
Caption = #20986#24211#37329#39069
Width = 48
Position.BandIndex = 1
Position.ColIndex = 6
Position.RowIndex = 0
end
object Tv1Column6: TcxGridDBBandedColumn
Caption = #25104#21697#20986#24211#25968#37327
DataBinding.FieldName = 'ck_RollNum'
Position.BandIndex = 1
Position.ColIndex = 5
Position.RowIndex = 0
end
object Tv1Column7: TcxGridDBBandedColumn
Caption = #25104#21697#20986#24211#21305#25968
DataBinding.FieldName = 'ck_RollNum'
Position.BandIndex = 1
Position.ColIndex = 4
Position.RowIndex = 0
end
object Tv1Column8: TcxGridDBBandedColumn
Caption = #25104#21697#20837#24211#21305#25968
DataBinding.FieldName = 'rk_RollNum'
Position.BandIndex = 1
Position.ColIndex = 3
Position.RowIndex = 0
end
object Tv1Column9: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Width = 49
Position.BandIndex = 1
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column10: TcxGridDBBandedColumn
Caption = #25104#21697#36135#21495
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Width = 60
Position.BandIndex = 1
Position.ColIndex = 0
Position.RowIndex = 0
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object GroupBox1: TGroupBox
Left = 904
Top = 77
Width = 300
Height = 476
Align = alRight
Caption = #23458#25143#38144#21806#20998#26512
TabOrder = 3
object cxGrid2: TcxGrid
Left = 2
Top = 14
Width = 296
Height = 460
Align = alClient
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_sub
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = V2Column3
end
item
Kind = skSum
Column = V2Column4
end
item
Kind = skSum
Column = V2Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object V2Column1: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'factoryName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object V2Column2: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'CRTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object V2Column3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 39
end
object V2Column4: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object V2Column5: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 48
end
object V2Column6: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'money'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
end
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 300
Top = 172
end
object DS_Main: TDataSource
DataSet = CDS_main
Left = 400
Top = 160
end
object CDS_main: TClientDataSet
Aggregates = <>
Params = <>
Left = 452
Top = 168
end
object ADO_Sub: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 776
Top = 44
end
object DS_sub: TDataSource
DataSet = ADO_Sub
Left = 700
Top = 160
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 84
Top = 188
end
end

277
桂华管理系统/U_CPKCzhl.pas Normal file
View File

@ -0,0 +1,277 @@
unit U_CPKCzhl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, DB, ADODB, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
cxGridDBBandedTableView, cxControls, cxGridCustomView, cxClasses, cxGridLevel,
cxGrid, cxGridDBTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter, cxDropDownEdit;
type
TfrmCPKCzhl = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label9: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
C_CodeName: TEdit;
ConNoM: TEdit;
Label2: TLabel;
ADOQueryMain: TADOQuery;
DS_Main: TDataSource;
CDS_main: TClientDataSet;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBBandedTableView;
v1Column1: TcxGridDBBandedColumn;
v1Column2: TcxGridDBBandedColumn;
v1Column3: TcxGridDBBandedColumn;
v1Column4: TcxGridDBBandedColumn;
v1Column5: TcxGridDBBandedColumn;
v1Column6: TcxGridDBBandedColumn;
v1Column7: TcxGridDBBandedColumn;
v1Column8: TcxGridDBBandedColumn;
v1Column9: TcxGridDBBandedColumn;
v1Column10: TcxGridDBBandedColumn;
v1Column11: TcxGridDBBandedColumn;
v1Column12: TcxGridDBBandedColumn;
v1Column14: TcxGridDBBandedColumn;
v1Column15: TcxGridDBBandedColumn;
v1Column16: TcxGridDBBandedColumn;
v1Column17: TcxGridDBBandedColumn;
v1Column18: TcxGridDBBandedColumn;
P_color: TEdit;
Label3: TLabel;
TBexcel: TToolButton;
GroupBox1: TGroupBox;
TV2: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
V2Column1: TcxGridDBColumn;
V2Column2: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
V2Column5: TcxGridDBColumn;
V2Column6: TcxGridDBColumn;
ADO_Sub: TADOQuery;
DS_sub: TDataSource;
Tv1Column1: TcxGridDBBandedColumn;
Label5: TLabel;
YJPS: TEdit;
Tv1Column2: TcxGridDBBandedColumn;
ADOQuery1: TADOQuery;
Tv1Column3: TcxGridDBBandedColumn;
Tv1Column4: TcxGridDBBandedColumn;
Tv1Column5: TcxGridDBBandedColumn;
Tv1Column6: TcxGridDBBandedColumn;
Tv1Column7: TcxGridDBBandedColumn;
Tv1Column8: TcxGridDBBandedColumn;
Tv1Column9: TcxGridDBBandedColumn;
Tv1Column10: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure C_CodeNameChange(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBexcelClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure YJPSKeyPress(Sender: TObject; var Key: Char);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
procedure initSub();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
var
frmCPKCzhl: TfrmCPKCzhl;
implementation
uses
U_DataLink, U_Fun10;
{$R *.dfm}
procedure TfrmCPKCzhl.Initsub();
begin
ADO_Sub.Close;
if CDS_Main.IsEmpty then
exit;
with ADO_Sub do
begin
close;
sql.Clear;
sql.Add('select * from YF_money_CR ');
sql.Add('where CRTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
sql.Add('and CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
sql.Add('and P_CodeName=' + quotedstr(trim(CDS_Main.fieldbyName('C_CodeName').AsString)));
sql.Add('and P_Color=' + quotedstr(trim(CDS_Main.fieldbyName('P_Color').AsString)));
sql.Add('and SYRName=''' + trim(canshu1) + '''');
sql.Add('and CRType=''应收款登记'' ');
sql.Add('order by CRTime desc ');
// ShowMessage(sql.text);
open;
end;
end;
procedure TfrmCPKCzhl.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
sql.Clear;
sql.Add(' exec P_Get_PBCP_ZHL ');
SQL.Add(' @begdate=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + '''');
SQL.Add(',@enddate=''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + '''');
// ShowMessage(SQL.text);
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
TBfind.Click;
Initsub();
end;
procedure TfrmCPKCzhl.FormDestroy(Sender: TObject);
begin
frmCPKCzhl := nil;
end;
procedure TfrmCPKCzhl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;
procedure TfrmCPKCzhl.FormCreate(Sender: TObject);
begin
enddate.DateTime := now();
begdate.DateTime := enddate.DateTime - 30;
cxGrid1.Align := alclient;
canshu1 := trim(DParameters1);
YJPS.Text := '0';
end;
procedure TfrmCPKCzhl.TBCloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmCPKCzhl.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
end;
procedure TfrmCPKCzhl.C_CodeNameChange(Sender: TObject);
begin
TBfind.Click;
end;
procedure TfrmCPKCzhl.TBRafreshClick(Sender: TObject);
begin
initGrid();
end;
procedure TfrmCPKCzhl.FormShow(Sender: TObject);
begin
// if trim(canshu1) = '桂华纺织' then
// begin
// tv1.Bands[2].Visible := false;
// tv1.Bands[3].Visible := false;
// tv1.Bands[4].Visible := false;
// end;
// if trim(canshu1) = '尚美特' then
// begin
// tv1.Bands[1].Visible := false;
// tv1.Bands[3].Visible := false;
// tv1.Bands[4].Visible := false;
// end;
// if trim(canshu1) = '金鼎丰门市部' then
// begin
// tv1.Bands[1].Visible := false;
// tv1.Bands[2].Visible := false;
// tv1.Bands[4].Visible := false;
// end;
end;
procedure TfrmCPKCzhl.TBexcelClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(self.Caption, cxGrid1);
end;
procedure TfrmCPKCzhl.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
Initsub();
end;
procedure TfrmCPKCzhl.YJPSKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmCPKCzhl.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('YJstatus').Index] = '1' then
ACanvas.Brush.Color := clRed;
end;
procedure TfrmCPKCzhl.Tv1Column1PropertiesEditValueChanged(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('UPdate KH_Zdy_Attachment ');
sql.Add(' Set ISYJ=''' + Trim(CDS_Main.fieldbyname('ISYJ').AsString) + ''' ');
SQL.Add(' where ZDYName=''' + Trim(CDS_Main.fieldbyname('P_CodeName').AsString) + ''' ');
SQL.Add(' and DEFstr3=''' + Trim(CDS_Main.fieldbyname('P_color').AsString) + ''' ');
// ShowMessage(sql.text);
ExecSQL;
end;
end;
end.

20
桂华管理系统/U_ClothContractInPut.dfm
View File

@ -598,6 +598,12 @@ object frmClothContractInPut: TfrmClothContractInPut
DataBinding.FieldName = 'kctzsl' DataBinding.FieldName = 'kctzsl'
Width = 90 Width = 90
end end
object Tv1Column4: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -657,4 +663,18 @@ object frmClothContractInPut: TfrmClothContractInPut
Left = 528 Left = 528
Top = 200 Top = 200
end end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 240
Top = 277
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 304
Top = 277
end
end end

937
桂华管理系统/U_ClothContractInPut.pas
View File

File diff suppressed because it is too large Load Diff

818
桂华管理系统/U_ClothContractList_CGSel.dfm Normal file
View File

@ -0,0 +1,818 @@
object frmClothContractList_CGSel: TfrmClothContractList_CGSel
Left = 379
Top = 295
Width = 1217
Height = 650
Caption = #22383#24067#37319#36141#35745#21010#20449#24687
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1201
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 3
Visible = False
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 54
Visible = False
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
Visible = False
OnClick = TBDelClick
end
object tchk: TToolButton
Left = 315
Top = 0
Caption = #30830#35748#23436#25104
ImageIndex = 41
Visible = False
OnClick = tchkClick
end
object tNochk: TToolButton
Left = 398
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 56
Visible = False
OnClick = tNochkClick
end
object ToolButton1: TToolButton
Left = 485
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 58
OnClick = ToolButton1Click
end
object TBExport: TToolButton
Left = 548
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBPrint: TToolButton
Left = 611
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = TBPrintClick
end
object TBClose: TToolButton
Left = 674
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1201
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #30331#35760#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 267
Top = 22
Width = 78
Height = 12
Caption = #37319#36141#35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 440
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 592
Top = 22
Width = 26
Height = 12
Caption = #35268#26684
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 720
Top = 22
Width = 26
Height = 12
Caption = #20379#26041
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 167
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 349
Top = 18
Width = 81
Height = 20
TabOrder = 2
OnChange = ConNoChange
end
object C_CodeName: TEdit
Tag = 2
Left = 493
Top = 18
Width = 83
Height = 20
TabOrder = 3
OnChange = ConNoChange
end
object C_Spec: TEdit
Tag = 2
Left = 624
Top = 18
Width = 83
Height = 20
TabOrder = 4
OnChange = ConNoChange
end
object FactoryNoName: TEdit
Tag = 2
Left = 756
Top = 18
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 107
Width = 1201
Height = 497
Align = alTop
BorderStyle = bsNone
TabOrder = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1201
Height = 497
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1PRTQty
end
item
Kind = skSum
Column = v1Qty1
end
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
Column = v1Column9
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
Column = v1Column11
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.Default
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object Tv1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Width = 55
end
object v1OrderNo: TcxGridDBColumn
Caption = #37319#36141#35745#21010#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 98
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #21040#36135#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column5: TcxGridDBColumn
Caption = #31614#35746#26085#26399
DataBinding.FieldName = 'QDTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 70
end
object v1FactoryNo1Name: TcxGridDBColumn
Caption = #20379#26041
DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 108
end
object v1Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 58
end
object v1PRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 66
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 61
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 83
end
object v1Qty1: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 46
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 58
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'C_Unit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 47
end
object v1PRTUnit: TcxGridDBColumn
Caption = #35745#20215#21333#20301
DataBinding.FieldName = 'PriceUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 61
end
object v1PRTQty: TcxGridDBColumn
Caption = #24635#20215
DataBinding.FieldName = 'Money'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 58
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 68
end
object v1Column3: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'LXPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column6: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'LXTel'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column7: TcxGridDBColumn
Caption = #36865#36135#22320#22336
DataBinding.FieldName = 'QDPalce'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 61
end
object v1Column8: TcxGridDBColumn
Caption = #21040#36135#21305#25968
DataBinding.FieldName = 'D_Ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 66
end
object v1Column9: TcxGridDBColumn
Caption = #21040#36135#25968#37327
DataBinding.FieldName = 'D_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 70
end
object v1Column10: TcxGridDBColumn
Caption = #26410#21040#36135#21305#25968
DataBinding.FieldName = 'N_PS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia
Width = 71
end
object v1Column11: TcxGridDBColumn
Caption = #26410#21040#36135#25968#37327
DataBinding.FieldName = 'N_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia
Width = 94
end
object v1Column12: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#26102#38388
DataBinding.FieldName = 'Filltime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column14: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column15: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'editTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column16: TcxGridDBColumn
DataBinding.FieldName = 'IsZt'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 85
Width = 1201
Height = 22
Align = alTop
TabOrder = 3
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23436#25104
#24050#23436#25104
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1201
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 1096
Top = 8
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1112
Top = 240
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 880
Top = 176
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 1112
Top = 216
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 920
Top = 224
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 352
Top = 192
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 400
Top = 192
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 416
Top = 248
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 680
Top = 32
end
object cxStyleRepository1: TcxStyleRepository
Left = 69
Top = 130
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor]
Color = clInactiveCaption
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 4707838
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clOlive
end
end
end

717
桂华管理系统/U_ClothContractList_CGSel.pas Normal file
View File

@ -0,0 +1,717 @@
unit U_ClothContractList_CGSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator, dxBarBuiltInMenu, cxCheckBox;
type
TfrmClothContractList_CGSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
Label4: TLabel;
C_Spec: TEdit;
ScrollBox1: TScrollBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1FactoryNo1Name: TcxGridDBColumn;
v1PRTSpec: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1PRTUnit: TcxGridDBColumn;
v1PRTQty: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ClientDataSet3: TClientDataSet;
DataSource2: TDataSource;
DataSource3: TDataSource;
ClientDataSet2: TClientDataSet;
v1Qty1: TcxGridDBColumn;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
CDS_PRT: TClientDataSet;
Label6: TLabel;
FactoryNoName: TEdit;
tchk: TToolButton;
tNochk: TToolButton;
cxTabControl1: TcxTabControl;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
ToolButton1: TToolButton;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure v2Column3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxTabControl1Change(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure tNochkClick(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private
FInt,PFInt:Integer;
procedure InitGrid();
procedure InitForm();
function DelData():Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
frmClothContractList_CGSel: TfrmClothContractList_CGSel;
implementation
uses
U_DataLink,U_ClothContractInPut_CG,U_Fun,U_ProductOrderList,U_ZDYHelp;
{$R *.dfm}
procedure TfrmClothContractList_CGSel.FormDestroy(Sender: TObject);
begin
frmClothContractList_CGSel:=nil;
end;
procedure TfrmClothContractList_CGSel.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmClothContractList_CGSel.FormCreate(Sender: TObject);
begin
ScrollBox1.Align:=alClient;
end;
procedure TfrmClothContractList_CGSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(self.Caption,Tv1,'指示单管理1');
end;
procedure TfrmClothContractList_CGSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('exec P_Get_Contract');
sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' ');
sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' ');
sql.Add(',@conType=''坯布采购计划'' ');
sql.Add(',@status='''+inttostr(cxTabControl1.TabIndex)+''' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothContractList_CGSel.InitForm();
begin
ReadCxGrid(self.Caption,Tv1,'指示单管理1');
BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmClothContractList_CGSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
end;
procedure TfrmClothContractList_CGSel.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
try
frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application);
with frmClothContractInPut_CG do
begin
PState:=1;
FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmClothContractInPut_CG.Free;
TBRafresh.Click;
end;
end;
procedure TfrmClothContractList_CGSel.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Contract_main ');
sql.Add('where fromMainID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
sql.Add('and conType=''坯布到货'' ');
open;
end;
if not ADOQueryCmd.IsEmpty then
begin
Application.MessageBox('已到货，不能删除采购计划！','提示',0);
Exit
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
if trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit;
if DelData() then
begin
Order_Main.Delete;
end;
end;
function TfrmClothContractList_CGSel.DelData():Boolean;
begin
try
Result:=false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
// sql.Add(' where CRID='+CRID);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('数据删除异常！','提示',0);
end;
end;
procedure TfrmClothContractList_CGSel.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
TcxGridToExcel('坯布合同订单列表',cxGrid1);
end;
procedure TfrmClothContractList_CGSel.TBPrintClick(Sender: TObject);
var
fPrintFile,FConNoM:string;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\坯布采购单.rmf' ;
with ADOQueryTemp do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) ');
sql.Add('from Contract_Main A');
sql.Add('inner join Contract_sub B on B.MainID=A.mainID ');
sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' ');
sql.Add('and A.FillTime< '''+Trim(FormatDateTime('yyyy-MM-dd',endDate.DateTime+1))+''' ');
sql.Add('and A.mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT);
if FileExists(fPrintFile) then
begin
RMVariables['dtxz']:=formatdateTime('yyyy-MM-dd',Now);
RMVariables['zdr']:=Trim(dName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\坯布采购单.rmf'),'提示',0);
end;
end;
procedure TfrmClothContractList_CGSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothContractList_CGSel.TBAddClick(Sender: TObject);
begin
try
frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application);
with frmClothContractInPut_CG do
begin
PState:=0;
FMainId:='';
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmClothContractInPut_CG.Free;
TBRafresh.Click;
end;
end;
procedure TfrmClothContractList_CGSel.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
end;
procedure TfrmClothContractList_CGSel.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmClothContractList_CGSel.Tv2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt:=2;
end;
procedure TfrmClothContractList_CGSel.Tv1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt:=1;
end;
procedure TfrmClothContractList_CGSel.ToolButton5Click(Sender: TObject);
var
maxno:string;
begin
if ClientDataSet3.IsEmpty then Exit;
if ClientDataSet2.IsEmpty then Exit;
if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then
begin
Application.MessageBox('到货数量未确定！','提示',0);
Exit;
end;
if ClientDataSet3.Locate('OrderNo',null,[]) then
begin
Application.MessageBox('指定订单编号不能为空！','提示',0);
Exit;
end;
BegDate.SetFocus;
try
ADOQueryCmd.Connection.BeginTrans;
//保存去向表
with ClientDataSet3 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then
begin
if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取去向流水号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then
Append
else
Edit;
FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString);
FieldByName('ToId').Value:=Trim(maxno);
FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString);
FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value;
FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value;
FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value;
if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then
FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value
else
FieldByName('TPQty').Value:=0;
if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then
FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value
else
FieldByName('Qty1').Value:=0;
if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then
FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value
else
FieldByName('Qty2').Value:=0;
if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then
FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value
else
FieldByName('Qty3').Value:=0;
Post;
end;
with ClientDataSet3 do
begin
Edit;
FieldByName('ToId').Value:=Trim(maxno);
Post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('操作成功！','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('操作异常！','提示',0);
end;
end;
procedure TfrmClothContractList_CGSel.ToolButton3Click(Sender: TObject);
begin
if FInt=2 then
begin
if ClientDataSet2.IsEmpty then Exit;
if ClientDataSet3.IsEmpty=false then
begin
Application.MessageBox('已产生坯布领料数据，不能删除到坯记录！','提示',0);
Exit;
end;
if Trim(ClientDataSet2.fieldbyname('MxId').AsString)<>'' then
begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+'''');
ExecSQL;
end;
ClientDataSet2.Delete;
end else
if FInt=3 then
begin
if ClientDataSet3.IsEmpty then Exit;
if Trim(ClientDataSet3.fieldbyname('ToId').AsString)<>'' then
begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+'''');
ExecSQL;
end;
ClientDataSet3.Delete;
with ClientDataSet2 do
begin
Edit;
if ClientDataSet3.IsEmpty=False then
// FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]
else
FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value;
Post;
end;
end;
end;
procedure TfrmClothContractList_CGSel.v2Column3PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='RKPlace';
flagname:='入库地点';
if ShowModal=1 then
begin
with ClientDataSet2 do
begin
Edit;
FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothContractList_CGSel.cxTabControl1Change(Sender: TObject);
begin
TBEdit.Visible:=false;
TBDel.Visible:=false;
Tchk.Visible:=false;
TNochk.Visible:=false;
if cxTabControl1.TabIndex=0 then
begin
TBEdit.Visible:=true;
TBDel.Visible:=true;
Tchk.Visible:=true;
end;
if cxTabControl1.TabIndex=1 then
begin
TNochk.Visible:=true;
end;
InitGrid();
end;
procedure TfrmClothContractList_CGSel.tchkClick(Sender: TObject);
begin
IF Order_Main.IsEmpty then exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''1'' ');
sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
InitGrid();
except
application.MessageBox('操作失败！','提示信息',0);
end;
end;
procedure TfrmClothContractList_CGSel.tNochkClick(Sender: TObject);
begin
IF Order_Main.IsEmpty then exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''0'' ');
sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
InitGrid();
except
application.MessageBox('操作失败！','提示信息',0);
end;
end;
procedure TfrmClothContractList_CGSel.Tv1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if Order_Main.IsEmpty then Exit;
if Order_Main.Locate('SSel',True,[])=False then
begin
Application.MessageBox('没有选择数据!','提示',0);
Exit;
end;
ModalResult:=1;
end;
procedure TfrmClothContractList_CGSel.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
try
frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application);
with frmClothContractInPut_CG do
begin
PState:=1;
tbsave.Enabled:=false;
FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal=1 then
begin
end;
end;
finally
frmClothContractInPut_CG.Free;
end;
end;
procedure TfrmClothContractList_CGSel.Tv1CustomDrawIndicatorCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
FValue :=IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);
InflateRect(FBounds, -1, -1) ;
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
procedure TfrmClothContractList_CGSel.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index]=0 then
begin
ACanvas.Brush.Color:=clSkyBlue;
end;
end;
end.

681
桂华管理系统/U_ClothContractList_KCKL.dfm Normal file
View File

@ -0,0 +1,681 @@
object frmClothContractList_KCKL: TfrmClothContractList_KCKL
Left = 380
Top = 199
Width = 1382
Height = 634
Caption = #22383#24067#24211#23384#24211#40836
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1366
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26597#30475#26126#32454
ImageIndex = 57
Visible = False
OnClick = ToolButton1Click
end
object TBExport: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1366
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #21040#36135#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 275
Top = 86
Width = 52
Height = 12
Caption = #20219#21153#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 420
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 576
Top = 86
Width = 26
Height = 12
Caption = #35268#26684
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 708
Top = 86
Width = 26
Height = 12
Caption = #20379#26041
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 284
Top = 22
Width = 39
Height = 12
Caption = #21152#24037#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 167
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 333
Top = 82
Width = 81
Height = 20
TabOrder = 2
OnChange = ConNoChange
end
object C_CodeName: TEdit
Tag = 2
Left = 473
Top = 18
Width = 83
Height = 20
TabOrder = 3
OnChange = ConNoChange
end
object C_Spec: TEdit
Tag = 2
Left = 604
Top = 82
Width = 83
Height = 20
TabOrder = 4
OnChange = ConNoChange
end
object FactoryNoName: TEdit
Tag = 2
Left = 736
Top = 82
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
end
object JHPlace: TEdit
Tag = 2
Left = 324
Top = 18
Width = 80
Height = 20
TabOrder = 6
OnChange = ConNoChange
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 85
Width = 1366
Height = 497
Align = alTop
BorderStyle = bsNone
TabOrder = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1366
Height = 497
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column13
end
item
Kind = skSum
Column = v1Column12
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Qty1
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.Default
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object v1Column15: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'JHPlace'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column2: TcxGridDBColumn
Caption = #22383#24067
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 58
end
object v1Qty1: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 68
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 58
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'C_Unit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 47
end
object v1Column13: TcxGridDBColumn
Caption = #20986#24211#21305#25968
DataBinding.FieldName = 'H_PS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 70
end
object v1Column12: TcxGridDBColumn
Caption = #20986#24211#25968#37327
DataBinding.FieldName = 'H_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 68
end
object v1Column18: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'N_PS'
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia
Width = 60
end
object v1Column19: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'N_Qty'
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia
Width = 71
end
object v1Column11: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'CPhh'
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle_fontclGreen
Styles.Footer = cxStyle_fontclGreen
Styles.Header = cxStyle_fontclGreen
Width = 91
end
object Tv1Column1: TcxGridDBColumn
DataBinding.FieldName = 'subid'
Visible = False
Width = 60
end
object Tv1Column2: TcxGridDBColumn
Caption = #22383#24067#24211#40836
DataBinding.FieldName = 'PbKCday'
Width = 60
end
object Tv1Column3: TcxGridDBColumn
Caption = #25104#21697#24211#40836
DataBinding.FieldName = 'CPCPday'
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1112
Top = 240
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 880
Top = 176
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 1112
Top = 216
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 920
Top = 224
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 352
Top = 192
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 400
Top = 192
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 416
Top = 248
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 680
Top = 32
end
object cxStyleRepository1: TcxStyleRepository
Left = 305
Top = 310
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor]
Color = clInactiveCaption
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 4707838
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clOlive
end
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 804
Top = 233
end
end

265
桂华管理系统/U_ClothContractList_KCKL.pas Normal file
View File

@ -0,0 +1,265 @@
unit U_ClothContractList_KCKL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type
TfrmClothContractList_KCKL = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Label4: TLabel;
C_Spec: TEdit;
ScrollBox1: TScrollBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ClientDataSet3: TClientDataSet;
DataSource2: TDataSource;
DataSource3: TDataSource;
ClientDataSet2: TClientDataSet;
v1Qty1: TcxGridDBColumn;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
CDS_PRT: TClientDataSet;
Label6: TLabel;
FactoryNoName: TEdit;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Label7: TLabel;
JHPlace: TEdit;
Order_Main: TClientDataSet;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ToolButton1Click(Sender: TObject);
private
FInt, PFInt: Integer;
// Fcphh,FfactoryName:string;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
{ Private declarations }
public
Fcphh, FfactoryName: string;
{ Public declarations }
end;
var
frmClothContractList_KCKL: TfrmClothContractList_KCKL;
implementation
uses
U_DataLink, U_ClothContractInPut, U_ClothContractList_SJDCK, U_Fun,
U_ProductOrderList, U_ZDYHelp;
{$R *.dfm}
procedure TfrmClothContractList_KCKL.FormDestroy(Sender: TObject);
begin
frmClothContractList_KCKL := nil;
end;
procedure TfrmClothContractList_KCKL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmClothContractList_KCKL.FormCreate(Sender: TObject);
begin
ScrollBox1.Align := alClient;
end;
procedure TfrmClothContractList_KCKL.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(self.Caption, Tv1, '寧刻데밗잿');
end;
procedure TfrmClothContractList_KCKL.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
Filtered := False;
sql.Add('exec P_Get_PBCP_ZZrate');
sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothContractList_KCKL.InitForm();
begin
ReadCxGrid(self.Caption, Tv1, '寧刻데밗잿');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmClothContractList_KCKL.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
function TfrmClothContractList_KCKL.DelData(): Boolean;
begin
end;
procedure TfrmClothContractList_KCKL.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('툰꼈북谿땐데죗깊', cxGrid1);
end;
procedure TfrmClothContractList_KCKL.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothContractList_KCKL.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothContractList_KCKL.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmClothContractList_KCKL.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
InflateRect(FBounds, -1, -1);
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
procedure TfrmClothContractList_KCKL.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmClothContractList_SJDCK := TfrmClothContractList_SJDCK.Create(Application);
with frmClothContractList_SJDCK do
begin
// PState:=1;
// Fcphh := Trim(Self.Order_Main.fieldbyname('CPHH').AsString);
// FfactoryName := Trim(Self.Order_Main.fieldbyname('JHPlace').AsString);
Fsubid := Trim(Self.Order_Main.fieldbyname('subid').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmClothContractList_SJDCK.Free;
end;
end;
end.

14
桂华管理系统/U_ClothContractList_TP.pas
View File

@ -186,29 +186,29 @@ begin
end; end;
procedure TfrmClothContractList_Tp.InitGrid(); procedure TfrmClothContractList_Tp.InitGrid();
var var
strwhere: string; strwhere: string;
begin begin
strwhere := ''; strwhere := '';
if cxTabControl1.TabIndex < 2 then if cxTabControl1.TabIndex < 2 then
// strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; // strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + '''''';
strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + '''''';
if (trim(fDParameters1) = '²éѯ') then if (trim(fDParameters1) = '²éѯ') then
strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' '; strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' ';
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec P_Get_Contract_TG'); sql.Add('exec P_Get_Contract_TG');
sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' ');
// sql.Add(',@conType= '''+TconType+''' '); // sql.Add(',@conType= '''+TconType+''' ');
sql.Add(',@status=''' +strwhere + ''' '); sql.Add(',@status=''' + strwhere + ''' ');
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);

862
桂华管理系统/U_ClothContractList_TpSel.dfm Normal file
View File

@ -0,0 +1,862 @@
object frmClothContractList_TpSel: TfrmClothContractList_TpSel
Left = 265
Top = 182
Width = 1222
Height = 663
Caption = #22383#24067#25237#22383#20449#24687
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1206
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 3
Visible = False
OnClick = TBAddClick
end
object ToolButton2: TToolButton
Left = 189
Top = 0
Caption = #22238#20462#26032#22686
ImageIndex = 57
Visible = False
OnClick = ToolButton2Click
end
object TBEdit: TToolButton
Left = 272
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 54
Visible = False
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 335
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
Visible = False
OnClick = TBDelClick
end
object Tchk: TToolButton
Left = 398
Top = 0
AutoSize = True
Caption = #30830#35748#23436#25104
ImageIndex = 41
Visible = False
OnClick = TchkClick
end
object TNochk: TToolButton
Left = 485
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 48
Visible = False
OnClick = TNochkClick
end
object ToolButton1: TToolButton
Left = 572
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 58
OnClick = ToolButton1Click
end
object TBExport: TToolButton
Left = 635
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBPrint: TToolButton
Left = 698
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = TBPrintClick
end
object TBClose: TToolButton
Left = 761
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1206
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #30331#35760#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 271
Top = 22
Width = 52
Height = 12
Caption = #25237#22383#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 420
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 572
Top = 22
Width = 26
Height = 12
Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 704
Top = 22
Width = 39
Height = 12
Caption = #21152#24037#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 167
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 329
Top = 18
Width = 81
Height = 20
TabOrder = 2
OnChange = ConNoChange
end
object C_CodeName: TEdit
Tag = 2
Left = 473
Top = 18
Width = 83
Height = 20
TabOrder = 3
OnChange = ConNoChange
end
object C_Color: TEdit
Tag = 2
Left = 600
Top = 18
Width = 83
Height = 20
TabOrder = 4
OnChange = ConNoChange
end
object FactoryNoName: TEdit
Tag = 2
Left = 748
Top = 18
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 107
Width = 1206
Height = 497
Align = alTop
BorderStyle = bsNone
TabOrder = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1206
Height = 497
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1H_gs
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
Column = v1Column9
end
item
Kind = skSum
Column = v1Qty2
end
item
Kind = skSum
Column = v1Qty1
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.Default
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object v1Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 50
end
object v1OrderNo: TcxGridDBColumn
Caption = #25237#22383#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 65
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #25237#22383#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 70
end
object v1Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 73
end
object v1Column5: TcxGridDBColumn
Caption = #31614#35746#26085#26399
DataBinding.FieldName = 'QDTime'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 70
end
object v1FactoryNo1Name: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 60
end
object v1PRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 66
end
object v1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 61
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 83
end
object v1Qty2: TcxGridDBColumn
Caption = #32568#25968
DataBinding.FieldName = 'Qty2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 60
end
object v1Qty1: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 46
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 58
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'C_Unit'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 47
end
object v1C_Unit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'C_Unit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 68
end
object v1Column3: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'LXPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column6: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'LXTel'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1H_gs: TcxGridDBColumn
Caption = #22238#20179#32568#25968
DataBinding.FieldName = 'H_gs'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 60
end
object v1Column7: TcxGridDBColumn
Caption = #22238#20179#21305#25968
DataBinding.FieldName = 'H_PS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 60
end
object v1Column8: TcxGridDBColumn
Caption = #22238#20179#25968#37327
DataBinding.FieldName = 'H_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 60
end
object v1Column9: TcxGridDBColumn
Caption = #26410#23436#25104#25968#37327
DataBinding.FieldName = 'N_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia
Width = 70
end
object v1Column10: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column11: TcxGridDBColumn
Caption = #21046#21333#26102#38388
DataBinding.FieldName = 'FillTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column12: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column13: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'editTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column14: TcxGridDBColumn
Caption = #26816#39564#21305#25968
DataBinding.FieldName = 'J_ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclTeal
Styles.Footer = cxStyle_fontclTeal
Styles.Header = cxStyle_fontclTeal
Width = 60
end
object v1Column15: TcxGridDBColumn
Caption = #26816#39564#25968#37327
DataBinding.FieldName = 'J_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclTeal
Styles.Footer = cxStyle_fontclTeal
Styles.Header = cxStyle_fontclTeal
Width = 60
end
object v1Column1: TcxGridDBColumn
DataBinding.FieldName = 'IsZt'
Visible = False
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 85
Width = 1206
Height = 22
Align = alTop
TabOrder = 3
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23436#25104
#24050#23436#25104
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1206
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 624
Top = 248
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
Left = 944
Top = 240
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 888
Top = 176
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 1112
Top = 216
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 924
Top = 212
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 352
Top = 192
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 400
Top = 192
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 416
Top = 248
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 804
Top = 44
end
object cxStyleRepository1: TcxStyleRepository
Left = 69
Top = 130
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor]
Color = clInactiveCaption
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 4707838
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clOlive
end
end
end

821
桂华管理系统/U_ClothContractList_TpSel.pas Normal file
View File

@ -0,0 +1,821 @@
unit U_ClothContractList_TpSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type
TfrmClothContractList_TpSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
Label4: TLabel;
C_Color: TEdit;
ScrollBox1: TScrollBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1FactoryNo1Name: TcxGridDBColumn;
v1PRTSpec: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ClientDataSet3: TClientDataSet;
DataSource2: TDataSource;
DataSource3: TDataSource;
ClientDataSet2: TClientDataSet;
v1Qty1: TcxGridDBColumn;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
CDS_PRT: TClientDataSet;
Label6: TLabel;
FactoryNoName: TEdit;
cxTabControl1: TcxTabControl;
v1C_Unit: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
Tchk: TToolButton;
TNochk: TToolButton;
ToolButton1: TToolButton;
v1Qty2: TcxGridDBColumn;
v1C_Color: TcxGridDBColumn;
v1H_gs: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
v1Ssel: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TNochkClick(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ToolButton2Click(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
{ Private declarations }
public
fDParameters1, FFactoryNoName: string;
{ Public declarations }
end;
var
frmClothContractList_TpSel: TfrmClothContractList_TpSel;
implementation
uses
U_DataLink, U_ClothContractInPut_TP, U_Fun, U_ProductOrderList, U_ZDYHelp;
{$R *.dfm}
procedure TfrmClothContractList_TpSel.FormDestroy(Sender: TObject);
begin
frmClothContractList_Tpsel := nil;
end;
procedure TfrmClothContractList_TpSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmClothContractList_TpSel.FormCreate(Sender: TObject);
begin
ScrollBox1.Align := alClient;
end;
procedure TfrmClothContractList_TpSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(self.Caption, Tv1, '指示单管理');
end;
procedure TfrmClothContractList_TpSel.InitGrid();
var
strwhere: string;
begin
strwhere := '';
if cxTabControl1.TabIndex < 2 then
// strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + '''''';
strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + '''''';
if (trim(fDParameters1) = '查询') then
strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' ';
strwhere := strwhere + ' and A.FactoryNoName=''''' + Trim(FFactoryNoName) + ''''' ';
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_Get_Contract_TG');
sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' ');
// sql.Add(',@conType= '''+TconType+''' ');
sql.Add(',@status=''' + strwhere + ''' ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothContractList_TpSel.InitForm();
begin
// if fDParameters1 = '查询' then
// begin
// TBADD.Visible := false;
// TBEdit.Visible := false;
// TBDel.Visible := false;
// Tchk.Visible := false;
// TNochk.Visible := false;
// // Tth.Visible:=false;
// //ToolButton1.Visible:=false;
// end;
TBEdit.Enabled := false;
TBDel.Enabled := false;
Tchk.Enabled := false;
TNochk.Enabled := false;
if cxTabControl1.TabIndex = 0 then
begin
TBEdit.Enabled := true;
TBDel.Enabled := true;
Tchk.Enabled := true;
end;
if cxTabControl1.TabIndex = 1 then
begin
TNochk.Enabled := true;
end;
end;
procedure TfrmClothContractList_TpSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothContractList_TpSel.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmClothContractInPut_Tp.Free;
TBRafresh.Click;
end;
end;
procedure TfrmClothContractList_TpSel.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from JYOrder_Sub_AnPai ');
sql.Add('where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
open;
end;
if not ADOQueryCmd.IsEmpty then
begin
Application.MessageBox('已回仓，不能删除投坯计划！', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then
exit;
if DelData() then
begin
Order_Main.Delete;
end;
end;
function TfrmClothContractList_TpSel.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
// sql.Add(' where CRID='+CRID);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmClothContractList_TpSel.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布合同订单列表', cxGrid1);
end;
procedure TfrmClothContractList_TpSel.TBPrintClick(Sender: TObject);
var
fPrintFile, FConNoM: string;
begin
if Order_Main.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布投坯单.rmf';
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) ');
sql.Add('from Contract_Main A');
sql.Add('inner join Contract_sub B on B.MainID=A.mainID ');
sql.Add('where A.FillTime>= ''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add('and A.FillTime< ''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' ');
sql.Add('and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then
begin
RMVariables['dtxz'] := formatdateTime('yyyy-MM-dd', Now);
RMVariables['zdr'] := Trim(dName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布投坯单.rmf'), '提示', 0);
end;
end;
procedure TfrmClothContractList_TpSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothContractList_TpSel.TBAddClick(Sender: TObject);
begin
try
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 0;
FMainId := '';
FConType := '坯布预投坯';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmClothContractInPut_Tp.Free;
TBRafresh.Click;
end;
end;
procedure TfrmClothContractList_TpSel.ConNoChange(Sender: TObject);
var
str1: string;
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothContractList_TpSel.FormShow(Sender: TObject);
begin
InitForm();
ReadCxGrid(self.Caption, Tv1, '指示单管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp);
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmClothContractList_TpSel.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt := 2;
end;
procedure TfrmClothContractList_TpSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt := 1;
end;
procedure TfrmClothContractList_TpSel.ToolButton5Click(Sender: TObject);
var
maxno: string;
begin
if ClientDataSet3.IsEmpty then
Exit;
if ClientDataSet2.IsEmpty then
Exit;
if Trim(ClientDataSet2.fieldbyname('MXId').AsString) = '' then
begin
Application.MessageBox('到货数量未确定！', '提示', 0);
Exit;
end;
if ClientDataSet3.Locate('OrderNo', null, []) then
begin
Application.MessageBox('指定订单编号不能为空！', '提示', 0);
Exit;
end;
BegDate.SetFocus;
try
ADOQueryCmd.Connection.BeginTrans;
//保存去向表
with ClientDataSet3 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'To', 'Contract_Sub_MxTo', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取去向流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet3.fieldbyname('ToId').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then
Append
else
Edit;
FieldByName('MxId').Value := Trim(ClientDataSet2.fieldbyname('MxId').AsString);
FieldByName('ToId').Value := Trim(maxno);
FieldByName('OrdSubId').Value := Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString);
FieldByName('TPDate').Value := ClientDataSet3.fieldbyname('TPDate').Value;
FieldByName('TPPerson').Value := ClientDataSet3.fieldbyname('TPPerson').Value;
FieldByName('TPNote').Value := ClientDataSet3.fieldbyname('TPNote').Value;
if Trim(ClientDataSet3.fieldbyname('TPQty').AsString) <> '' then
FieldByName('TPQty').Value := ClientDataSet3.fieldbyname('TPQty').Value
else
FieldByName('TPQty').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty1').AsString) <> '' then
FieldByName('Qty1').Value := ClientDataSet3.fieldbyname('Qty1').Value
else
FieldByName('Qty1').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty2').AsString) <> '' then
FieldByName('Qty2').Value := ClientDataSet3.fieldbyname('Qty2').Value
else
FieldByName('Qty2').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty3').AsString) <> '' then
FieldByName('Qty3').Value := ClientDataSet3.fieldbyname('Qty3').Value
else
FieldByName('Qty3').Value := 0;
Post;
end;
with ClientDataSet3 do
begin
Edit;
FieldByName('ToId').Value := Trim(maxno);
Post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('操作成功！', '提示', 0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('操作异常！', '提示', 0);
end;
end;
procedure TfrmClothContractList_TpSel.ToolButton3Click(Sender: TObject);
begin
if FInt = 2 then
begin
if ClientDataSet2.IsEmpty then
Exit;
if ClientDataSet3.IsEmpty = false then
begin
Application.MessageBox('已产生坯布领料数据，不能删除到坯记录！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet2.fieldbyname('MxId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_Mx where MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + '''');
ExecSQL;
end;
ClientDataSet2.Delete;
end
else if FInt = 3 then
begin
if ClientDataSet3.IsEmpty then
Exit;
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + '''');
ExecSQL;
end;
ClientDataSet3.Delete;
with ClientDataSet2 do
begin
Edit;
if ClientDataSet3.IsEmpty = False then
// FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]
else
FieldByName('KCSL').Value := ClientDataSet2.fieldbyname('MxQty').Value;
Post;
end;
end;
end;
procedure TfrmClothContractList_TpSel.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'RKPlace';
flagname := '入库地点';
if ShowModal = 1 then
begin
with ClientDataSet2 do
begin
Edit;
FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothContractList_TpSel.cxTabControl1Change(Sender: TObject);
begin
initForm();
InitGrid();
end;
procedure TfrmClothContractList_TpSel.TchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''1'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmClothContractList_TpSel.TNochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''0'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmClothContractList_TpSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmClothContractList_TpSel.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 1;
tbsave.Enabled := false;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmClothContractInPut_Tp.Free;
end;
end;
procedure TfrmClothContractList_TpSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
{ IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('N_Qty').Index]=0 then
begin
ACanvas.Brush.Color:=clSkyBlue;
end; }
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index] = 0 then
begin
ACanvas.Brush.Color := Clred;
end;
end;
procedure TfrmClothContractList_TpSel.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
InflateRect(FBounds, -1, -1);
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
procedure TfrmClothContractList_TpSel.ToolButton2Click(Sender: TObject);
begin
try
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 0;
FMainId := '';
FConType := '改色计划';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmClothContractInPut_Tp.Free;
TBRafresh.Click;
end;
end;
end.

11
桂华管理系统/U_ClothContractList_help.dfm
View File

@ -1,6 +1,6 @@
object frmClothContractList_Help: TfrmClothContractList_Help object frmClothContractList_Help: TfrmClothContractList_Help
Left = 35 Left = 317
Top = 105 Top = 137
Width = 1221 Width = 1221
Height = 738 Height = 738
Caption = #36873#25321#22383#24067#21040#36135#20449#24687 Caption = #36873#25321#22383#24067#21040#36135#20449#24687
@ -338,7 +338,6 @@ object frmClothContractList_Help: TfrmClothContractList_Help
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
@ -361,6 +360,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
Caption = #21152#24037#21378 Caption = #21152#24037#21378
DataBinding.FieldName = 'JHPlace' DataBinding.FieldName = 'JHPlace'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object v1FactoryNo1Name: TcxGridDBColumn object v1FactoryNo1Name: TcxGridDBColumn
@ -433,6 +433,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
Caption = #36864#36135#21305#25968 Caption = #36864#36135#21305#25968
DataBinding.FieldName = 'T_Ps' DataBinding.FieldName = 'T_Ps'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60 Width = 60
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
@ -468,6 +469,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
Caption = #24211#23384#21305#25968 Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'N_PS' DataBinding.FieldName = 'N_PS'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclFuchsia Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia Styles.Header = cxStyle_fontclFuchsia
@ -477,6 +479,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'N_Qty' DataBinding.FieldName = 'N_Qty'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclFuchsia Styles.Content = cxStyle_fontclFuchsia
Styles.Footer = cxStyle_fontclFuchsia Styles.Footer = cxStyle_fontclFuchsia
Styles.Header = cxStyle_fontclFuchsia Styles.Header = cxStyle_fontclFuchsia
@ -488,6 +491,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.##%;-,0.##%' Properties.DisplayFormat = '0.##%;-,0.##%'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclGreen Styles.Content = cxStyle_fontclGreen
Styles.Footer = cxStyle_fontclGreen Styles.Footer = cxStyle_fontclGreen
Styles.Header = cxStyle_fontclGreen Styles.Header = cxStyle_fontclGreen
@ -499,6 +503,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.##%;-,0.##%' Properties.DisplayFormat = '0.##%;-,0.##%'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn

15
桂华管理系统/U_ClothContractList_help.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxCheckBox, cxCurrencyEdit, cxLookAndFeels, cxTextEdit, cxCheckBox, cxCurrencyEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmClothContractList_Help = class(TForm) TfrmClothContractList_Help = class(TForm)

71
桂华管理系统/U_GetDllForm.pas
View File

@ -25,7 +25,7 @@ uses
U_ClothContractList_Tp, U_ClothContractList_Help, U_ClothContractList_JG, U_ClothContractList_Tp, U_ClothContractList_Help, U_ClothContractList_JG,
U_CKPHKCList, U_HCList, U_ProductOrder_Ph10, U_CrkAccount, U_CKPHKCList, U_HCList, U_ProductOrder_Ph10, U_CrkAccount,
U_CKProductBCPInList_Other, U_CKProductBCPOutList_other, U_CKProductBCPInList_Other, U_CKProductBCPOutList_other,
U_ProductOrder_Ph_other, U_CKProductBCPKCList_other, U_ProductOrder_Ph_other, U_CKProductBCPKCList_other, U_CPKCzhl,
U_CKProductBCPKCHZList_other, U_CrkAccount_other, U_KCRLLTZ, U_CKProductBCPKCHZList_other, U_CrkAccount_other, U_KCRLLTZ,
U_MJManageNewFDNew_other, U_JYOrderCDOne_Other, U_xslist_other, U_YHList_other, U_MJManageNewFDNew_other, U_JYOrderCDOne_Other, U_xslist_other, U_YHList_other,
U_CKProductBCPKCHZListSUM_other, U_KCRLLTZ_other, U_CKEJK, U_ModulePromptList, U_CKProductBCPKCHZListSUM_other, U_KCRLLTZ_other, U_CKEJK, U_ModulePromptList,
@ -33,7 +33,8 @@ uses
U_CP_COL_XL_ZD, U_CKPDlist, U_ClothContractList_HZ, U_ProductOrderNewList_ZD, U_CP_COL_XL_ZD, U_CKPDlist, U_ClothContractList_HZ, U_ProductOrderNewList_ZD,
U_ClothContractList_SJDCK, U_KH_XS_YP_list, U_ProductOrderNewList_BH, U_ClothContractList_SJDCK, U_KH_XS_YP_list, U_ProductOrderNewList_BH,
U_ClothContractList_HZ1, U_ClothContractList_CP, U_ClothContractList_SJD, U_ClothContractList_HZ1, U_ClothContractList_CP, U_ClothContractList_SJD,
U_ClothContractList_SJDMX, U_ClothContractList_PBKC, U_CP_COL_XLYJ; U_ClothContractList_SJDMX, U_ClothContractList_PBKC, U_CP_COL_XLYJ,
U_ClothContractList_KCKL, U_OrdeFollower;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -398,7 +399,7 @@ begin
begin begin
fDParameters2 := trim(DParameters2); fDParameters2 := trim(DParameters2);
caption := Trim(Title); caption := Trim(Title);
FormStyle := mstyle; FormStyle := mstyle;
windowState := mstate; windowState := mstate;
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
//show; //show;
@ -685,11 +686,32 @@ begin
//show; //show;
end; end;
end end
else else
frmClothContractList_Tp.BringToFront; frmClothContractList_Tp.BringToFront;
//句柄 //句柄
mnewHandle := frmClothContractList_Tp.Handle; mnewHandle := frmClothContractList_Tp.Handle;
end;
331: //坯布出入库
begin
if frmOrdeFollower = nil then
begin
frmOrdeFollower := TfrmOrdeFollower.Create(application.MainForm);
with frmOrdeFollower do
begin
caption := Trim(Title);
fDParameters1 := trim(DParameters1);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmOrdeFollower.BringToFront;
//句柄
mnewHandle := frmOrdeFollower.Handle;
end; end;
153: //坯布采购 到货 投匹 153: //坯布采购 到货 投匹
begin begin
@ -772,6 +794,26 @@ begin
//句柄 //句柄
mnewHandle := frmClothContractList_SJD.Handle; mnewHandle := frmClothContractList_SJD.Handle;
end;
256: //坯布库存库龄
begin
if frmClothContractList_KCKL = nil then
begin
frmClothContractList_KCKL := TfrmClothContractList_KCKL.Create(application.MainForm);
with frmClothContractList_KCKL do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmClothContractList_KCKL.BringToFront;
//句柄
mnewHandle := frmClothContractList_KCKL.Handle;
end; end;
245: //坯布库存查询 245: //坯布库存查询
begin begin
@ -1403,6 +1445,27 @@ begin
//句柄 //句柄
mnewHandle := frmCP_COL_XLYJ.Handle; mnewHandle := frmCP_COL_XLYJ.Handle;
end; end;
441: //成品库存转化率
begin
if frmCPKCzhl <> nil then
frmCPKCzhl.Free;
if frmCPKCzhl = nil then
begin
frmCPKCzhl := TfrmCPKCzhl.Create(application.MainForm);
with frmCPKCzhl do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmCPKCzhl.BringToFront;
//句柄
mnewHandle := frmCPKCzhl.Handle;
end;
40: //产品销量信息 40: //产品销量信息
begin begin
if frmCP_COL_XL <> nil then if frmCP_COL_XL <> nil then

2
桂华管理系统/U_MJManageNewFDNew.pas
View File

@ -477,7 +477,7 @@ begin
begin begin
Application.MessageBox('班组为空，请设置班组！','提示',0); Application.MessageBox('班组为空，请设置班组！','提示',0);
Exit; Exit;
end; } end; }
if iscom then if iscom then
begin begin
if CommOpen(frmMJManageNewFDNew.Handle, '', 500, 1) < 1 then if CommOpen(frmMJManageNewFDNew.Handle, '', 500, 1) < 1 then

910
桂华管理系统/U_OrdeFollower.dfm Normal file
View File

@ -0,0 +1,910 @@
object frmOrdeFollower: TfrmOrdeFollower
Left = 326
Top = 299
Width = 1222
Height = 663
Caption = #36319#21333#22383#24067#20449#24687
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1206
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686#21040#36135
ImageIndex = 3
OnClick = TBAddClick
end
object ToolButton2: TToolButton
Left = 213
Top = 0
Caption = #26032#22686#25237#22383
ImageIndex = 57
OnClick = ToolButton2Click
end
object TBEdit: TToolButton
Left = 296
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 54
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 359
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
OnClick = TBDelClick
end
object Tchk: TToolButton
Left = 422
Top = 0
AutoSize = True
Caption = #30830#35748#23436#25104
ImageIndex = 41
Visible = False
OnClick = TchkClick
end
object TNochk: TToolButton
Left = 509
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 48
Visible = False
OnClick = TNochkClick
end
object ToolButton1: TToolButton
Left = 596
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 58
OnClick = ToolButton1Click
end
object TBExport: TToolButton
Left = 659
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBPrint: TToolButton
Left = 722
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = TBPrintClick
end
object TBClose: TToolButton
Left = 785
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1206
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #30331#35760#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 271
Top = 22
Width = 52
Height = 12
Caption = #25237#22383#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 420
Top = 22
Width = 52
Height = 12
Caption = #22383#24067#20195#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 724
Top = 22
Width = 26
Height = 12
Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 856
Top = 22
Width = 39
Height = 12
Caption = #21152#24037#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 573
Top = 22
Width = 52
Height = 12
Caption = #25104#21697#20195#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 1008
Top = 22
Width = 52
Height = 12
Caption = #23384#25918#22320#28857
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 167
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 329
Top = 18
Width = 81
Height = 20
TabOrder = 2
OnChange = ConNoChange
end
object C_CodeName: TEdit
Tag = 2
Left = 473
Top = 18
Width = 83
Height = 20
TabOrder = 3
OnChange = ConNoChange
end
object C_Color: TEdit
Tag = 2
Left = 752
Top = 18
Width = 83
Height = 20
TabOrder = 4
OnChange = ConNoChange
end
object FactoryNoName: TEdit
Tag = 2
Left = 900
Top = 18
Width = 80
Height = 20
TabOrder = 5
OnChange = ConNoChange
end
object CP_codename: TEdit
Tag = 2
Left = 626
Top = 18
Width = 83
Height = 20
TabOrder = 6
OnChange = ConNoChange
end
object JHPlace: TEdit
Tag = 2
Left = 1064
Top = 18
Width = 80
Height = 20
TabOrder = 7
OnChange = ConNoChange
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 107
Width = 1206
Height = 497
Align = alTop
BorderStyle = bsNone
TabOrder = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1206
Height = 497
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Qty2
end
item
Kind = skSum
Column = v1Qty1
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 20
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.Default
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object v1Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 50
end
object Tv1Column3: TcxGridDBColumn
Caption = #20379#26041
DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1OrderNo: TcxGridDBColumn
Caption = #27969#27700#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 65
end
object Tv1Column1: TcxGridDBColumn
Caption = #21333#21495
DataBinding.FieldName = 'fromConNo'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #25237#22383#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 70
end
object v1Column2: TcxGridDBColumn
Caption = #22383#24067#20195#21495
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 73
end
object v1Column5: TcxGridDBColumn
Caption = #31614#35746#26085#26399
DataBinding.FieldName = 'QDTime'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 70
end
object v1PRTSpec: TcxGridDBColumn
Caption = #25104#21697#20195#21495
DataBinding.FieldName = 'CP_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 66
end
object v1FactoryNo1Name: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'ToFactoryName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 60
end
object Tv1Column4: TcxGridDBColumn
Caption = #23384#25918#22320#28857
DataBinding.FieldName = 'JHPlace'
Width = 60
end
object v1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 61
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 83
end
object v1Qty2: TcxGridDBColumn
Caption = #32568#25968
DataBinding.FieldName = 'Qty2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 60
end
object v1Qty1: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 46
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclBlue
Styles.Footer = cxStyle_fontclBlue
Styles.Header = cxStyle_fontclBlue
Width = 58
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'C_Unit'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 47
end
object v1C_Unit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'C_Unit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 68
end
object v1Column3: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'LXPerson'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column6: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'LXTel'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default
Width = 63
end
object v1Column7: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'KCPS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 60
end
object v1Column8: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'KCQTY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclPurple
Styles.Footer = cxStyle_fontclPurple
Styles.Header = cxStyle_fontclPurple
Width = 60
end
object v1Column10: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column11: TcxGridDBColumn
Caption = #21046#21333#26102#38388
DataBinding.FieldName = 'FillTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column12: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column13: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'editTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column14: TcxGridDBColumn
Caption = #26816#39564#21305#25968
DataBinding.FieldName = 'J_ps'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclTeal
Styles.Footer = cxStyle_fontclTeal
Styles.Header = cxStyle_fontclTeal
Width = 60
end
object v1Column15: TcxGridDBColumn
Caption = #26816#39564#25968#37327
DataBinding.FieldName = 'J_Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle_fontclTeal
Styles.Footer = cxStyle_fontclTeal
Styles.Header = cxStyle_fontclTeal
Width = 60
end
object v1Column1: TcxGridDBColumn
DataBinding.FieldName = 'IsZt'
Visible = False
end
object Tv1Column2: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CRTYpe'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column5: TcxGridDBColumn
Caption = #35268#26684#22411#21495
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 85
Width = 1206
Height = 22
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 1
Properties.Tabs.Strings = (
#22383#24067#21040#36135
#22383#24067#25237#22383
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1206
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 624
Top = 248
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
Left = 944
Top = 240
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 888
Top = 176
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 1112
Top = 216
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 924
Top = 212
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 352
Top = 192
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 400
Top = 192
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 416
Top = 248
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 684
Top = 172
end
object cxStyleRepository1: TcxStyleRepository
Left = 69
Top = 130
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor]
Color = clInactiveCaption
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 4707838
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clOlive
end
end
end

894
桂华管理系统/U_OrdeFollower.pas Normal file
View File

@ -0,0 +1,894 @@
unit U_OrdeFollower;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type
TfrmOrdeFollower = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
Label4: TLabel;
C_Color: TEdit;
ScrollBox1: TScrollBox;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1FactoryNo1Name: TcxGridDBColumn;
v1PRTSpec: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ClientDataSet3: TClientDataSet;
DataSource2: TDataSource;
DataSource3: TDataSource;
ClientDataSet2: TClientDataSet;
v1Qty1: TcxGridDBColumn;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
CDS_PRT: TClientDataSet;
Label6: TLabel;
FactoryNoName: TEdit;
cxTabControl1: TcxTabControl;
v1C_Unit: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
Tchk: TToolButton;
TNochk: TToolButton;
ToolButton1: TToolButton;
v1Qty2: TcxGridDBColumn;
v1C_Color: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
v1Ssel: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label7: TLabel;
CP_codename: TEdit;
Label8: TLabel;
JHPlace: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TNochkClick(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ToolButton2Click(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
{ Private declarations }
public
fDParameters1: string;
{ Public declarations }
end;
var
frmOrdeFollower: TfrmOrdeFollower;
implementation
uses
U_DataLink, U_ClothContractInPut_TP, U_OrdeFollower_input, U_Fun,
U_ProductOrderList, U_OrdeFollower_inputCK, U_ZDYHelp;
{$R *.dfm}
procedure TfrmOrdeFollower.FormDestroy(Sender: TObject);
begin
frmOrdeFollower := nil;
end;
procedure TfrmOrdeFollower.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmOrdeFollower.FormCreate(Sender: TObject);
begin
ScrollBox1.Align := alClient;
end;
procedure TfrmOrdeFollower.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(self.Caption, Tv1, '指示单管理');
end;
procedure TfrmOrdeFollower.InitGrid();
var
strwhere, TconType: string;
begin
strwhere := '';
if cxTabControl1.TabIndex = 0 then
begin
TconType := '坯布到货';
end;
if cxTabControl1.TabIndex = 1 then
begin
TconType := '坯布投坯';
end;
if cxTabControl1.TabIndex = 2 then
begin
TconType := '全部';
end;
// strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + '''''';
// strwhere := strwhere + ' ''' + inttostr(cxTabControl1.TabIndex) + ''' ';
if (trim(fDParameters1) = '查询') then
strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' ';
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_Get_Contract_CRK');
sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' ');
sql.Add(',@conType= ''' + TconType + ''' ');
sql.Add(',@status=''0'' ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmOrdeFollower.InitForm();
begin
// if fDParameters1 = '查询' then
// begin
// TBADD.Visible := false;
// TBEdit.Visible := false;
// TBDel.Visible := false;
// Tchk.Visible := false;
// TNochk.Visible := false;
// // Tth.Visible:=false;
// //ToolButton1.Visible:=false;
// end;
TBEdit.Enabled := false;
TBDel.Enabled := false;
Tchk.Enabled := false;
TNochk.Enabled := false;
if cxTabControl1.TabIndex = 0 then
begin
TBEdit.Enabled := true;
TBDel.Enabled := true;
Tchk.Enabled := true;
end;
if cxTabControl1.TabIndex = 1 then
begin
TNochk.Enabled := true;
end;
end;
procedure TfrmOrdeFollower.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmOrdeFollower.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex = 0 then
begin
try
frmOrdeFollower_input := TfrmOrdeFollower_input.Create(Application);
with frmOrdeFollower_input do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmOrdeFollower_input.Free;
TBRafresh.Click;
end;
end;
if cxTabControl1.TabIndex = 1 then
begin
try
frmOrdeFollower_inputCK := TfrmOrdeFollower_inputCK.Create(Application);
with frmOrdeFollower_inputCK do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmOrdeFollower_inputCK.Free;
TBRafresh.Click;
end;
end;
end;
procedure TfrmOrdeFollower.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add('select * from JYOrder_Sub_AnPai ');
// sql.Add('where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
// open;
// end;
// if not ADOQueryCmd.IsEmpty then
// begin
// Application.MessageBox('已回仓，不能删除投坯计划！', '提示', 0);
// Exit;
// end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then
exit;
if DelData() then
begin
Order_Main.Delete;
end;
end;
function TfrmOrdeFollower.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + '''');
// ExecSQL;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
// sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
// // sql.Add(' where CRID='+CRID);
// ExecSQL;
// end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmOrdeFollower.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布合同订单列表', cxGrid1);
end;
procedure TfrmOrdeFollower.TBPrintClick(Sender: TObject);
var
fPrintFile, FConNoM: string;
begin
if Order_Main.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布投坯单.rmf';
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) ');
sql.Add('from Contract_Main A');
sql.Add('inner join Contract_sub B on B.MainID=A.mainID ');
sql.Add('where A.FillTime>= ''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add('and A.FillTime< ''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' ');
sql.Add('and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then
begin
RMVariables['dtxz'] := formatdateTime('yyyy-MM-dd', Now);
RMVariables['zdr'] := Trim(dName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布投坯单.rmf'), '提示', 0);
end;
end;
procedure TfrmOrdeFollower.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmOrdeFollower.TBAddClick(Sender: TObject);
begin
try
frmOrdeFollower_input := TfrmOrdeFollower_input.Create(Application);
with frmOrdeFollower_input do
begin
PState := 0;
FMainId := '';
FConType := '坯布到货';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmOrdeFollower_input.Free;
TBRafresh.Click;
end;
end;
procedure TfrmOrdeFollower.ConNoChange(Sender: TObject);
var
str1: string;
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmOrdeFollower.FormShow(Sender: TObject);
begin
// InitForm();
ReadCxGrid(self.Caption, Tv1, '指示单管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp);
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmOrdeFollower.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt := 2;
end;
procedure TfrmOrdeFollower.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FInt := 1;
end;
procedure TfrmOrdeFollower.ToolButton5Click(Sender: TObject);
var
maxno: string;
begin
if ClientDataSet3.IsEmpty then
Exit;
if ClientDataSet2.IsEmpty then
Exit;
if Trim(ClientDataSet2.fieldbyname('MXId').AsString) = '' then
begin
Application.MessageBox('到货数量未确定！', '提示', 0);
Exit;
end;
if ClientDataSet3.Locate('OrderNo', null, []) then
begin
Application.MessageBox('指定订单编号不能为空！', '提示', 0);
Exit;
end;
BegDate.SetFocus;
try
ADOQueryCmd.Connection.BeginTrans;
//保存去向表
with ClientDataSet3 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'To', 'Contract_Sub_MxTo', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取去向流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet3.fieldbyname('ToId').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then
Append
else
Edit;
FieldByName('MxId').Value := Trim(ClientDataSet2.fieldbyname('MxId').AsString);
FieldByName('ToId').Value := Trim(maxno);
FieldByName('OrdSubId').Value := Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString);
FieldByName('TPDate').Value := ClientDataSet3.fieldbyname('TPDate').Value;
FieldByName('TPPerson').Value := ClientDataSet3.fieldbyname('TPPerson').Value;
FieldByName('TPNote').Value := ClientDataSet3.fieldbyname('TPNote').Value;
if Trim(ClientDataSet3.fieldbyname('TPQty').AsString) <> '' then
FieldByName('TPQty').Value := ClientDataSet3.fieldbyname('TPQty').Value
else
FieldByName('TPQty').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty1').AsString) <> '' then
FieldByName('Qty1').Value := ClientDataSet3.fieldbyname('Qty1').Value
else
FieldByName('Qty1').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty2').AsString) <> '' then
FieldByName('Qty2').Value := ClientDataSet3.fieldbyname('Qty2').Value
else
FieldByName('Qty2').Value := 0;
if Trim(ClientDataSet3.fieldbyname('Qty3').AsString) <> '' then
FieldByName('Qty3').Value := ClientDataSet3.fieldbyname('Qty3').Value
else
FieldByName('Qty3').Value := 0;
Post;
end;
with ClientDataSet3 do
begin
Edit;
FieldByName('ToId').Value := Trim(maxno);
Post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('操作成功！', '提示', 0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('操作异常！', '提示', 0);
end;
end;
procedure TfrmOrdeFollower.ToolButton3Click(Sender: TObject);
begin
if FInt = 2 then
begin
if ClientDataSet2.IsEmpty then
Exit;
if ClientDataSet3.IsEmpty = false then
begin
Application.MessageBox('已产生坯布领料数据，不能删除到坯记录！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet2.fieldbyname('MxId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_Mx where MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + '''');
ExecSQL;
end;
ClientDataSet2.Delete;
end
else if FInt = 3 then
begin
if ClientDataSet3.IsEmpty then
Exit;
if Trim(ClientDataSet3.fieldbyname('ToId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + '''');
ExecSQL;
end;
ClientDataSet3.Delete;
with ClientDataSet2 do
begin
Edit;
if ClientDataSet3.IsEmpty = False then
// FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]
else
FieldByName('KCSL').Value := ClientDataSet2.fieldbyname('MxQty').Value;
Post;
end;
end;
end;
procedure TfrmOrdeFollower.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'RKPlace';
flagname := '入库地点';
if ShowModal = 1 then
begin
with ClientDataSet2 do
begin
Edit;
FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrdeFollower.cxTabControl1Change(Sender: TObject);
begin
// initForm();
InitGrid();
end;
procedure TfrmOrdeFollower.TchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''1'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmOrdeFollower.TNochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_sub SET C_status=''0'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmOrdeFollower.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ToolButton1.Click;
end;
procedure TfrmOrdeFollower.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
{ try
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 1;
tbsave.Enabled := false;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmClothContractInPut_Tp.Free;
end; }
if cxTabControl1.TabIndex = 0 then
begin
try
frmOrdeFollower_input := TfrmOrdeFollower_input.Create(Application);
with frmOrdeFollower_input do
begin
PState := 1;
tbsave.Enabled := false;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmOrdeFollower_input.Free;
end;
end;
if cxTabControl1.TabIndex = 1 then
begin
try
frmOrdeFollower_inputCK := TfrmOrdeFollower_inputCK.Create(Application);
with frmOrdeFollower_inputCK do
begin
PState := 1;
tbsave.Enabled := false;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmOrdeFollower_inputCK.Free;
end;
end;
end;
procedure TfrmOrdeFollower.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
{ IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('N_Qty').Index]=0 then
begin
ACanvas.Brush.Color:=clSkyBlue;
end; }
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index] = 0 then
begin
ACanvas.Brush.Color := Clred;
end;
end;
procedure TfrmOrdeFollower.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
InflateRect(FBounds, -1, -1);
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
procedure TfrmOrdeFollower.ToolButton2Click(Sender: TObject);
begin
try
frmOrdeFollower_inputCK := TfrmOrdeFollower_inputCK.Create(Application);
with frmOrdeFollower_inputCK do
begin
PState := 0;
FMainId := '';
FConType := '坯布投坯';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmOrdeFollower_inputCK.Free;
TBRafresh.Click;
end;
end;
end.

369
桂华管理系统/U_OrdeFollower_input.dfm Normal file
View File

@ -0,0 +1,369 @@
object frmOrdeFollower_input: TfrmOrdeFollower_input
Left = 431
Top = 274
Width = 1030
Height = 478
Caption = #22383#24067#20986#20837#24211
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1014
Height = 29
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
Caption = #20837#24211#20445#23384
ImageIndex = 14
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 83
Top = 0
Caption = #20986#24211#20445#23384
ImageIndex = 14
Visible = False
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 229
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 292
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 29
Width = 1014
Height = 292
Align = alTop
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
Column = v1Column1
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.Default
object Tv1Column8: TcxGridDBColumn
Caption = #20219#21153#21333#21495
DataBinding.FieldName = 'ConNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 174
end
object Tv1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CRTYpe'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#21040#36135
#35843#25320#20837#24211
#21378#20869#22238#20462
#22238#20462)
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column1: TcxGridDBColumn
Tag = 1
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'fromConNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Tag = 1
Caption = #20379#26041
DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Tag = 1
Caption = #25910#36135#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Tag = 1
Caption = #25209#27425#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Tag = 1
Caption = #23384#25918#22320#28857
DataBinding.FieldName = 'JHPlace'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column5PropertiesButtonClick
end
object v1Column1: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1PRTSpec: TcxGridDBColumn
Caption = #35268#26684#22411#21495
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 103
end
object v1PRTColor: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 78
end
object v1PRTKZ: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 90
end
object v1Qty2: TcxGridDBColumn
Caption = #32568#25968
DataBinding.FieldName = 'Qty2'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column5: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 65
end
object v1ClothUnit: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'C_Qty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.handBlack
Width = 69
end
object v1Column2: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'C_Unit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'M'
'Kg')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 77
end
object v1Column3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
Visible = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 46
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 137
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 604
Top = 365
Width = 289
Height = 25
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
object Label22: TLabel
Left = 32
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
end
object Label23: TLabel
Left = 144
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
end
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 816
Top = 85
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 800
Top = 109
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 356
Top = 192
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 424
Top = 192
end
object DataSource2: TDataSource
DataSet = ADOZDY
Left = 312
Top = 120
end
object ADOZDY: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 69
end
object CDS_ZDY: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 88
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 744
Top = 129
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 97
end
end

1510
桂华管理系统/U_OrdeFollower_input.pas Normal file
View File

File diff suppressed because it is too large Load Diff

382
桂华管理系统/U_OrdeFollower_inputCK.dfm Normal file
View File

@ -0,0 +1,382 @@
object frmOrdeFollower_inputCK: TfrmOrdeFollower_inputCK
Left = 446
Top = 304
Width = 1030
Height = 478
Caption = #22383#24067#25237#22383
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1014
Height = 29
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
Caption = #20837#24211#20445#23384
ImageIndex = 14
Visible = False
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 83
Top = 0
Caption = #20986#24211#20445#23384
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 229
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 292
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 29
Width = 1014
Height = 292
Align = alTop
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
Column = v1Column1
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.Default
object Tv1Column8: TcxGridDBColumn
Tag = 1
Caption = #21333#21495
DataBinding.FieldName = 'ConNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1Column3: TcxGridDBColumn
Tag = 1
Caption = #31867#22411
DataBinding.FieldName = 'CRTYpe'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#25237#22383#20986#24211
#36864#36135#20986#24211
#35843#25320#20986#24211)
HeaderAlignmentHorz = taCenter
Width = 50
end
object Tv1Column4: TcxGridDBColumn
Caption = #20379#26041
DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #25910#36135#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #25209#27425#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #23384#25918#22320#28857
DataBinding.FieldName = 'JHPlace'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column5PropertiesButtonClick
end
object Tv1Column2: TcxGridDBColumn
Caption = #26579#21378
DataBinding.FieldName = 'ToFactoryName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column1: TcxGridDBColumn
Tag = 1
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'CP_CodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Tag = 1
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1PRTSpec: TcxGridDBColumn
Tag = 1
Caption = #35268#26684#22411#21495
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 103
end
object v1PRTColor: TcxGridDBColumn
Tag = 1
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 78
end
object v1PRTKZ: TcxGridDBColumn
Tag = 1
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 90
end
object v1Qty2: TcxGridDBColumn
Tag = 1
Caption = #32568#25968
DataBinding.FieldName = 'Qty2'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column5: TcxGridDBColumn
Tag = 1
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 65
end
object v1ClothUnit: TcxGridDBColumn
Tag = 1
Caption = #25968#37327
DataBinding.FieldName = 'C_Qty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.handBlack
Width = 69
end
object v1Column2: TcxGridDBColumn
Tag = 1
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'C_Unit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'M'
'Kg')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 77
end
object v1Column3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Qty1'
Visible = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 46
end
object v1Column4: TcxGridDBColumn
Tag = 1
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 137
end
object Tv1Column1: TcxGridDBColumn
Caption = #22383#24067#20195#21495
DataBinding.FieldName = 'C_codename'
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 604
Top = 365
Width = 289
Height = 25
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
object Label22: TLabel
Left = 32
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
end
object Label23: TLabel
Left = 144
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
end
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 816
Top = 85
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 800
Top = 109
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 356
Top = 192
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 424
Top = 192
end
object DataSource2: TDataSource
DataSet = ADOZDY
Left = 312
Top = 120
end
object ADOZDY: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 69
end
object CDS_ZDY: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 88
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 744
Top = 129
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 97
end
end

1575
桂华管理系统/U_OrdeFollower_inputCK.pas Normal file
View File

File diff suppressed because it is too large Load Diff

40
桂华管理系统/U_OrderInPut.pas
View File

@ -192,6 +192,7 @@ type
FXS: Integer; FXS: Integer;
fCustomerNoName: string; fCustomerNoName: string;
forderType: string; forderType: string;
fDParameters1: string;
fsyrName: string; fsyrName: string;
{ Public declarations } { Public declarations }
end; end;
@ -298,8 +299,16 @@ begin
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from JYOrder_Sub '); if (Trim(fDParameters1) = 'ÉóºË') and (fOrderType <> '¼ôÑùµ¥') then
begin
sql.Add(' select '''' as PRTPrice,* from JYOrder_Sub ');
end
else
begin
sql.Add(' select * from JYOrder_Sub ');
end;
if PState = 1 then if PState = 1 then
begin begin
sql.Add('where MainId=''' + Trim(FMainId) + ''''); sql.Add('where MainId=''' + Trim(FMainId) + '''');
@ -425,6 +434,19 @@ begin
SYRName.Enabled := false; SYRName.Enabled := false;
// orderType.Enabled:=false; // orderType.Enabled:=false;
end; end;
if Trim(fDParameters1) = 'ÉóºË' then
begin
if fOrderType = '¼ôÑùµ¥' then
v1PRTPrice.Visible := true
else
begin
v1PRTPrice.Visible := false;
end;
end
else
begin
v1PRTPrice.Visible := true
end;
InitData(); InitData();
end; end;
@ -986,15 +1008,15 @@ begin
begin begin
flag := 'RKPlace'; flag := 'RKPlace';
flagname := '染厂名称'; flagname := '染厂名称';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
JGFactoryName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); JGFactoryName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
JGFactoryName.TxtCode := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); JGFactoryName.TxtCode := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmZDYHelp.Free;
end; end;
end; end;
procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject); procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject);
@ -1829,11 +1851,11 @@ begin
mvalue := Trim(CustomerNoName.Text); mvalue := Trim(CustomerNoName.Text);
if Length(Trim(mvalue)) > 1 then if Length(Trim(mvalue)) > 1 then
begin begin
//mvalue:='%'+Trim(mvalue)+'%'; //mvalue:='%'+Trim(mvalue)+'%';
with ADO_KH do with ADO_KH do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select * from KH_Zdy_Attachment '); sql.Add(' select * from KH_Zdy_Attachment ');
sql.Add(' where (ZDYName like ' + quotedstr('%' + trim(mvalue) + '%')); sql.Add(' where (ZDYName like ' + quotedstr('%' + trim(mvalue) + '%'));
sql.Add(' or dbo.getpinYin(zdyName) like ' + quotedstr('%' + trim(mvalue) + '%')); sql.Add(' or dbo.getpinYin(zdyName) like ' + quotedstr('%' + trim(mvalue) + '%'));
@ -1842,7 +1864,7 @@ begin
Open; Open;
end; end;
if ADO_KH.IsEmpty then if ADO_KH.IsEmpty then
begin begin
cxGrid4.Visible := False; cxGrid4.Visible := False;
CustomerNoName.text := ''; CustomerNoName.text := '';
application.MessageBox('该客户与当前业务员不一致！', '提示信息', 0); application.MessageBox('该客户与当前业务员不一致！', '提示信息', 0);

18
桂华管理系统/U_ProductOrderNewList.dfm
View File

@ -180,22 +180,22 @@ object frmProductOrderNewList: TfrmProductOrderNewList
ImageIndex = 72 ImageIndex = 72
OnClick = TrzClick OnClick = TrzClick
end end
object TBClose: TToolButton object ToolButton5: TToolButton
Left = 684 Left = 684
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #30830#35748
ImageIndex = 113
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 747
Top = 30
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton5: TToolButton
Left = 747
Top = 30
AutoSize = True
Caption = #30830#35748
ImageIndex = 56
OnClick = ToolButton5Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0

16
桂华管理系统/U_ProductOrderNewList.pas
View File

@ -217,6 +217,12 @@ begin
if Trim(fDParameters1) = '审核' then if Trim(fDParameters1) = '审核' then
begin begin
TBADD.Visible := false; TBADD.Visible := false;
if fOrderType = '¼ôÑùµ¥' then
ToolButton4.Visible := true
else
begin
ToolButton4.Visible := false;
end;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -298,7 +304,7 @@ end;
procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); procedure TfrmProductOrderNewList.FormCreate(Sender: TObject);
begin begin
cxgrid1.Align := alClient; cxgrid1.Align := alClient;
end; end;
procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject);
@ -409,12 +415,13 @@ begin
begin begin
Application.MessageBox('不能操作他人的数据!','提示',0); Application.MessageBox('不能操作他人的数据!','提示',0);
Exit; Exit;
end; } end; }
try try
frmOrderInPut := TfrmOrderInPut.Create(Application); frmOrderInPut := TfrmOrderInPut.Create(Application);
with frmOrderInPut do with frmOrderInPut do
begin begin
forderType := self.forderType; forderType := self.forderType;
fDParameters1 := self.fDParameters1;
PState := 1; PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
@ -598,7 +605,7 @@ begin
sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID ');
sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString)));
// ShowMessage(SQL.text); // ShowMessage(SQL.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryPrint, CDS_Print); SCreateCDS20(ADOQueryPrint, CDS_Print);
@ -854,6 +861,7 @@ begin
with frmOrderInPut do with frmOrderInPut do
begin begin
forderType := self.forderType; forderType := self.forderType;
fDParameters1 := self.fDParameters1;
PState := 1; PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
ToolBar2.Enabled := False; ToolBar2.Enabled := False;

13
桂华管理系统/U_RKSMEdit.dfm
View File

@ -1,6 +1,6 @@
object frmRKSMEdit: TfrmRKSMEdit object frmRKSMEdit: TfrmRKSMEdit
Left = 38 Left = 476
Top = 116 Top = 266
Width = 1278 Width = 1278
Height = 684 Height = 684
Caption = #25195#25551#20837#24211#31383#21475 Caption = #25195#25551#20837#24211#31383#21475
@ -220,7 +220,7 @@ object frmRKSMEdit: TfrmRKSMEdit
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCustomDrawCell = TV2CustomDrawCell OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DataSource2 DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -325,7 +325,7 @@ object frmRKSMEdit: TfrmRKSMEdit
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -463,11 +463,11 @@ object frmRKSMEdit: TfrmRKSMEdit
Left = 0 Left = 0
Top = 81 Top = 81
Width = 237 Width = 237
Height = 548 Height = 547
Align = alLeft Align = alLeft
TabOrder = 4 TabOrder = 4
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DSTm DataController.DataSource = DSTm
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -611,6 +611,7 @@ object frmRKSMEdit: TfrmRKSMEdit
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 69 Left = 69
Top = 130 Top = 130
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clInactiveCaption Color = clInactiveCaption

389
桂华管理系统/U_RKSMEdit.pas
View File

@ -3,13 +3,26 @@ unit U_RKSMEdit;
interface interface
uses uses
Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, strutils, SysUtils, Variants, Classes, Graphics, Controls,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls,
cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, ComCtrls, ToolWin, DBClient, ADODB, MovePanel, MMSystem, cxLookAndFeels,
MovePanel,MMSystem; cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter, cxNavigator;
type type
TfrmRKSMEdit = class(TForm) TfrmRKSMEdit = class(TForm)
@ -87,21 +100,18 @@ type
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure SmNOKeyPress(Sender: TObject; var Key: Char); procedure SmNOKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure kcKwBtnClick(Sender: TObject); procedure kcKwBtnClick(Sender: TObject);
procedure Button4Click(Sender: TObject); procedure Button4Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure InitMJID(); procedure InitMJID();
function SaveRK():Boolean; function SaveRK(): Boolean;
Procedure QueryRk(); procedure QueryRk();
Procedure QueryTM(); procedure QueryTM();
{ Private declarations } { Private declarations }
public public
{ Public declarations } { Public declarations }
@ -111,10 +121,12 @@ var
frmRKSMEdit: TfrmRKSMEdit; frmRKSMEdit: TfrmRKSMEdit;
implementation implementation
uses uses
U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; U_DataLink, U_Fun, U_UserHelp, U_ZDYHelp;
{$R *.dfm} {$R *.dfm}
Procedure TfrmRKSMEdit.QueryTm();
procedure TfrmRKSMEdit.QueryTm();
begin begin
with ADOQueryTM do with ADOQueryTM do
begin begin
@ -122,12 +134,13 @@ begin
sql.Clear; sql.Clear;
sql.Add('select TOP 50 MJID'); sql.Add('select TOP 50 MJID');
sql.Add('from WFB_MJJY A '); sql.Add('from WFB_MJJY A ');
SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID=' + quotedstr(trim(smNO.Text)));
sql.Add(') and A.mjstr2=''δÈë¿â'' '); sql.Add(') and A.mjstr2=''δÈë¿â'' ');
open; open;
end; end;
end; end;
Procedure TfrmRKSMEdit.QueryRk();
procedure TfrmRKSMEdit.QueryRk();
begin begin
with ADOQuery1 do with ADOQuery1 do
begin begin
@ -138,23 +151,24 @@ begin
sql.Add('RK_RollNum=(select sum(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''¼ìÑéÈë¿â''),'); sql.Add('RK_RollNum=(select sum(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''¼ìÑéÈë¿â''),');
sql.Add('RK_Qty=(select sum(Qty) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''¼ìÑéÈë¿â'') '); sql.Add('RK_Qty=(select sum(Qty) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''¼ìÑéÈë¿â'') ');
sql.Add('from JYOrder_sub_anPai A '); sql.Add('from JYOrder_sub_anPai A ');
SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID=' + quotedstr(trim(smNO.Text)));
sql.Add(')'); sql.Add(')');
open; open;
end; end;
end; end;
function TfrmRKSMEdit.SaveRK():Boolean;
function TfrmRKSMEdit.SaveRK(): Boolean;
var var
maxno:String; maxno: string;
CRID:Integer; CRID: Integer;
MaxCkNo,MaxCkSubNo:String; MaxCkNo, MaxCkSubNo: string;
MhcTime:TdateTime; MhcTime: TdateTime;
begin begin
Result:=false; Result := false;
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
try try
with ADOQueryTmp do with ADOQueryTmp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
@ -162,21 +176,21 @@ begin
sql.Add('select * from CK_BanCP_CRID'); sql.Add('select * from CK_BanCP_CRID');
Open; Open;
end; end;
CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; CRID := ADOQueryTmp.fieldbyname('CRID').AsInteger;
if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',5,1)=False then if GetLSNo(ADOQueryTmp, MaxCkNo, 'JR', 'CK_BanCP_CR', 5, 1) = False then
begin begin
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取成品仓库最大号失败！','提示',0); Application.MessageBox('取成品仓库最大号失败！', '提示', 0);
Exit; Exit;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_BanCP_CR where 1<>1'); sql.Add('select * from CK_BanCP_CR where 1<>1');
Open; Open;
end; end;
{ with ADOQueryTmp do { with ADOQueryTmp do
begin begin
close; close;
@ -193,81 +207,81 @@ begin
mhcTime:=date(); mhcTime:=date();
end; end;
end; } end; }
mhcTime:=SGetServerDateTime(ADOQueryTmp); MhcTime := SGetServerDateTime(ADOQueryTmp);
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); FieldByName('MainId').Value := Trim(ADOQueryMain.fieldbyname('MainId').AsString);
FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); FieldByName('SubId').Value := Trim(ADOQueryMain.fieldbyname('SubId').AsString);
FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('C_Code').AsString); FieldByName('C_Code').Value := Trim(ADOQueryMain.fieldbyname('C_Code').AsString);
FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); FieldByName('C_CodeName').Value := Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString);
FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); FieldByName('C_SPec').Value := Trim(ADOQueryMain.fieldbyname('C_SPec').AsString);
FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); FieldByName('C_Color').Value := Trim(ADOQueryMain.fieldbyname('C_Color').AsString);
FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); FieldByName('APID').Value := Trim(ADOQueryMain.fieldbyname('APID').AsString);
FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); FieldByName('MJID').Value := Trim(ADOQueryMain.fieldbyname('MJId').AsString);
FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); FieldByName('mjxh').Value := Trim(ADOQueryMain.fieldbyname('mjxh').AsString);
FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); FieldByName('BCGangNO').Value := Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString);
FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); FieldByName('RCGangNO').Value := Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString);
FieldByName('BCID').Value:=Trim(MaxCkNo); FieldByName('BCID').Value := Trim(MaxCkNo);
FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', MhcTime);
FieldByName('CRFlag').Value:='入库'; FieldByName('CRFlag').Value := '入库';
FieldByName('CRType').Value:='检验入库'; FieldByName('CRType').Value := '检验入库';
FieldByName('CRID').Value:=CRID; FieldByName('CRID').Value := CRID;
FieldByName('KGQty').Value:=0; FieldByName('KGQty').Value := 0;
FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; FieldByName('Qty').Value := ADOQueryMain.fieldbyname('MJLen').Value;
FieldByName('RollNum').Value:=1; FieldByName('RollNum').Value := 1;
FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; FieldByName('QtyUnit').Value := ADOQueryMain.fieldbyname('MJTypeOther').Value;
FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; FieldByName('CPType').Value := ADOQueryMain.fieldbyname('MJType').Value;
FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; FieldByName('Note').Value := ADOQueryMain.fieldbyname('Note').Value;
FieldByName('Filler').Value:=Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTmp);
// FieldByName('kcKw').Value:=Trim(kcKw.Text); // FieldByName('kcKw').Value:=Trim(kcKw.Text);
fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); fieldbyname('kcKw').Value := GetKw(ADOQueryTmp, ADOQueryMain.fieldbyname('C_CodeName').AsString, ADOQueryMain.fieldbyname('C_Color').AsString);
Post; Post;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_BanCP_KC where 1<>1'); sql.Add('select * from CK_BanCP_KC where 1<>1');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Append; Append;
FieldByName('CRID').Value:=CRID; FieldByName('CRID').Value := CRID;
FieldByName('BCID').Value:=Trim(MaxCkNo); FieldByName('BCID').Value := Trim(MaxCkNo);
FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', MhcTime);
FieldByName('CRType').Value:='检验入库'; FieldByName('CRType').Value := '检验入库';
FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; FieldByName('CPType').Value := ADOQueryMain.fieldbyname('MJType').Value;
FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('C_Code').AsString); FieldByName('C_Code').Value := Trim(ADOQueryMain.fieldbyname('C_Code').AsString);
FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); FieldByName('C_CodeName').Value := Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString);
FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); FieldByName('C_SPec').Value := Trim(ADOQueryMain.fieldbyname('C_SPec').AsString);
FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); FieldByName('C_Color').Value := Trim(ADOQueryMain.fieldbyname('C_Color').AsString);
FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); FieldByName('BCGangNO').Value := Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString);
FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); FieldByName('RCGangNO').Value := Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString);
FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); FieldByName('MJID').Value := Trim(ADOQueryMain.fieldbyname('MJID').AsString);
FieldByName('KCKGQty').Value:=0; FieldByName('KCKGQty').Value := 0;
FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; FieldByName('KCQty').Value := ADOQueryMain.fieldbyname('MJlen').Value;
FieldByName('KCRollNum').Value:=1; FieldByName('KCRollNum').Value := 1;
FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; FieldByName('KCQtyUnit').Value := ADOQueryMain.fieldbyname('MJTypeOther').Value;
FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); FieldByName('mjxh').Value := Trim(ADOQueryMain.fieldbyname('mjxh').AsString);
FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; FieldByName('KCNote').Value := ADOQueryMain.fieldbyname('Note').Value;
// FieldByName('kcKw').Value:=Trim(kcKw.Text); // FieldByName('kcKw').Value:=Trim(kcKw.Text);
fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); fieldbyname('kcKw').Value := GetKw(ADOQueryTmp, ADOQueryMain.fieldbyname('C_CodeName').AsString, ADOQueryMain.fieldbyname('C_Color').AsString);
Post; Post;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update WFB_MJJY Set MJStr2=''已入库'' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); sql.Add('Update WFB_MJJY Set MJStr2=''已入库'' where MJID=''' + Trim(ADOQueryMain.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=true; Result := true;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
end; end;
@ -283,96 +297,115 @@ begin
SQL.Add('where 1=2 '); SQL.Add('where 1=2 ');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,CDSMJID); SCreateCDS20(ADOQueryMain, CDSMJID);
SInitCDSData20(ADOQueryMain,CDSMJID); SInitCDSData20(ADOQueryMain, CDSMJID);
end; end;
procedure TfrmRKSMEdit.InitMJID(); procedure TfrmRKSMEdit.InitMJID();
begin begin
MovePanel1.Visible:=false; MovePanel1.Visible := false;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select A.* from WFB_MJJY A'); SQL.Add('select A.* from WFB_MJJY A');
sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); sql.Add('where MJID=' + quotedstr(trim(SmNO.Text)));
Open; Open;
if not IsEmpty then if not IsEmpty then
begin begin
IF trim(Fieldbyname('MJstr2').AsString)='已入库' then if trim(Fieldbyname('MJstr2').AsString) = '已入库' then
begin begin
CDSMJID.Append; CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value:='此条码已入库'; CDSMJID.FieldByName('SDefNote').Value := '此条码已入库';
CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text);
CDSMJID.Post; CDSMJID.Post;
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\此条码已入库.wav')) then if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已入库.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\此条码已入库.wav'),0, SND_ASYNC); PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已入库.wav'), 0, SND_ASYNC);
end end
else else
begin begin
IF saveRk() then if saveRk() then
begin begin
CDSMJID.Append; CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value:='入库成功'; CDSMJID.FieldByName('SDefNote').Value := '入库成功';
CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); CDSMJID.FieldByName('MJID').Value := trim(ADOQueryMain.Fieldbyname('MJID').AsString);
// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); // CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString);
CDSMJID.FieldByName('C_CodeName').Value:=trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); CDSMJID.FieldByName('C_CodeName').Value := trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString);
CDSMJID.FieldByName('C_Color').Value:=trim(ADOQueryMain.Fieldbyname('C_Color').AsString); CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString);
CDSMJID.FieldByName('CPType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); CDSMJID.FieldByName('CPType').Value := trim(ADOQueryMain.Fieldbyname('MJType').AsString);
CDSMJID.FieldByName('RollNum').Value:=1; CDSMJID.FieldByName('RollNum').Value := 1;
CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; CDSMJID.FieldByName('Qty').Value := ADOQueryMain.Fieldbyname('MJLen').AsFloat;
CDSMJID.FieldByName('QtyUnit').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); CDSMJID.FieldByName('QtyUnit').Value := trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString);
CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); CDSMJID.FieldByName('mainID').Value := trim(ADOQueryMain.Fieldbyname('mainID').AsString);
CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); CDSMJID.FieldByName('subID').Value := trim(ADOQueryMain.Fieldbyname('subID').AsString);
CDSMJID.FieldByName('RCGangNO').Value:=trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); CDSMJID.FieldByName('RCGangNO').Value := trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString);
CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); CDSMJID.FieldByName('BCgangNO').Value := trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString);
CDSMJID.Post; CDSMJID.Post;
QueryRk(); QueryRk();
QueryTm(); QueryTm();
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\正确.wav')) then with ADOQueryTM do
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\正确.wav'),0, SND_ASYNC); begin
close;
sql.Clear;
sql.Add('select count(*) PS');
sql.Add('from WFB_MJJY A ');
SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID=' + quotedstr(trim(smNO.Text)));
sql.Add(') and A.mjstr2=''未入库'' ');
open;
end;
if ADOQueryTM.FieldByName('PS').AsInteger > 0 then
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\本缸有剩余.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\本缸有剩余.wav'), 0, SND_ASYNC);
end
else
begin
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\完成.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\完成.wav'), 0, SND_ASYNC);
end;
// if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav')) then
// PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav'), 0, SND_ASYNC);
end end
else else
begin begin
CDSMJID.Append; CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value:='此条码入库失败'; CDSMJID.FieldByName('SDefNote').Value := '此条码入库失败';
CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text);
CDSMJID.Post; CDSMJID.Post;
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\入库失败.wav')) then if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\入库失败.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\入库失败.wav'),0, SND_ASYNC); PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\入库失败.wav'), 0, SND_ASYNC);
end; end;
end; end;
end end
else else
begin begin
CDSMJID.Append; CDSMJID.Append;
CDSMJID.FieldByName('SDefNote').Value:='此条码不存在'; CDSMJID.FieldByName('SDefNote').Value := '此条码不存在';
CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text);
CDSMJID.Post; CDSMJID.Post;
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\扫描错误.wav')) then if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav')) then
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\扫描错误.wav'),0, SND_ASYNC); PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav'), 0, SND_ASYNC);
end; end;
end; end;
IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'入库成功' then if trim(CDSMJID.FieldByName('SDefNote').AsString) <> '入库成功' then
begin begin
MovePanel1.Visible:=true; MovePanel1.Visible := true;
Edit2.Text:=SmNO.Text; Edit2.Text := SmNO.Text;
Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); Label2.Caption := trim(CDSMJID.FieldByName('SDefNote').AsString);
end; end;
end; end;
procedure TfrmRKSMEdit.FormDestroy(Sender: TObject); procedure TfrmRKSMEdit.FormDestroy(Sender: TObject);
begin begin
frmRKSMEdit:=nil; frmRKSMEdit := nil;
end; end;
procedure TfrmRKSMEdit.FormClose(Sender: TObject; procedure TfrmRKSMEdit.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
writeCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); writeCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
writeCxGrid(self.Caption+Tv2.Name,Tv2,'成品仓库'); writeCxGrid(self.Caption + Tv2.Name, Tv2, '成品仓库');
writeCxGrid(self.Caption+Tv3.Name,Tv3,'成品仓库'); writeCxGrid(self.Caption + Tv3.Name, Tv3, '成品仓库');
Action:=cahide; Action := cahide;
end; end;
procedure TfrmRKSMEdit.TBCloseClick(Sender: TObject); procedure TfrmRKSMEdit.TBCloseClick(Sender: TObject);
@ -382,56 +415,55 @@ end;
procedure TfrmRKSMEdit.FormCreate(Sender: TObject); procedure TfrmRKSMEdit.FormCreate(Sender: TObject);
begin begin
Panel2.Align:=alClient; Panel2.Align := alClient;
readCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); readCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
readCxGrid(self.Caption+Tv2.Name,Tv2,'成品仓库'); readCxGrid(self.Caption + Tv2.Name, Tv2, '成品仓库');
readCxGrid(self.Caption+Tv3.Name,Tv3,'成品仓库'); readCxGrid(self.Caption + Tv3.Name, Tv3, '成品仓库');
end; end;
procedure TfrmRKSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char); procedure TfrmRKSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char);
begin begin
IF key=#13 then if Key = #13 then
begin begin
if trim(smno.Text)='' then exit; if trim(smno.Text) = '' then
exit;
initMJID(); initMJID();
smno.Text:=''; smno.Text := '';
smno.SetFocus; smno.SetFocus;
end; end;
end; end;
procedure TfrmRKSMEdit.FormShow(Sender: TObject); procedure TfrmRKSMEdit.FormShow(Sender: TObject);
begin begin
MovePanel1.Left:=(Width-MovePanel1.Width) div 2; MovePanel1.Left := (Width - MovePanel1.Width) div 2;
MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; MovePanel1.top := (Height - MovePanel1.Height - 200) div 2;
InitGrid(); InitGrid();
end; end;
procedure TfrmRKSMEdit.TV2CustomDrawCell(Sender: TcxCustomGridTableView; procedure TfrmRKSMEdit.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
var var
i:integer; i: integer;
begin begin
i:=tv2.GetColumnByFieldName('SDefNote').Index; i := tv2.GetColumnByFieldName('SDefNote').Index;
if (AViewInfo.GridRecord.Values[i]<>'入库成功') then if (AViewInfo.GridRecord.Values[i] <> '入库成功') then
ACanvas.Brush.Color:=clred; ACanvas.Brush.Color := clred;
end; end;
procedure TfrmRKSMEdit.kcKwBtnClick(Sender: TObject); procedure TfrmRKSMEdit.kcKwBtnClick(Sender: TObject);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='CPKWFlag'; flag := 'CPKWFlag';
flagname:='库位信息'; flagname := '库位信息';
V1Name.Caption:='库位名称'; V1Name.Caption := '库位名称';
V1Note.Caption:='英文名称'; V1Note.Caption := '英文名称';
// MainType:=Trim(DName); // MainType:=Trim(DName);
fnote:=FALSE; fnote := FALSE;
if ShowModal=1 then if ShowModal = 1 then
begin begin
kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); kcKw.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
@ -441,8 +473,9 @@ end;
procedure TfrmRKSMEdit.Button4Click(Sender: TObject); procedure TfrmRKSMEdit.Button4Click(Sender: TObject);
begin begin
MovePanel1.Visible:=False; MovePanel1.Visible := False;
SmNO.SetFocus; SmNO.SetFocus;
end; end;
end. end.