diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas index 7ced0b7..6969a10 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas @@ -159,10 +159,10 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered:=False; Close; sql.Clear; - sql.Add('select * '); + sql.Add('select *,C_CodeName as C_CodeNameM '); 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))+''' '); diff --git a/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas index ca60587..aed6160 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas @@ -220,14 +220,14 @@ begin mNewHandle:=frmSXCRKList.Handle; end ; 5: //ӹ - begin + begin if frmWJGMDList=nil then begin frmWJGMDList:= TfrmWJGMDList.Create(application.MainForm); with frmWJGMDList do begin caption:=Trim(Title); - FormStyle := mstyle ; + FormStyle := mstyle ; windowState := mstate ; BorderStyle := mborderstyle; //show; diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm index a75d4da..cda75b7 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -1,6 +1,6 @@ object frmSXCKInPut: TfrmSXCKInPut - Left = 247 - Top = 398 + Left = 258 + Top = 353 Width = 1382 Height = 655 Align = alClient @@ -256,6 +256,12 @@ object frmSXCKInPut: TfrmSXCKInPut HeaderAlignmentHorz = taCenter Width = 79 end + object Tv1Column1: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'CGConNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas index 3ad498c..b663b29 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -60,6 +60,7 @@ type Panel1: TPanel; Label1: TLabel; ToolButton1: TToolButton; + Tv1Column1: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -516,7 +517,7 @@ end; procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ɴǼ', Tv1, 'ɴֿ߲'); + WriteCxGrid('Ǽ', Tv1, 'ֿ'); Close; end; @@ -527,7 +528,7 @@ begin ReadCxGrid('Ǽ', Tv1, 'ֿ'); with ADOQueryTemp do begin - Close; + Close; sql.Clear; sql.Add(' select A.* '); 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; with frmClothContractList_CG_help.Order_Main do begin - First; +// First; // while frmClothContractList_CG_help.Order_Main.Locate('SSel', True, []) do begin with Self.CDS_Sub do diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm index 0f2de99..399cbde 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm @@ -1,6 +1,6 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList - Left = 34 - Top = 125 + Left = 306 + Top = 231 Width = 1181 Height = 511 Align = alClient @@ -260,12 +260,12 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList Left = 0 Top = 93 Width = 1165 - Height = 380 + Height = 379 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas index b0c863d..1858631 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas @@ -11,7 +11,22 @@ uses cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, - cxCalendar, cxButtonEdit, cxTextEdit; + 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 TfrmSXCKKCSelList = class(TForm) diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm index 4a1fa91..ea73fbf 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm @@ -1,6 +1,6 @@ object frmSXCKNewList: TfrmSXCKNewList - Left = 14 - Top = 141 + Left = 355 + Top = 417 Width = 1335 Height = 511 Caption = #22383#24067#20837#24211#21015#34920 @@ -568,6 +568,12 @@ object frmSXCKNewList: TfrmSXCKNewList HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column5: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'CGConNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas index b7ffe16..7f3dd52 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -102,6 +102,7 @@ type Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -329,7 +330,7 @@ begin begin Self.InitGrid(); end; - end; + end; finally frmSXCKInPut.Free; end; diff --git a/桂华管理系统/U_CPKCzhl.dfm b/桂华管理系统/U_CPKCzhl.dfm new file mode 100644 index 0000000..f989ed4 --- /dev/null +++ b/桂华管理系统/U_CPKCzhl.dfm @@ -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 diff --git a/桂华管理系统/U_CPKCzhl.pas b/桂华管理系统/U_CPKCzhl.pas new file mode 100644 index 0000000..71e8d34 --- /dev/null +++ b/桂华管理系统/U_CPKCzhl.pas @@ -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. + diff --git a/桂华管理系统/U_ClothContractInPut.dfm b/桂华管理系统/U_ClothContractInPut.dfm index b03f336..dc67948 100644 --- a/桂华管理系统/U_ClothContractInPut.dfm +++ b/桂华管理系统/U_ClothContractInPut.dfm @@ -598,6 +598,12 @@ object frmClothContractInPut: TfrmClothContractInPut DataBinding.FieldName = 'kctzsl' Width = 90 end + object Tv1Column4: TcxGridDBColumn + Caption = #20854#20182#36153 + DataBinding.FieldName = 'OtherFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -657,4 +663,18 @@ object frmClothContractInPut: TfrmClothContractInPut Left = 528 Top = 200 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 diff --git a/桂华管理系统/U_ClothContractInPut.pas b/桂华管理系统/U_ClothContractInPut.pas index c7d4c53..e5d33ff 100644 --- a/桂华管理系统/U_ClothContractInPut.pas +++ b/桂华管理系统/U_ClothContractInPut.pas @@ -3,28 +3,27 @@ unit U_ClothContractInPut; interface uses - Windows, Messages,strUtils, SysUtils, cxTextEdit,Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + Windows, Messages, strUtils, SysUtils, cxTextEdit, Variants, Classes, Graphics, + Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxClasses, cxControls, - cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, - cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, - ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, - dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, - dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, - dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, 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; + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmClothContractInPut = class(TForm) @@ -94,62 +93,50 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; procedure TBCloseClick(Sender: TObject); - procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Button1Click(Sender: TObject); procedure TVZDYKeyPress(Sender: TObject; var Key: Char); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1PRTColorPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1PRTMFPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column2PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FactoryNoNamePropertiesChange(Sender: TObject); - procedure CompanyNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure JHPlacePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column1PropertiesEditValueChanged(Sender: TObject); procedure fromConNoKeyPress(Sender: TObject; var Key: Char); procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); - procedure fromConNoPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column6PropertiesEditValueChanged(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); - procedure Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); private - FXS:Integer; + FXS: Integer; procedure InitData(); - procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); - function SaveData():Boolean; - function YFData(fMainID,FsubID:string):Boolean; - procedure DoQuery(fkeyNo:string); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function YFData(fMainID, FsubID: string): Boolean; + function YSData_other(Order_Main10: TClientDataSet; FYFName: string; fMoney: double): Boolean; + procedure DoQuery(fkeyNo: string); procedure DoKc(); { Private declarations } public - PState:Integer; - FMainId:String; + PState: Integer; + FMainId: string; { Public declarations } end; @@ -158,58 +145,194 @@ var frmClothContractInPut: TfrmClothContractInPut; implementation + uses - U_DataLink,U_ZDYHelp,U_Fun, U_ZdyAttachGYS,U_ClothContractList_CG_help, + U_DataLink, U_ZDYHelp, U_Fun, U_ZdyAttachGYS, U_ClothContractList_CG_help, U_ZdyAttachCP; {$R *.dfm} +function TfrmClothContractInPut.YSData_other(Order_Main10: TClientDataSet; FYFName: string; fMoney: double): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, customName: string; +begin + Result := False; + with Order_Main10 do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(Order_Main10.fieldbyname('CustomerNoName').AsString) + ''''); + sql.Add(' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + CRID := ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(Order_Main10.fieldbyname('MainID').AsString) + ''''); + sql.Add(' and subID=''' + Trim(Order_Main10.fieldbyname('subID').AsString) + ''''); + sql.Add(' and YFName=''' + trim(FYFName) + ''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 4, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(Order_Main10.fieldbyname('MainId').AsString); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦտǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('CRTime').Value := SGetServerDate(ADOTemp); + FieldByName('YFType').Value := 'Զ'; + FieldByName('Qty').Value := 0; + FieldByName('Price').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('money').Value := fMoney; + FieldByName('BBmoney').Value := fMoney; + FieldByName('BZType').Value := ''; + FieldByName('QtyUnit').Value := 'M'; + FieldByName('ComTaiTou').Value := Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('YFName').Value := trim(FYFName); + FieldByName('P_CodeName').Value := Trim(Order_Main10.fieldbyname('PRTCodeName').AsString); + FieldByName('P_Color').Value := Trim(Order_Main10.fieldbyname('PRTColor').AsString); + FieldByName('MainId').Value := Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value := Trim(Order_Main10.fieldbyname('subID').AsString); + FieldByName('SYRName').Value := Trim(Order_Main10.fieldbyname('SYRName').AsString); + FieldByName('YFDefFlag1').Value := 0; + FieldByName('status').Value := '1'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + trim(YFID) + ''''); + Open; + edit; + FieldByName('CRTime').Value := SGetServerDate(ADOTemp); + post; + end; + 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; + end; + Result := True; +end; + procedure TfrmClothContractInPut.DoKc(); begin - Label11.Caption:='ۣ0'; - IF Order_Sub.IsEmpty then exit; - IF trim(Order_Sub.fieldbyname('C_CodeName').AsString)='' then exit; + Label11.Caption := 'ۣ0'; + if Order_Sub.IsEmpty then + exit; + if trim(Order_Sub.fieldbyname('C_CodeName').AsString) = '' then + exit; with ADOTemp do begin - close; - sql.Clear; - SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); - sql.Add(' where P_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); - sql.Add(' and factoryName='+quotedstr(trim(FactoryNoName.Text))); - sql.Add(' and CRType=''ӦǼ'' '); - sql.Add(' and price>0 '); - sql.Add(' order by FillTime desc'); - open; + close; + sql.Clear; + SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); + sql.Add(' where P_CodeName=' + quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add(' and factoryName=' + quotedstr(trim(FactoryNoName.Text))); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; end; - IF not ADOTemp.IsEmpty then + if not ADOTemp.IsEmpty then begin - Label11.Caption:='ۣ'+trim(ADOTemp.fieldbyname('price').AsString); + Label11.Caption := 'ۣ' + trim(ADOTemp.fieldbyname('price').AsString); end; end; -procedure TfrmClothContractInPut.DoQuery(fkeyNo:string); + +procedure TfrmClothContractInPut.DoQuery(fkeyNo: string); begin - IF trim(fkeyNo)='' then exit; + if trim(fkeyNo) = '' then + exit; with ADOTemp do begin close; sql.Clear; sql.Add('select A.* from Contract_Main A '); sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); - sql.Add('where A.conNo='+quotedstr(trim(fkeyNo))); + sql.Add('where A.conNo=' + quotedstr(trim(fkeyNo))); sql.Add('and Isnull(B.C_status,''0'')=''0'' '); open; - IF not IsEmpty then + if not IsEmpty then begin - FactoryNoName.Text:=fieldbyname('FactoryNoName').AsString; - LXPerson.Text:=fieldbyname('LXPerson').AsString; - LXPerson.Text:=fieldbyname('LXPerson').AsString; - LXTel.Text:=fieldbyname('LXPerson').AsString; - fromConNo.Hint:=fieldbyname('mainID').AsString; - JHPlace.Text:=fieldbyname('QDPalce').AsString; + FactoryNoName.Text := fieldbyname('FactoryNoName').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXTel.Text := fieldbyname('LXPerson').AsString; + fromConNo.Hint := fieldbyname('mainID').AsString; + JHPlace.Text := fieldbyname('QDPalce').AsString; end else begin - application.MessageBox('˲ɹƻŴ','ʾϢ',0); + application.MessageBox('˲ɹƻŴ', 'ʾϢ', 0); exit; end; end; @@ -221,13 +344,13 @@ begin sql.Add('select * '); sql.Add('from Contract_Main A'); sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); - sql.Add('where A.conNo='+quotedstr(trim(fkeyNo))); + sql.Add('where A.conNo=' + quotedstr(trim(fkeyNo))); sql.Add('and Isnull(B.C_status,''0'')=''0'' '); open; - IF not IsEmpty then + if not IsEmpty then begin - SCreateCDS20(ADOTemp,Order_Sub); - SInitCDSData20(ADOTemp,Order_Sub); + SCreateCDS20(ADOTemp, Order_Sub); + SInitCDSData20(ADOTemp, Order_Sub); end else begin @@ -240,10 +363,10 @@ begin while not eof do begin edit; - fieldbyname('fromMainID').Value:= fieldbyname('MainID').AsString; - fieldbyname('fromsubID').Value:= fieldbyname('subID').AsString; - fieldbyname('MainID').Value:= ''; - fieldbyname('subID').Value:= ''; + fieldbyname('fromMainID').Value := fieldbyname('MainID').AsString; + fieldbyname('fromsubID').Value := fieldbyname('subID').AsString; + fieldbyname('MainID').Value := ''; + fieldbyname('subID').Value := ''; post; next; end; @@ -252,22 +375,23 @@ begin end; end; -function TfrmClothContractInPut.YFData(fMainID,FsubID:string):Boolean; + +function TfrmClothContractInPut.YFData(fMainID, FsubID: string): Boolean; var - CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; + CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName: string; begin - Result:=False; + Result := False; try with ADOQueryTmp do begin Close; SQL.Clear; - sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(FactoryNoName.Text)+''''); + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(FactoryNoName.Text) + ''''); Open; end; if not ADOQueryTmp.IsEmpty then begin - CRID:=ADOQueryTmp.fieldbyname('CRID').AsString; + CRID := ADOQueryTmp.fieldbyname('CRID').AsString; end else begin @@ -279,21 +403,21 @@ begin sql.Add('select * from YF_Money_CRID '); Open; end; - CRID:=ADOCmd.fieldbyname('CRID').AsString; + CRID := ADOCmd.fieldbyname('CRID').AsString; with ADOCmd do begin Close; SQL.Clear; sql.Add('select * from YF_Money_KC '); - sql.add('where CRID='+quotedstr(trim(CRID))); + sql.add('where CRID=' + quotedstr(trim(CRID))); Open; end; with ADOCmd do begin Append; - FieldByName('CRID').Value:=StrToInt(CRID); - FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); - FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value := 'Ӧ'; Post; end; end; @@ -302,28 +426,28 @@ begin begin Close; sql.Clear; - sql.Add('select * from YF_Money_CR where mainID='''+Trim(FmainID)+''''); - sql.Add('and subID='''+Trim(FsubID)+''''); + sql.Add('select * from YF_Money_CR where mainID=''' + Trim(fMainID) + ''''); + sql.Add('and subID=''' + Trim(FsubID) + ''''); sql.Add('and YFName='''' '); Open; end; if ADOQueryTmp.IsEmpty then begin - if GetLSNo(ADOCmd,YFID,'YF','YF_Money_CR',3,1)=False then + if GetLSNo(ADOCmd, YFID, 'YF', 'YF_Money_CR', 3, 1) = False then begin - Application.MessageBox('ȡӦʧ!','ʾ',0); + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); Exit; end; end else begin - YFID:=Trim(ADOQueryTmp.fieldbyname('YFID').AsString); + YFID := Trim(ADOQueryTmp.fieldbyname('YFID').AsString); end; with ADOCmd do begin Close; sql.Clear; - sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + sql.Add('select * from YF_Money_CR where YFID=''' + Trim(YFID) + ''''); Open; end; with ADOCmd do @@ -332,31 +456,31 @@ begin Append else Edit; - FieldByName('YFID').Value:=Trim(YFID); - FieldByName('YFTypeId').Value:=Trim(ConNo.Text); - FieldByName('CRID').Value:=StrToInt(CRID); - FieldByName('Filler').Value:=Trim(DName); - FieldByName('CRType').Value:='ӦǼ'; - FieldByName('CRFlag').Value:='Ӧ'; - FieldByName('QtyFlag').Value:=1; - FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); - FieldByName('CRTime').Value:=formatDateTime('yyyy-MM-dd',DeliveryDate.Date); - FieldByName('Qty').Value:=Order_Sub.fieldbyname('C_Qty').AsFloat; - FieldByName('PS').Value:=Order_Sub.fieldbyname('Qty1').AsFloat; - FieldByName('T_Ps').Value:=Order_Sub.fieldbyname('T_Ps').AsFloat; - FieldByName('T_Qty').Value:=Order_Sub.fieldbyname('T_Qty').AsFloat; - FieldByName('YFType').Value:='Զ'; - FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').asfloat; - FieldByName('T_Price').Value:=Order_Sub.fieldbyname('T_Price').asfloat; - FieldByName('HuiLv').Value:=1; - FieldByName('BZType').Value:=''; - FieldByName('ComTaiTou').Value:=Trim(FComTaiTou); - FieldByName('QtyUnit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); - FieldByName('YFName').Value:=''; - FieldByName('MainId').Value:=Trim(fMainID); - FieldByName('subID').Value:=Trim(fsubID); - FieldByName('P_CodeName').Value:=Trim(Order_Sub.fieldbyname('C_CodeName').AsString); - FieldByName('P_Color').Value:=Trim(Order_Sub.fieldbyname('C_color').AsString); + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(ConNo.Text); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('CRTime').Value := formatDateTime('yyyy-MM-dd', DeliveryDate.Date); + FieldByName('Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + FieldByName('PS').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('T_Ps').Value := Order_Sub.fieldbyname('T_Ps').AsFloat; + FieldByName('T_Qty').Value := Order_Sub.fieldbyname('T_Qty').AsFloat; + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := Order_Sub.fieldbyname('Price').asfloat; + FieldByName('T_Price').Value := Order_Sub.fieldbyname('T_Price').asfloat; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('ComTaiTou').Value := Trim(FComTaiTou); + FieldByName('QtyUnit').Value := Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('subID').Value := Trim(FsubID); + FieldByName('P_CodeName').Value := Trim(Order_Sub.fieldbyname('C_CodeName').AsString); + FieldByName('P_Color').Value := Trim(Order_Sub.fieldbyname('C_color').AsString); Post; end; @@ -365,7 +489,7 @@ begin Close; sql.Clear; sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty,T_money=T_Price*T_Qty '); - sql.Add(' where YFID='''+Trim(YFID)+''''); + sql.Add(' where YFID=''' + Trim(YFID) + ''''); ExecSQL; end; with ADOCmd do @@ -374,13 +498,14 @@ begin 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); + sql.Add(' where CRID=' + CRID); ExecSQL; end; - Result:=True; + Result := True; except end; end; + procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject); begin Close; @@ -395,20 +520,20 @@ begin sql.Add('select * '); sql.Add('from Contract_Main A'); sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); - sql.Add('where A.mainID= '''+Trim(fMainID)+''' '); + sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); sql.Add('and A.conType='''' '); Open; end; - SCreateCDS20(ADOQueryTmp,Order_Sub); - SInitCDSData20(ADOQueryTmp,Order_Sub); - SCSHData(ADOQueryTmp,ScrollBox1,0); - IF not ADOQueryTmp.IsEmpty then + SCreateCDS20(ADOQueryTmp, Order_Sub); + SInitCDSData20(ADOQueryTmp, Order_Sub); + SCSHData(ADOQueryTmp, ScrollBox1, 0); + if not ADOQueryTmp.IsEmpty then begin - fromConNo.Hint:=trim(ADOQueryTmp.fieldbyname('fromMainID').AsString); - fromConNo.Text:=trim(ADOQueryTmp.fieldbyname('fromConNo').AsString); + fromConNo.Hint := trim(ADOQueryTmp.fieldbyname('fromMainID').AsString); + fromConNo.Text := trim(ADOQueryTmp.fieldbyname('fromConNo').AsString); end; - if PState=0 then + if PState = 0 then begin with ADOTemp do begin @@ -417,66 +542,66 @@ begin sql.Add('select Top 1* from Contract_Main order by FillTime desc '); Open; end; - QDTime.DateTime:=SGetServerDate(ADOTemp); - DeliveryDate.DateTime:=SGetServerDate(ADOTemp); - QDTime.Checked:=True; - DeliveryDate.Checked:=False; + QDTime.DateTime := SGetServerDate(ADOTemp); + DeliveryDate.DateTime := SGetServerDate(ADOTemp); + QDTime.Checked := True; + DeliveryDate.Checked := False; // ConNo.Text:='Զ'; //CompanyName.Text:='¡֯'; end; - PanZDY.Visible:=False; + PanZDY.Visible := False; end; -procedure TfrmClothContractInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +procedure TfrmClothContractInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); var - FType,ZDYName,FText:String; + FType, ZDYName, FText: string; begin - PanZDY.Visible:=True; - PanZDY.Left:=FButn.Left; - PanZDY.Top:=FButn.Top+FButn.Height; + PanZDY.Visible := True; + PanZDY.Left := FButn.Left; + PanZDY.Top := FButn.Top + FButn.Height; with ADOZDY do begin - Filtered:=False; + Filtered := False; Close; SQL.Clear; - SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type=''' + Trim(LType) + ''''); Open; end; - FText:=Trim(FButn.Text); - if FText<>'' then - SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + FText := Trim(FButn.Text); + if FText <> '' then + SDofilter(ADOZDY, ' ZDYName like ' + QuotedStr('%' + Trim(FText) + '%')) else - SDofilter(ADOZDY,''); - VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); + SDofilter(ADOZDY, ''); + VHelpZDYName.Summary.GroupFormat := Trim(FButn.Name); end; -procedure TfrmClothContractInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmClothContractInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var - FName:string; + FName: string; begin - if ADOZDY.IsEmpty then Exit; - FName:=Trim(VHelpZDYName.Summary.GroupFormat); - TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); - TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); - PanZDY.Visible:=False; + if ADOZDY.IsEmpty then + Exit; + FName := Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible := False; end; procedure TfrmClothContractInPut.Button1Click(Sender: TObject); begin - PanZDY.Visible:=False; + PanZDY.Visible := False; end; procedure TfrmClothContractInPut.TVZDYKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin - if ADOZDY.IsEmpty then Exit; - TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); - TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); - PanZDY.Visible:=False; - ADOZDY.Active:=False; + if ADOZDY.IsEmpty then + Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible := False; + ADOZDY.Active := False; end; end; @@ -493,13 +618,13 @@ begin v1ClothQty.Visible:=True; v1PRTQty.Visible:=True; end;} - readCXgrid(self.Caption,tv1); + readCXgrid(self.Caption, tv1); InitData(); end; -function TfrmClothContractInPut.SaveData():Boolean; +function TfrmClothContractInPut.SaveData(): Boolean; var - maxno:String; + maxno: string; begin try ADOCmd.Connection.BeginTrans; @@ -508,165 +633,177 @@ begin begin Close; sql.Clear; - SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + SQL.Add('select * from Contract_Main where MainId=''' + Trim(fMainID) + ''''); Open; end; with ADOCmd do begin - if Trim(FMainId)='' then + if Trim(fMainID) = '' then begin Append; - if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',3,1)=False then + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣','ʾ',0); + Application.MessageBox('ˮ쳣', 'ʾ', 0); exit; end; end - else begin - maxno:=Trim(FMainId); + else + begin + maxno := Trim(fMainID); Edit; end; - FieldByName('MainId').Value:=Trim(maxno); - SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0); - FieldByName('LXPerson').Value:=Trim(LXPerson.Text); - FieldByName('LXTel').Value:=Trim(LXTel.Text); - if Trim(FMainId)='' then + FieldByName('MainId').Value := Trim(maxno); + SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0); + FieldByName('LXPerson').Value := Trim(LXPerson.Text); + FieldByName('LXTel').Value := Trim(LXTel.Text); + if Trim(fMainID) = '' then begin - FieldByName('Filler').Value:=Trim(DName); - end else + FieldByName('Filler').Value := Trim(DName); + end + else begin - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); end; - FieldByName('ConType').Value:=''; - FieldByName('status').Value:='0'; - FieldByName('fromconNo').Value:=Trim(fromConNo.Text); - FieldByName('fromMainID').Value:=Trim(fromConNo.Hint); + FieldByName('ConType').Value := ''; + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Trim(fromConNo.Text); + FieldByName('fromMainID').Value := Trim(fromConNo.Hint); Post; end; - FMainId:=Trim(maxno); + fMainID := Trim(maxno); ///ӱ with Order_Sub do begin First; while not Eof do begin - if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then begin end; - if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then begin - if GetLSNo(ADOTemp,maxno,'CS','Contract_Sub',3,1)=False then + if GetLSNo(ADOTemp, maxno, 'CS', 'Contract_Sub', 3, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡˮʧܣ','ʾ',0); + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); Exit; end; - end else + end + else begin - maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + maxno := Trim(Order_Sub.fieldbyname('SubId').AsString); end; with ADOCmd do begin Close; SQL.Clear; - sql.Add('select * from Contract_Sub where MainId='''+Trim(FMainId)+''''); - sql.Add(' and SubId='''+Trim(maxno)+''''); + sql.Add('select * from Contract_Sub where MainId=''' + Trim(fMainID) + ''''); + sql.Add(' and SubId=''' + Trim(maxno) + ''''); Open; end; with ADOCmd do begin - if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then Append else Edit; - FieldByName('MainId').Value:=Trim(FMainId); - FieldByName('SubId').Value:=Trim(maxno); - FieldByName('ConNo').Value:=Trim(ConNo.Text); - RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); - FieldByName('fromMainID').Value:=Trim(Order_Sub.fieldbyname('fromMainID').AsString); - FieldByName('fromsubID').Value:=Trim(Order_Sub.fieldbyname('fromsubID').AsString); - FieldByName('mrate').Value:=Trim(Order_Sub.fieldbyname('mrate').AsString); - FieldByName('C_status').Value:='0'; - FieldByName('MFQty').Value:=Order_Sub.fieldbyname('MFQty').AsFloat; - FieldByName('KZQty').Value:=Order_Sub.fieldbyname('KZQty').AsFloat; - FieldByName('C_Qty').Value:=Order_Sub.fieldbyname('C_Qty').AsFloat; - FieldByName('Qty1').Value:=Order_Sub.fieldbyname('Qty1').AsFloat; - FieldByName('Qty2').Value:=Order_Sub.fieldbyname('Qty2').AsFloat; - FieldByName('Qty3').Value:=Order_Sub.fieldbyname('Qty3').AsFloat; - FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').AsFloat; - FieldByName('money').Value:=Order_Sub.fieldbyname('money').AsFloat; - FieldByName('T_ps').Value:=Order_Sub.fieldbyname('T_ps').AsFloat; - FieldByName('T_Qty').Value:=Order_Sub.fieldbyname('T_Qty').AsFloat; - FieldByName('T_Price').Value:=Order_Sub.fieldbyname('T_Price').AsFloat; - FieldByName('T_money').Value:=Order_Sub.fieldbyname('T_money').AsFloat; - FieldByName('H_ps').Value:=Order_Sub.fieldbyname('H_ps').AsFloat; - FieldByName('H_Qty').Value:=Order_Sub.fieldbyname('H_Qty').AsFloat; - if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('SubId').Value := Trim(maxno); + FieldByName('ConNo').Value := Trim(ConNo.Text); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('mrate').Value := Trim(Order_Sub.fieldbyname('mrate').AsString); + FieldByName('C_status').Value := '0'; + FieldByName('MFQty').Value := Order_Sub.fieldbyname('MFQty').AsFloat; + FieldByName('KZQty').Value := Order_Sub.fieldbyname('KZQty').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty3').Value := Order_Sub.fieldbyname('Qty3').AsFloat; + FieldByName('Price').Value := Order_Sub.fieldbyname('Price').AsFloat; + FieldByName('money').Value := Order_Sub.fieldbyname('money').AsFloat; + FieldByName('T_ps').Value := Order_Sub.fieldbyname('T_ps').AsFloat; + FieldByName('T_Qty').Value := Order_Sub.fieldbyname('T_Qty').AsFloat; + FieldByName('T_Price').Value := Order_Sub.fieldbyname('T_Price').AsFloat; + FieldByName('T_money').Value := Order_Sub.fieldbyname('T_money').AsFloat; + FieldByName('H_ps').Value := Order_Sub.fieldbyname('H_ps').AsFloat; + FieldByName('H_Qty').Value := Order_Sub.fieldbyname('H_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then begin - if Order_Sub.fieldbyname('MFQty').AsFloat*Order_Sub.fieldbyname('KZQty').AsFloat >0 then - FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000 - /(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value); - end else + if Order_Sub.fieldbyname('MFQty').AsFloat * Order_Sub.fieldbyname('KZQty').AsFloat > 0 then + FieldByName('MQty').Value := Order_Sub.fieldbyname('C_Qty').Value * 1.00 * 1000 / (Order_Sub.fieldbyname('MFQty').Value * 1.00 / 100 * Order_Sub.fieldbyname('KZQty').Value); + end + else begin - FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value; + FieldByName('MQty').Value := Order_Sub.fieldbyname('C_Qty').Value; end; - FieldByName('C_Valid').Value:='Y'; + FieldByName('C_Valid').Value := 'Y'; Post; end; Order_Sub.Edit; - Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + Order_Sub.FieldByName('SubId').Value := Trim(maxno); - if not YFData(FMainId,maxno) then + if not YFData(fMainID, maxno) then begin ADOCmd.Connection.RollbackTrans; exit; end; + + if Order_Sub.FieldByName('OtherFee').AsFloat > 0 then + begin + if not YSData_other(Order_Sub, '', Order_Sub.FieldByName('OtherFee').AsFloat) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + exit; + end; + end; //Order_Sub.Post; Next; end; end; - ADOCmd.Connection.CommitTrans; - Result:=True; + Result := True; except - Result:=False; + Result := False; ADOCmd.Connection.RollbackTrans; - if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',3,1)=False then + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then begin end; - Application.MessageBox('ʧܣ','ʾ',0); + Application.MessageBox('ʧܣ', 'ʾ', 0); end; end; procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject); begin cxGrid1.SetFocus; - if Trim(ConNo.Text)='' then + if Trim(ConNo.Text) = '' then begin - Application.MessageBox('ͬŲΪգ','ʾ',0); + Application.MessageBox('ͬŲΪգ', 'ʾ', 0); Exit; end; - if Trim(FactoryNoName.Text)='' then + if Trim(FactoryNoName.Text) = '' then begin - Application.MessageBox('Ϊգ','ʾ',0); + Application.MessageBox('Ϊգ', 'ʾ', 0); Exit; end; if Order_Sub.IsEmpty then begin - Application.MessageBox('ϸΪգ','ʾ',0); + Application.MessageBox('ϸΪգ', 'ʾ', 0); exit; end; - if Order_Sub.Locate('C_Qty',null,[]) then + if Order_Sub.Locate('C_Qty', null, []) then begin - Application.MessageBox('Ϊ!','ʾ',0); + Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; - if Order_Sub.Locate('C_Unit',null,[]) then + if Order_Sub.Locate('C_Unit', null, []) then begin - Application.MessageBox('λΪ!','ʾ',0); + Application.MessageBox('λΪ!', 'ʾ', 0); Exit; end; { if Order_Sub.Locate('KZQty',null,[]) then @@ -684,20 +821,20 @@ begin close; sql.Clear; sql.Add('select MainID from Contract_Main A'); - sql.Add('where mainID<>'+quotedstr(trim(FMainId))); - sql.Add('and conNo='+quotedstr(trim(conNo.Text))); + sql.Add('where mainID<>' + quotedstr(trim(fMainID))); + sql.Add('and conNo=' + quotedstr(trim(conNo.Text))); sql.Add('and conType='''''); open; end; - IF not ADOTemp.IsEmpty then + if not ADOTemp.IsEmpty then begin - application.MessageBox('񵥺ظ','ʾϢ',0); + application.MessageBox('񵥺ظ', 'ʾϢ', 0); exit; end; if SaveData() then begin - Application.MessageBox('ɹ','ʾ',0); - ModalResult:=1; + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; // ConNo.Text:='Զ'; { FactoryNoName.Text:=''; CompanyName.Text:='֯'; @@ -706,23 +843,22 @@ begin JHPlace.Text:=''; Order_Sub.EmptyDataSet; PState:=0; - FMainId:=''; } + FMainId:=''; } end; end; -procedure TfrmClothContractInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrdUnit'; - flagname:='λ'; - if ShowModal=1 then + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('OrderUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -730,19 +866,18 @@ begin end; end; -procedure TfrmClothContractInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrdUnit'; - flagname:='λ'; - if ShowModal=1 then + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -750,19 +885,18 @@ begin end; end; -procedure TfrmClothContractInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrdColor'; - flagname:='ɫ'; - if ShowModal=1 then + flag := 'OrdColor'; + flagname := 'ɫ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -775,16 +909,17 @@ begin with Order_Sub do begin Append; - fieldbyname('PriceUnit').Value:=''; - fieldbyname('C_UNit').Value:='M'; + fieldbyname('PriceUnit').Value := ''; + fieldbyname('C_UNit').Value := 'M'; Post; end; end; procedure TfrmClothContractInPut.ToolButton2Click(Sender: TObject); begin - if Order_Sub.IsEmpty then Exit; - if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then begin { with ADOTemp do begin @@ -798,23 +933,23 @@ begin Application.MessageBox('ѵɾ!','ʾ',0); Exit; end; } - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOCmd do begin Close; sql.Clear; - sql.Add('delete YF_Money_CR where subID='''+Trim(Order_Sub.fieldbyname('subID').AsString)+''''); - sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add('delete YF_Money_CR where subID=''' + Trim(Order_Sub.fieldbyname('subID').AsString) + ''''); + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; end; Order_Sub.Delete; end; -procedure TfrmClothContractInPut.FactoryNoNamePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - if Trim(FMainId)<>'' then + if Trim(fMainID) <> '' then begin with ADOTemp do begin @@ -822,27 +957,27 @@ begin sql.Clear; sql.Add('select * from YF_Money_CR A where exists('); sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); - sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' where C.Mainid=''' + Trim(fMainID) + ''''); sql.Add(' and B.MXID=A.YFTypeId)'); Open; end; - if ADOTemp.IsEmpty=False then + if ADOTemp.IsEmpty = False then begin - Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Application.MessageBox('ѾӦ޸ĹӦ!', 'ʾ', 0); Exit; end; end; -try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin - FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); - FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); - LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); - LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + LXTel.Text := Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + LXPerson.Text := Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); end; end; finally @@ -850,20 +985,19 @@ try end; end; -procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); with frmZdyAttachCP do begin - fType:=''; - if ShowModal=1 then + FType := ''; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('C_Code').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); - Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); - Self.Order_Sub.FieldByName('CP_CodeName').Value:=Trim(CDS_HZ.fieldbyname('CPhh').AsString); + Self.Order_Sub.FieldByName('C_Code').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('C_CodeName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('CP_CodeName').Value := Trim(CDS_HZ.fieldbyname('CPhh').AsString); // Self.Order_Sub.FieldByName('Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); Self.Order_Sub.Post; @@ -873,22 +1007,21 @@ begin frmZdyAttachCP.Free; end; DoKc(); - self.tv1.Controller.EditingController.ShowEdit(); + self.tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmClothContractInPut.v1PRTMFPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='KZ'; - flagname:='صλ'; - if ShowModal=1 then + flag := 'KZ'; + flagname := 'صλ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('KZUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -896,19 +1029,18 @@ begin end; end; -procedure TfrmClothContractInPut.v1OrderQtyPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='MF'; - flagname:='ŷλ'; - if ShowModal=1 then + flag := 'MF'; + flagname := 'ŷλ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('MFUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -916,19 +1048,18 @@ begin end; end; -procedure TfrmClothContractInPut.v1ClothQtyPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='PriceUnit'; - flagname:='Ƽ۵λ'; - if ShowModal=1 then + flag := 'PriceUnit'; + flagname := 'Ƽ۵λ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -936,19 +1067,18 @@ begin end; end; -procedure TfrmClothContractInPut.v1Column2PropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrderUnit'; - flagname:='λ'; - if ShowModal=1 then + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then begin Self.Order_Sub.Edit; - Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Unit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -956,8 +1086,7 @@ begin end; end; -procedure TfrmClothContractInPut.FactoryNoNamePropertiesChange( - Sender: TObject); +procedure TfrmClothContractInPut.FactoryNoNamePropertiesChange(Sender: TObject); begin {if FXS=99 then begin @@ -968,19 +1097,18 @@ begin ZDYHelp(FactoryNoName,'FactoryNo1Name'); } end; -procedure TfrmClothContractInPut.CompanyNamePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrdDefStr2'; - flagname:='跽'; - if ShowModal=1 then + flag := 'OrdDefStr2'; + flagname := '跽'; + if ShowModal = 1 then begin - FXS:=99; - CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FXS := 99; + CompanyName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -988,17 +1116,16 @@ begin end; end; -procedure TfrmClothContractInPut.JHPlacePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin - JHPlace.Text:=Trim(CDS_HZ.fieldbyname('zdyName').AsString); + JHPlace.Text := Trim(CDS_HZ.fieldbyname('zdyName').AsString); end; end; finally @@ -1007,24 +1134,24 @@ begin end; -procedure TfrmClothContractInPut.v1Column1PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmClothContractInPut.v1Column1PropertiesEditValueChanged(Sender: TObject); var - mvalue:string; + mvalue: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; + mvalue := TcxTextEdit(Sender).EditingText; - IF trim(mvalue)='' then exit; + if trim(mvalue) = '' then + exit; - IF rightBstr(trim(mvalue),1)<>'#'THEN - BEGIn - mvalue:=trim(mvalue)+'#'; - END; + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; with Order_Sub do begin Edit; - FieldByName('C_CodeName').Value:=Trim(mvalue); + FieldByName('C_CodeName').Value := Trim(mvalue); Post; end; @@ -1033,16 +1160,16 @@ begin close; sql.Clear; sql.Add('select * from KH_Zdy_Attachment A '); - sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); open; end; - IF ADOTemp.IsEmpty then + if ADOTemp.IsEmpty then begin - application.MessageBox('Ʒڣ','ʾϢ',0); + application.MessageBox('Ʒڣ', 'ʾϢ', 0); with Order_Sub do begin Edit; - FieldByName('C_CodeName').Value:=''; + FieldByName('C_CodeName').Value := ''; Post; end; end; @@ -1050,107 +1177,101 @@ begin self.tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmClothContractInPut.fromConNoKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmClothContractInPut.fromConNoKeyPress(Sender: TObject; var Key: Char); begin - if key=#13 then + if Key = #13 then begin DoQuery(fromConNo.text); end; end; -procedure TfrmClothContractInPut.v1ClothUnitPropertiesEditValueChanged( - Sender: TObject); - var - mvalue,fieldname:String; +procedure TfrmClothContractInPut.v1ClothUnitPropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; begin - If Trim(TcxTextEdit(Sender).EditingText)<>'' then + if Trim(TcxTextEdit(Sender).EditingText) <> '' then begin - mvalue:=TcxTextEdit(Sender).EditingText; - end else + mvalue := TcxTextEdit(Sender).EditingText; + end + else begin - mvalue:='0'; + mvalue := '0'; end; - fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; with Order_Sub do begin Edit; - FieldByName(Trim(fieldname)).Value:=mvalue; + FieldByName(Trim(fieldname)).Value := mvalue; Post; end; with Order_Sub do begin Edit; - FieldByName('money').Value:=strtofloat(format('%.2f',[FieldByName('C_Qty').AsFloat*FieldByName('Price').AsFloat])); + FieldByName('money').Value := strtofloat(format('%.2f', [FieldByName('C_Qty').AsFloat * FieldByName('Price').AsFloat])); Post; end; self.tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmClothContractInPut.fromConNoPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractInPut.fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin -try - frmClothContractList_CG_help:=TfrmClothContractList_CG_help.Create(Application); + try + frmClothContractList_CG_help := TfrmClothContractList_CG_help.Create(Application); with frmClothContractList_CG_help do begin - if ShowModal=1 then + if ShowModal = 1 then begin - fromConNO.Text:=Trim(Order_Main.fieldbyname('ConNO').AsString); + fromConNO.Text := Trim(Order_Main.fieldbyname('ConNO').AsString); end; end; finally frmClothContractList_CG_help.Free; end; - DoQuery(fromConNo.text); + DoQuery(fromConNo.text); end; -procedure TfrmClothContractInPut.v1Column6PropertiesEditValueChanged( - Sender: TObject); - var - mvalue,fieldname:String; +procedure TfrmClothContractInPut.v1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; begin - If Trim(TcxTextEdit(Sender).EditingText)<>'' then + if Trim(TcxTextEdit(Sender).EditingText) <> '' then begin - mvalue:=TcxTextEdit(Sender).EditingText; - end else + mvalue := TcxTextEdit(Sender).EditingText; + end + else begin - mvalue:='0'; + mvalue := '0'; end; - fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; with Order_Sub do begin Edit; - FieldByName(Trim(fieldname)).Value:=mvalue; + FieldByName(Trim(fieldname)).Value := mvalue; Post; end; with Order_Sub do begin Edit; - FieldByName('T_money').Value:=strtofloat(format('%.2f',[FieldByName('T_Qty').AsFloat*FieldByName('T_Price').AsFloat])); + FieldByName('T_money').Value := strtofloat(format('%.2f', [FieldByName('T_Qty').AsFloat * FieldByName('T_Price').AsFloat])); Post; end; self.tv1.Controller.EditingController.ShowEdit(); end; - -procedure TfrmClothContractInPut.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmClothContractInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin - writeCXgrid(self.Caption,tv1); + writeCXgrid(self.Caption, tv1); end; procedure TfrmClothContractInPut.FormCreate(Sender: TObject); begin - cxGrid1.Align:=Alclient; + cxGrid1.Align := Alclient; end; -procedure TfrmClothContractInPut.Tv1CellClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmClothContractInPut.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin DoKc(); end; end. + diff --git a/桂华管理系统/U_ClothContractList_CGSel.dfm b/桂华管理系统/U_ClothContractList_CGSel.dfm new file mode 100644 index 0000000..71f8b01 --- /dev/null +++ b/桂华管理系统/U_ClothContractList_CGSel.dfm @@ -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 diff --git a/桂华管理系统/U_ClothContractList_CGSel.pas b/桂华管理系统/U_ClothContractList_CGSel.pas new file mode 100644 index 0000000..53e147f --- /dev/null +++ b/桂华管理系统/U_ClothContractList_CGSel.pas @@ -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. diff --git a/桂华管理系统/U_ClothContractList_KCKL.dfm b/桂华管理系统/U_ClothContractList_KCKL.dfm new file mode 100644 index 0000000..bd57016 --- /dev/null +++ b/桂华管理系统/U_ClothContractList_KCKL.dfm @@ -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 diff --git a/桂华管理系统/U_ClothContractList_KCKL.pas b/桂华管理系统/U_ClothContractList_KCKL.pas new file mode 100644 index 0000000..b71b5cd --- /dev/null +++ b/桂华管理系统/U_ClothContractList_KCKL.pas @@ -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. + diff --git a/桂华管理系统/U_ClothContractList_TP.pas b/桂华管理系统/U_ClothContractList_TP.pas index f82b940..f3ac7f9 100644 --- a/桂华管理系统/U_ClothContractList_TP.pas +++ b/桂华管理系统/U_ClothContractList_TP.pas @@ -186,29 +186,29 @@ begin end; procedure TfrmClothContractList_Tp.InitGrid(); -var +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) + ''''''; + strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; if (trim(fDParameters1) = 'ѯ') then strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' '; try ADOQueryMain.DisableControls; - with ADOQueryMain do + with ADOQueryMain do begin - Filtered := False; - Close; + 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 + ''' '); + sql.Add(',@status=''' + strwhere + ''' '); // ShowMessage(sql.text); - Open; + Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); diff --git a/桂华管理系统/U_ClothContractList_TpSel.dfm b/桂华管理系统/U_ClothContractList_TpSel.dfm new file mode 100644 index 0000000..8a89b63 --- /dev/null +++ b/桂华管理系统/U_ClothContractList_TpSel.dfm @@ -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 diff --git a/桂华管理系统/U_ClothContractList_TpSel.pas b/桂华管理系统/U_ClothContractList_TpSel.pas new file mode 100644 index 0000000..f87a1ea --- /dev/null +++ b/桂华管理系统/U_ClothContractList_TpSel.pas @@ -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. + diff --git a/桂华管理系统/U_ClothContractList_help.dfm b/桂华管理系统/U_ClothContractList_help.dfm index 9f9a0ac..9507143 100644 --- a/桂华管理系统/U_ClothContractList_help.dfm +++ b/桂华管理系统/U_ClothContractList_help.dfm @@ -1,6 +1,6 @@ object frmClothContractList_Help: TfrmClothContractList_Help - Left = 35 - Top = 105 + Left = 317 + Top = 137 Width = 1221 Height = 738 Caption = #36873#25321#22383#24067#21040#36135#20449#24687 @@ -338,7 +338,6 @@ object frmClothContractList_Help: TfrmClothContractList_Help DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False - OptionsData.Editing = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True @@ -361,6 +360,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help Caption = #21152#24037#21378 DataBinding.FieldName = 'JHPlace' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object v1FactoryNo1Name: TcxGridDBColumn @@ -433,6 +433,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help Caption = #36864#36135#21305#25968 DataBinding.FieldName = 'T_Ps' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 60 end object v1Column9: TcxGridDBColumn @@ -468,6 +469,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help Caption = #24211#23384#21305#25968 DataBinding.FieldName = 'N_PS' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Content = cxStyle_fontclFuchsia Styles.Footer = cxStyle_fontclFuchsia Styles.Header = cxStyle_fontclFuchsia @@ -477,6 +479,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'N_Qty' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Content = cxStyle_fontclFuchsia Styles.Footer = cxStyle_fontclFuchsia Styles.Header = cxStyle_fontclFuchsia @@ -488,6 +491,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.##%;-,0.##%' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Content = cxStyle_fontclGreen Styles.Footer = cxStyle_fontclGreen Styles.Header = cxStyle_fontclGreen @@ -499,6 +503,7 @@ object frmClothContractList_Help: TfrmClothContractList_Help PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.##%;-,0.##%' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object v1Column17: TcxGridDBColumn diff --git a/桂华管理系统/U_ClothContractList_help.pas b/桂华管理系统/U_ClothContractList_help.pas index cff6ae1..8a547e9 100644 --- a/桂华管理系统/U_ClothContractList_help.pas +++ b/桂华管理系统/U_ClothContractList_help.pas @@ -11,7 +11,20 @@ uses 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; + 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_Help = class(TForm) diff --git a/桂华管理系统/U_GetDllForm.pas b/桂华管理系统/U_GetDllForm.pas index b986705..655e0c1 100644 --- a/桂华管理系统/U_GetDllForm.pas +++ b/桂华管理系统/U_GetDllForm.pas @@ -25,7 +25,7 @@ uses U_ClothContractList_Tp, U_ClothContractList_Help, U_ClothContractList_JG, U_CKPHKCList, U_HCList, U_ProductOrder_Ph10, U_CrkAccount, 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_MJManageNewFDNew_other, U_JYOrderCDOne_Other, U_xslist_other, U_YHList_other, 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_ClothContractList_SJDCK, U_KH_XS_YP_list, U_ProductOrderNewList_BH, 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еô // @@ -398,7 +399,7 @@ begin begin fDParameters2 := trim(DParameters2); caption := Trim(Title); - FormStyle := mstyle; + FormStyle := mstyle; windowState := mstate; BorderStyle := mborderstyle; //show; @@ -685,11 +686,32 @@ begin //show; end; end - else + else frmClothContractList_Tp.BringToFront; // 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; 153: //ɹ Ͷƥ begin @@ -772,6 +794,26 @@ begin // 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; 245: //ѯ begin @@ -1403,6 +1445,27 @@ begin // mnewHandle := frmCP_COL_XLYJ.Handle; 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: //ƷϢ begin if frmCP_COL_XL <> nil then diff --git a/桂华管理系统/U_MJManageNewFDNew.pas b/桂华管理系统/U_MJManageNewFDNew.pas index 97b222a..c86b30c 100644 --- a/桂华管理系统/U_MJManageNewFDNew.pas +++ b/桂华管理系统/U_MJManageNewFDNew.pas @@ -477,7 +477,7 @@ begin begin Application.MessageBox('Ϊգð飡','ʾ',0); Exit; - end; } + end; } if iscom then begin if CommOpen(frmMJManageNewFDNew.Handle, '', 500, 1) < 1 then diff --git a/桂华管理系统/U_OrdeFollower.dfm b/桂华管理系统/U_OrdeFollower.dfm new file mode 100644 index 0000000..86d9600 --- /dev/null +++ b/桂华管理系统/U_OrdeFollower.dfm @@ -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 diff --git a/桂华管理系统/U_OrdeFollower.pas b/桂华管理系统/U_OrdeFollower.pas new file mode 100644 index 0000000..4f2bfb3 --- /dev/null +++ b/桂华管理系统/U_OrdeFollower.pas @@ -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. + diff --git a/桂华管理系统/U_OrdeFollower_input.dfm b/桂华管理系统/U_OrdeFollower_input.dfm new file mode 100644 index 0000000..3843c64 --- /dev/null +++ b/桂华管理系统/U_OrdeFollower_input.dfm @@ -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 diff --git a/桂华管理系统/U_OrdeFollower_input.pas b/桂华管理系统/U_OrdeFollower_input.pas new file mode 100644 index 0000000..ce0d144 --- /dev/null +++ b/桂华管理系统/U_OrdeFollower_input.pas @@ -0,0 +1,1510 @@ +unit U_OrdeFollower_input; + +interface + +uses + Windows, Messages, strUtils, SysUtils, cxTextEdit, Variants, Classes, Graphics, + Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, 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, cxCalendar; + +type + TfrmOrdeFollower_input = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQueryTmp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Qty2: TcxGridDBColumn; + Panel1: TPanel; + Label22: TLabel; + Label23: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + TBSave: TToolButton; + TBClose: TToolButton; + ToolButton3: TToolButton; + Tv1Column1: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure fromConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + procedure fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1C_ColorPropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + FXS: Integer; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function SaveDataCK(): Boolean; + function YFData(fMainID, FsubID: string): Boolean; + procedure DoQuery(fkeyNo: string); + procedure DoKc(); + { Private declarations } + public + PState: Integer; + FMainId, FConType: string; + + { Public declarations } + end; + +var + frmOrdeFollower_input: TfrmOrdeFollower_input; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_Fun, U_ZdyAttachGYS, U_ClothContractList_help, + U_ClothContractList_CGSel, U_ClothContractList_TpSel, U_ZdyAttachCP; + +{$R *.dfm} +procedure TfrmOrdeFollower_input.DoKc(); +begin + {Label22.Caption := 'ƥ0'; + Label23.Caption := '0'; + if Order_Sub.IsEmpty then + exit; + if trim(Order_Sub.fieldbyname('C_CodeName').AsString) = '' then + exit; + IF trim(Order_Sub.fieldbyname('C_Color').AsString)='' then exit; + if trim(FactoryNoName.Text) = '' then +// exit; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate=''' + Trim(Order_Sub.fieldbyname('C_CodeName').AsString) + ''' '); + sql.Add(',@enddate=''' + trim(FactoryNoName.Text) + ''' '); + sql.Add(',@conType=''ѯ'' '); + sql.Add(',@status=''' + inttostr(1) + ''' '); + open; + end; + if not ADOTemp.IsEmpty then + begin + Label22.Caption := 'ƥ' + trim(ADOTemp.fieldbyname('N_PS').AsString); + Label23.Caption := '' + trim(ADOTemp.fieldbyname('N_Qty').AsString); + end; } +end; + +procedure TfrmOrdeFollower_input.DoQuery(fkeyNo: string); +begin + { with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from Contract_Main '); + sql.Add('where conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + FactoryNoName.Text := fieldbyname('FactoryNoName').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXTel.Text := fieldbyname('LXPerson').AsString; + fromConNo.Hint := fieldbyname('mainID').AsString; + end + else + begin + application.MessageBox('˲ɹƻŴ', 'ʾϢ', 0); + exit; + end; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + SCreateCDS20(ADOTemp, Order_Sub); + SInitCDSData20(ADOTemp, Order_Sub); + end + else + begin + end; + end; + with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + edit; + fieldbyname('fromMainID').Value := fieldbyname('MainID').AsString; + fieldbyname('fromsubID').Value := fieldbyname('subID').AsString; + fieldbyname('MainID').Value := ''; + fieldbyname('subID').Value := ''; + post; + next; + end; + First; + EnableControls; + end; + } +end; + +function TfrmOrdeFollower_input.YFData(fMainID, FsubID: string): Boolean; +var + CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName: string; +begin +{ Result := False; + try + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(FactoryNoName.Text) + ''''); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID := ADOQueryTmp.fieldbyname('CRID').AsString; + end + else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOCmd.fieldbyname('CRID').AsString; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC '); + sql.add('where CRID=' + quotedstr(trim(CRID))); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID=''' + Trim(fMainID) + ''''); + sql.Add('and subID=''' + Trim(FsubID) + ''''); + sql.Add('and YFName='''' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOCmd, YFID, 'YF', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + YFID := Trim(ADOQueryTmp.fieldbyname('YFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + Trim(YFID) + ''''); + Open; + end; + with ADOCmd do + begin + if ADOQueryTmp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(ConNo.Text); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('CRTime').Value := formatDateTime('yyyy-MM-dd', DeliveryDate.Date); + FieldByName('Qty').Value := Order_Sub.fieldbyname('C_Qty').Value; + FieldByName('PS').Value := Order_Sub.fieldbyname('Qty1').Value; + FieldByName('T_Qty').Value := Order_Sub.fieldbyname('T_Qty').Value; + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := Order_Sub.fieldbyname('Price').asfloat; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('ComTaiTou').Value := Trim(FComTaiTou); + FieldByName('QtyUnit').Value := Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('subID').Value := Trim(FsubID); + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty,T_money=Price*T_Qty '); + sql.Add(' where YFID=''' + Trim(YFID) + ''''); + ExecSQL; + end; + with ADOCmd 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; + Result := True; + except + end; } +end; + +procedure TfrmOrdeFollower_input.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, ''); + Close; +end; + +procedure TfrmOrdeFollower_input.InitData(); +begin +// with ADOQueryTmp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select * '); +// sql.Add('from Contract_Main A'); +// sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); +// Open; +// if not ADOQueryTmp.IsEmpty then +// begin +// SCSHData(ADOQueryTmp, ScrollBox1, 0); +// end; +// end; + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select B.*,A.*,Gf=(select factoryNoName from Contract_Main X where X.mainID=A.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=A.frommainID) '); + sql.Add('from Contract_sub A inner join Contract_Main B on A.mainid=B.mainid '); + sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); + Open; + end; + SCreateCDS20(ADOQueryTmp, Order_Sub); + SInitCDSData20(ADOQueryTmp, Order_Sub); + if PState = 0 then + begin +// with ADOTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select Top 1* from Contract_Main order by FillTime desc '); +// Open; +// end; +// QDTime.DateTime := SGetServerDate(ADOTemp); +// DeliveryDate.DateTime := SGetServerDate(ADOTemp); +// QDTime.Checked := True; +// DeliveryDate.Checked := False; +// ConNo.Text := 'Զ'; + end; +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_input.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +// PanZDY.Visible := True; +// PanZDY.Left := FButn.Left; +// PanZDY.Top := FButn.Top + FButn.Height; + with ADOZDY do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type=''' + Trim(LType) + ''''); + Open; + end; + FText := Trim(FButn.Text); + if FText <> '' then + SDofilter(ADOZDY, ' ZDYName like ' + QuotedStr('%' + Trim(FText) + '%')) + else + SDofilter(ADOZDY, ''); +// VHelpZDYName.Summary.GroupFormat := Trim(FButn.Name); +end; + +procedure TfrmOrdeFollower_input.TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + FName: string; +begin + if ADOZDY.IsEmpty then + Exit; +// FName := Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_input.Button1Click(Sender: TObject); +begin +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_input.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin +// if Key = #13 then +// begin +// if ADOZDY.IsEmpty then +// Exit; +// TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); +// TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); +// PanZDY.Visible := False; +// ADOZDY.Active := False; +// end; +end; + +procedure TfrmOrdeFollower_input.FormShow(Sender: TObject); +begin + { if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + ReadCxGrid(self.Caption, Tv1, ''); +// readCXgrid(self.Caption, tv1); + InitData(); +end; + +function TfrmOrdeFollower_input.SaveDataCK(): Boolean; +var + maxno, conmaxno: string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId=''' + Trim(fMainID) + ''''); + Open; + end; + with ADOCmd do + begin + + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, conmaxno, 'T', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; +// conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + Edit; + end; + + FieldByName('MainId').Value := Trim(maxno); + + if Trim(fMainID) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConType').Value := 'Ͷ'; + FieldByName('BatchNo').Value := Order_Sub.fieldbyname('BatchNo').AsString; + FieldByName('conNo').Value := trim(conmaxno); + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Order_Sub.fieldbyname('fromconNo').AsString; + FieldByName('fromMainID').Value := Order_Sub.fieldbyname('fromMainID').AsString; + FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + FieldByName('QDTime').Value := SGetServerDateTime(ADOTemp); + FieldByName('DeliveryDate').Value := Order_Sub.fieldbyname('DeliveryDate').AsString; + FieldByName('FactoryNoName').Value := Order_Sub.fieldbyname('FactoryNoName').AsString; +// FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + Post; + end; + fMainID := Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then + begin + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CS', 'Contract_Sub', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(fMainID) + ''''); + sql.Add(' and SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + Append + else + Edit; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('SubId').Value := Trim(maxno); +// FieldByName('ConNo').Value := Trim(ConNo.Text); + FieldByName('conNo').Value := trim(conmaxno); + FieldByName('C_Codename').Value := Trim(Order_Sub.fieldbyname('C_Codename').AsString); + FieldByName('MFqty').Value := Trim(Order_Sub.fieldbyname('MFqty').AsString); + FieldByName('KZqty').Value := Trim(Order_Sub.fieldbyname('KZqty').AsString); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('C_Status').Value := '0'; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Qty').AsString) = '' then + begin + FieldByName('C_Qty').Value := 0; + end; + + if Trim(Order_Sub.fieldbyname('Price').AsString) = '' then + begin + FieldByName('Price').Value := 0; + end; +// RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value := Trim(maxno); + + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +function TfrmOrdeFollower_input.SaveData(): Boolean; +var + maxno, conmaxno: string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId=''' + Trim(fMainID) + ''''); + Open; + end; + with ADOCmd do + begin + + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, conmaxno, '', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; +// conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + + Edit; + end; + + FieldByName('MainId').Value := Trim(maxno); +// SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0); +// FieldByName('LXPerson').Value := Trim(LXPerson.Text); +// FieldByName('LXTel').Value := Trim(LXTel.Text); + if Trim(fMainID) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + FieldByName('conNo').Value := trim(conmaxno); + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConType').Value := ''; + FieldByName('GXnote1').Value := 'Զ'; + FieldByName('BatchNo').Value := Order_Sub.fieldbyname('BatchNo').AsString; +// FieldByName('conNo').Value := trim(conmaxno); + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Order_Sub.fieldbyname('fromconNo').AsString; + FieldByName('fromMainID').Value := Order_Sub.fieldbyname('fromMainID').AsString; + FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + FieldByName('QDTime').Value := SGetServerDateTime(ADOTemp); + FieldByName('DeliveryDate').Value := Order_Sub.fieldbyname('DeliveryDate').AsString; + FieldByName('FactoryNoName').Value := Order_Sub.fieldbyname('FactoryNoName').AsString; +// FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + Post; + end; + fMainID := Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin +// if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then +// begin +// end; + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CS', 'Contract_Sub', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(Order_Sub.fieldbyname('SubId').AsString); + conmaxno := Trim(Order_Sub.fieldbyname('conno').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(fMainID) + ''''); + sql.Add(' and SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + Append + else + Edit; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('SubId').Value := Trim(maxno); +// FieldByName('ConNo').Value := Trim(ConNo.Text); + FieldByName('conNo').Value := trim(conmaxno); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + FieldByName('C_Codename').Value := Trim(Order_Sub.fieldbyname('C_Codename').AsString); + FieldByName('MFqty').Value := StrToFloatdef((Order_Sub.fieldbyname('MFqty').AsString), 0); + FieldByName('KZqty').Value := StrToFloatdef((Order_Sub.fieldbyname('KZqty').AsString), 0); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('C_Status').Value := '0'; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Qty').AsString) = '' then + begin + FieldByName('C_Qty').Value := 0; + end; + + if Trim(Order_Sub.fieldbyname('Price').AsString) = '' then + begin + FieldByName('Price').Value := 0; + end; +// RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value := Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +procedure TfrmOrdeFollower_input.TBSaveClick(Sender: TObject); +begin + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ', 'ʾ', 0); + exit; + end; + + if Order_Sub.Locate('JHPlace', '', []) = True then + begin + Application.MessageBox('ŵص㲻Ϊ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('JHPlace', null, []) = True then + begin + Application.MessageBox('ŵص㲻Ϊ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('C_CodeName', null, []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('BatchNo', null, []) = True then + begin + Application.MessageBox('κŲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CRType', null, []) = True then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('BatchNo', '', []) then + begin + Application.MessageBox('κŲΪ!', 'ʾ', 0); + Exit; + end; +// if Order_Sub.Locate('C_Unit', null, []) then +// begin +// Application.MessageBox('λΪ!', 'ʾ', 0); +// Exit; +// end; +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from KH_Zdy_Attachment A where Type=''GYS'''); +// sql.Add('and zdyName=''' + trim(FactoryNoName.text) + ''' '); +// open; +// end; +// if ADOTemp.IsEmpty then +// begin +// application.MessageBox('ӹڣ', 'ʾϢ', 0); +// exit; +// end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); +// ConNo.Text := ''; +// FactoryNoName.Text := ''; +// CompanyName.Text := ''; +// LXPerson.Text := ''; +// LXTel.Text := ''; +// JHPlace.Text := ''; + Order_Sub.EmptyDataSet; + PState := 0; + fMainID := ''; +// ConNo.Text := 'Զ'; + end; +end; + +procedure TfrmOrdeFollower_input.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdColor'; + flagname := 'ɫ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where subID=''' + Trim(Order_Sub.fieldbyname('subID').AsString) + ''''); + open; + end; + if not ADOCmd.IsEmpty then + begin + Application.MessageBox('ѻز֣ɾͶƻ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmOrdeFollower_input.FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + if Trim(fMainID) <> '' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid=''' + Trim(fMainID) + ''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty = False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!', 'ʾ', 0); + Exit; + end; + end; + +// try +// frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); +// with frmZdyAttachGYS do +// begin +// if ShowModal = 1 then +// begin +// FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); +// FactoryNoName.Hint := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); +// LXTel.Text := Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); +// LXPerson.Text := Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); +// end; +// end; +// finally +// frmZdyAttachGYS.Free; +// end; +end; + +procedure TfrmOrdeFollower_input.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmClothContractList_Help := TfrmClothContractList_Help.Create(Application); + with frmClothContractList_Help do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_Help.Order_Main.DisableControls; + with frmClothContractList_Help.Order_Main do + begin + First; + while frmClothContractList_Help.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('fromMainID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('mainid').AsString); + FieldByName('fromSubID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('fromConNo').Value := frmClothContractList_Help.Order_Main.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value := frmClothContractList_Help.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNo').Value := frmClothContractList_Help.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('C_codename').Value := frmClothContractList_Help.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('C_color').Value := frmClothContractList_Help.Order_Main.fieldbyname('C_color').Value; + FieldByName('KZQty').Value := frmClothContractList_Help.Order_Main.fieldbyname('KZQty').Value; + FieldByName('MFQty').Value := frmClothContractList_Help.Order_Main.fieldbyname('MFQty').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_Help.Order_Main.Delete; + end; + end; + frmClothContractList_Help.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_Help.Free; + end; + + + + + +// try +// frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); +// with frmZdyAttachCP do +// begin +// FType := 'Ʒ'; +// if ShowModal = 1 then +// begin +// Self.Order_Sub.Edit; +// Self.Order_Sub.FieldByName('C_Code').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); +// Self.Order_Sub.FieldByName('C_CodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); +// Self.Order_Sub.FieldByName('C_Color').Value := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); +// // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); +// Self.Order_Sub.Post; +// +// end; +// end; +// finally +// frmZdyAttachCP.Free; +// end; +// self.tv1.Controller.EditingController.ShowEdit(); +// DoKc(); + +end; + +procedure TfrmOrdeFollower_input.v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'KZ'; + flagname := 'صλ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MF'; + flagname := 'ŷλ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PriceUnit'; + flagname := 'Ƽ۵λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.FactoryNoNamePropertiesChange(Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmOrdeFollower_input.CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdDefStr2'; + flagname := '跽'; + if ShowModal = 1 then + begin + FXS := 99; +// CompanyName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_input.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + JHPlace.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + // LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + // LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + } +end; + +procedure TfrmOrdeFollower_input.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value := Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); +end; + +procedure TfrmOrdeFollower_input.fromConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin +// DoQuery(fromConNo.text); + end; +end; + +procedure TfrmOrdeFollower_input.v1ClothUnitPropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('money').Value := strtofloat(format('%.2f', [FieldByName('C_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrdeFollower_input.fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmClothContractList_CG_help:=TfrmClothContractList_CG_help.Create(Application); + with frmClothContractList_CG_help do + begin + if ShowModal=1 then + begin + fromConNO.Text:=Trim(Order_Main.fieldbyname('ConNO').AsString); + end; + end; + finally + frmClothContractList_CG_help.Free; + end; + DoQuery(fromConNo.text);} +end; + +procedure TfrmOrdeFollower_input.v1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('T_money').Value := strtofloat(format('%.2f', [FieldByName('T_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrdeFollower_input.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + fieldbyname('PriceUnit').Value := ''; + fieldbyname('C_UNit').Value := 'M'; + fieldbyname('DeliveryDate').Value := SGetServerDate(ADOTemp); + Post; + end; +{ frmClothContractList_Help:=TfrmClothContractList_Help.create(self); + with frmClothContractList_Help do + begin + if showmodal=1 then + begin + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + Order_Sub.Append; + Order_Sub.Fieldbyname('gf').Value:=trim(Fieldbyname('FactoryNoName').AsString); + Order_Sub.Fieldbyname('fdhNO').Value:=trim(Fieldbyname('conNo').AsString); + Order_Sub.Fieldbyname('fromMainID').Value:=trim(Fieldbyname('MainID').AsString); + Order_Sub.Fieldbyname('fromsubID').Value:=trim(Fieldbyname('subID').AsString); + Order_Sub.Fieldbyname('C_CodeName').Value:=trim(Fieldbyname('C_CodeName').AsString); + Order_Sub.Fieldbyname('C_spec').Value:=trim(Fieldbyname('C_spec').AsString); +// Order_Sub.Fieldbyname('KZQty').Value:=Fieldbyname('KZQty').AsFloat; +// Order_Sub.Fieldbyname('MFQty').Value:=Fieldbyname('MFQty').AsFloat; + // Order_Sub.Fieldbyname('Qty1').Value:=Fieldbyname('N_ps').AsFloat ; + // Order_Sub.Fieldbyname('C_Qty').Value:=Fieldbyname('N_Qty').AsFloat ; + Order_Sub.Fieldbyname('C_Unit').Value:=trim(Fieldbyname('C_Unit').AsString); + Order_Sub.Post; + end; + next; + end; + First; + EnableControls; + end; + end; + end; } +end; + +procedure TfrmOrdeFollower_input.v1C_ColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := Trim(mvalue); + Post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add('and DEFstr3=' + quotedstr(trim(Order_Sub.fieldbyname('C_Color').AsString))); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('ɫڣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := ''; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value := trim(ADOTemp.fieldbyname('ZDYCode').AsString); + Post; + end; + + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmOrdeFollower_input.FormCreate(Sender: TObject); +begin + cxGrid1.Align := Alclient; +end; + +procedure TfrmOrdeFollower_input.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCXgrid(self.Caption, tv1); +end; + +procedure TfrmOrdeFollower_input.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothContractList_CGSel := TfrmClothContractList_CGSel.Create(Application); + with frmClothContractList_CGSel do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_CGSel.Order_Main.DisableControls; + with frmClothContractList_CGSel.Order_Main do + begin + First; + while frmClothContractList_CGSel.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('fromMainID').Value := Trim(frmClothContractList_CGSel.Order_Main.fieldbyname('mainid').AsString); + FieldByName('fromSubID').Value := Trim(frmClothContractList_CGSel.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('fromConNo').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNo').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('C_codename').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('KZQty').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('KZQty').Value; + FieldByName('MFQty').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('MFQty').Value; + fieldbyname('C_UNit').Value := 'M'; + FieldByName('CRType').Value := ''; + end; + frmClothContractList_CGSel.Order_Main.Delete; + end; + end; + frmClothContractList_CGSel.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_CGSel.Free; + end; +end; + +procedure TfrmOrdeFollower_input.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ', 'ʾ', 0); + exit; + end; + if SaveDataCK() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); +// ConNo.Text := ''; +// FactoryNoName.Text := ''; +// CompanyName.Text := ''; +// LXPerson.Text := ''; +// LXTel.Text := ''; +// JHPlace.Text := ''; + Order_Sub.EmptyDataSet; + PState := 0; + fMainID := ''; +// ConNo.Text := 'Զ'; + end; +end; + +procedure TfrmOrdeFollower_input.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothContractList_TpSel := TfrmClothContractList_TpSel.Create(Application); + with frmClothContractList_TpSel do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_TpSel.Order_Main.DisableControls; + with frmClothContractList_TpSel.Order_Main do + begin + First; + while frmClothContractList_TpSel.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('fromMainID').Value := Trim(frmClothContractList_TpSel.Order_Main.fieldbyname('mainid').AsString); + FieldByName('fromSubID').Value := Trim(frmClothContractList_TpSel.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('fromConNo').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNo').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('C_codename').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('C_CodeName').Value; +// FieldByName('KZQty').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('KZQty').Value; +// FieldByName('MFQty').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('MFQty').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_TpSel.Order_Main.Delete; + end; + end; + frmClothContractList_TpSel.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_TpSel.Free; + end; +end; + +procedure TfrmOrdeFollower_input.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('JHPlace').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmOrdeFollower_input.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('FactoryNoName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +end. + diff --git a/桂华管理系统/U_OrdeFollower_inputCK.dfm b/桂华管理系统/U_OrdeFollower_inputCK.dfm new file mode 100644 index 0000000..47ef215 --- /dev/null +++ b/桂华管理系统/U_OrdeFollower_inputCK.dfm @@ -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 diff --git a/桂华管理系统/U_OrdeFollower_inputCK.pas b/桂华管理系统/U_OrdeFollower_inputCK.pas new file mode 100644 index 0000000..b295d8e --- /dev/null +++ b/桂华管理系统/U_OrdeFollower_inputCK.pas @@ -0,0 +1,1575 @@ +unit U_OrdeFollower_inputCK; + +interface + +uses + Windows, Messages, strUtils, SysUtils, cxTextEdit, Variants, Classes, Graphics, + Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, 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, cxCalendar; + +type + TfrmOrdeFollower_inputCK = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQueryTmp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Qty2: TcxGridDBColumn; + Panel1: TPanel; + Label22: TLabel; + Label23: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + TBSave: TToolButton; + TBClose: TToolButton; + ToolButton3: TToolButton; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure fromConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + procedure fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1C_ColorPropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + FXS: Integer; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function SaveDataCK(): Boolean; + function YFData(fMainID, FsubID: string): Boolean; + procedure DoQuery(fkeyNo: string); + procedure DoKc(); + { Private declarations } + public + PState: Integer; + FMainId, FConType: string; + + { Public declarations } + end; + +var + frmOrdeFollower_inputCK: TfrmOrdeFollower_inputCK; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_Fun, U_ZdyAttachGYS, U_ClothContractList_help, + U_ClothContractList_CGSel, U_ClothContractList_TpSel, U_ZdyAttachCP; + +{$R *.dfm} +procedure TfrmOrdeFollower_inputCK.DoKc(); +begin + {Label22.Caption := 'ƥ0'; + Label23.Caption := '0'; + if Order_Sub.IsEmpty then + exit; + if trim(Order_Sub.fieldbyname('C_CodeName').AsString) = '' then + exit; + IF trim(Order_Sub.fieldbyname('C_Color').AsString)='' then exit; + if trim(FactoryNoName.Text) = '' then +// exit; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate=''' + Trim(Order_Sub.fieldbyname('C_CodeName').AsString) + ''' '); + sql.Add(',@enddate=''' + trim(FactoryNoName.Text) + ''' '); + sql.Add(',@conType=''ѯ'' '); + sql.Add(',@status=''' + inttostr(1) + ''' '); + open; + end; + if not ADOTemp.IsEmpty then + begin + Label22.Caption := 'ƥ' + trim(ADOTemp.fieldbyname('N_PS').AsString); + Label23.Caption := '' + trim(ADOTemp.fieldbyname('N_Qty').AsString); + end; } +end; + +procedure TfrmOrdeFollower_inputCK.DoQuery(fkeyNo: string); +begin + { with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from Contract_Main '); + sql.Add('where conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + FactoryNoName.Text := fieldbyname('FactoryNoName').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXTel.Text := fieldbyname('LXPerson').AsString; + fromConNo.Hint := fieldbyname('mainID').AsString; + end + else + begin + application.MessageBox('˲ɹƻŴ', 'ʾϢ', 0); + exit; + end; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + SCreateCDS20(ADOTemp, Order_Sub); + SInitCDSData20(ADOTemp, Order_Sub); + end + else + begin + end; + end; + with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + edit; + fieldbyname('fromMainID').Value := fieldbyname('MainID').AsString; + fieldbyname('fromsubID').Value := fieldbyname('subID').AsString; + fieldbyname('MainID').Value := ''; + fieldbyname('subID').Value := ''; + post; + next; + end; + First; + EnableControls; + end; + } +end; + +function TfrmOrdeFollower_inputCK.YFData(fMainID, FsubID: string): Boolean; +var + CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName: string; +begin +{ Result := False; + try + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(FactoryNoName.Text) + ''''); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID := ADOQueryTmp.fieldbyname('CRID').AsString; + end + else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOCmd.fieldbyname('CRID').AsString; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC '); + sql.add('where CRID=' + quotedstr(trim(CRID))); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID=''' + Trim(fMainID) + ''''); + sql.Add('and subID=''' + Trim(FsubID) + ''''); + sql.Add('and YFName='''' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOCmd, YFID, 'YF', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + YFID := Trim(ADOQueryTmp.fieldbyname('YFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + Trim(YFID) + ''''); + Open; + end; + with ADOCmd do + begin + if ADOQueryTmp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(ConNo.Text); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('CRTime').Value := formatDateTime('yyyy-MM-dd', DeliveryDate.Date); + FieldByName('Qty').Value := Order_Sub.fieldbyname('C_Qty').Value; + FieldByName('PS').Value := Order_Sub.fieldbyname('Qty1').Value; + FieldByName('T_Qty').Value := Order_Sub.fieldbyname('T_Qty').Value; + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := Order_Sub.fieldbyname('Price').asfloat; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('ComTaiTou').Value := Trim(FComTaiTou); + FieldByName('QtyUnit').Value := Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('subID').Value := Trim(FsubID); + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty,T_money=Price*T_Qty '); + sql.Add(' where YFID=''' + Trim(YFID) + ''''); + ExecSQL; + end; + with ADOCmd 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; + Result := True; + except + end; } +end; + +procedure TfrmOrdeFollower_inputCK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, 'Ͷ'); + Close; +end; + +procedure TfrmOrdeFollower_inputCK.InitData(); +begin +// with ADOQueryTmp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select * '); +// sql.Add('from Contract_Main A'); +// sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); +// Open; +// if not ADOQueryTmp.IsEmpty then +// begin +// SCSHData(ADOQueryTmp, ScrollBox1, 0); +// end; +// end; + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select *,Gf=(select factoryNoName from Contract_Main X where X.mainID=A.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=A.frommainID) '); + sql.Add('from Contract_sub A inner join Contract_Main B on A.mainid=B.mainid '); + sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); + Open; + SCreateCDS20(ADOQueryTmp, Order_Sub); + SInitCDSData20(ADOQueryTmp, Order_Sub); + + end; + + if PState = 0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from Contract_Main order by FillTime desc '); + Open; + end; +// QDTime.DateTime := SGetServerDate(ADOTemp); +// DeliveryDate.DateTime := SGetServerDate(ADOTemp); +// QDTime.Checked := True; +// DeliveryDate.Checked := False; +// ConNo.Text := 'Զ'; + end; +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_inputCK.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +// PanZDY.Visible := True; +// PanZDY.Left := FButn.Left; +// PanZDY.Top := FButn.Top + FButn.Height; + with ADOZDY do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type=''' + Trim(LType) + ''''); + Open; + end; + FText := Trim(FButn.Text); + if FText <> '' then + SDofilter(ADOZDY, ' ZDYName like ' + QuotedStr('%' + Trim(FText) + '%')) + else + SDofilter(ADOZDY, ''); +// VHelpZDYName.Summary.GroupFormat := Trim(FButn.Name); +end; + +procedure TfrmOrdeFollower_inputCK.TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + FName: string; +begin + if ADOZDY.IsEmpty then + Exit; +// FName := Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_inputCK.Button1Click(Sender: TObject); +begin +// PanZDY.Visible := False; +end; + +procedure TfrmOrdeFollower_inputCK.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin +// if Key = #13 then +// begin +// if ADOZDY.IsEmpty then +// Exit; +// TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString); +// TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString); +// PanZDY.Visible := False; +// ADOZDY.Active := False; +// end; +end; + +procedure TfrmOrdeFollower_inputCK.FormShow(Sender: TObject); +begin + { if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } +// readCXgrid(self.Caption, tv1); + ReadCxGrid(self.Caption, Tv1, 'Ͷ'); + InitData(); +end; + +function TfrmOrdeFollower_inputCK.SaveDataCK(): Boolean; +var + maxno, conmaxno: string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId=''' + Trim(fMainID) + ''''); + Open; + end; + with ADOCmd do + begin + + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, conmaxno, 'T', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; +// conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + Edit; + end; + + FieldByName('MainId').Value := Trim(maxno); + + if Trim(fMainID) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + FieldByName('conNo').Value := trim(conmaxno); + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConType').Value := 'Ͷ'; + FieldByName('GXnote1').Value := 'Զ'; + FieldByName('BatchNo').Value := Order_Sub.fieldbyname('BatchNo').AsString; +// FieldByName('conNo').Value := trim(conmaxno); + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Order_Sub.fieldbyname('fromconNo').AsString; + FieldByName('fromMainID').Value := Order_Sub.fieldbyname('fromMainID').AsString; + FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + FieldByName('QDTime').Value := SGetServerDateTime(ADOTemp); + FieldByName('DeliveryDate').Value := Order_Sub.fieldbyname('DeliveryDate').AsString; + FieldByName('FactoryNoName').Value := Order_Sub.fieldbyname('FactoryNoName').AsString; + FieldByName('ToFactoryName').Value := Order_Sub.fieldbyname('ToFactoryName').AsString; + Post; + end; + fMainID := Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then + begin + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CS', 'Contract_Sub', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(fMainID) + ''''); + sql.Add(' and SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + Append + else + Edit; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('SubId').Value := Trim(maxno); +// FieldByName('ConNo').Value := Trim(ConNo.Text); + FieldByName('conNo').Value := trim(conmaxno); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 1); + FieldByName('C_Codename').Value := Trim(Order_Sub.fieldbyname('C_Codename').AsString); + FieldByName('MFqty').Value := StrToFloatdef((Order_Sub.fieldbyname('MFqty').AsString), 0); + FieldByName('KZqty').Value := StrToFloatdef((Order_Sub.fieldbyname('KZqty').AsString), 0); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('KCsubid').Value := Trim(Order_Sub.fieldbyname('KCsubid').AsString); + FieldByName('KCMainID').Value := Trim(Order_Sub.fieldbyname('KCMainID').AsString); + FieldByName('C_Status').Value := '0'; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Qty').AsString) = '' then + begin + FieldByName('C_Qty').Value := 0; + end; + + if Trim(Order_Sub.fieldbyname('Price').AsString) = '' then + begin + FieldByName('Price').Value := 0; + end; + + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value := Trim(maxno); + + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +function TfrmOrdeFollower_inputCK.SaveData(): Boolean; +var + maxno, conmaxno: string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId=''' + Trim(fMainID) + ''''); + Open; + end; + with ADOCmd do + begin + + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, conmaxno, '', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; +// conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + Edit; + end; + + FieldByName('MainId').Value := Trim(maxno); +// SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0); +// FieldByName('LXPerson').Value := Trim(LXPerson.Text); +// FieldByName('LXTel').Value := Trim(LXTel.Text); + if Trim(fMainID) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConType').Value := ''; + FieldByName('BatchNo').Value := Order_Sub.fieldbyname('BatchNo').AsString; + FieldByName('conNo').Value := trim(conmaxno); + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Order_Sub.fieldbyname('fromconNo').AsString; + FieldByName('fromMainID').Value := Order_Sub.fieldbyname('fromMainID').AsString; + FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + FieldByName('QDTime').Value := SGetServerDateTime(ADOTemp); + FieldByName('DeliveryDate').Value := Order_Sub.fieldbyname('DeliveryDate').AsString; + FieldByName('FactoryNoName').Value := Order_Sub.fieldbyname('FactoryNoName').AsString; +// FieldByName('JHPlace').Value := Order_Sub.fieldbyname('JHPlace').AsString; + Post; + end; + fMainID := Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('C_Unit').AsString) = 'Kg' then + begin + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CS', 'Contract_Sub', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(fMainID) + ''''); + sql.Add(' and SubId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + Append + else + Edit; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('SubId').Value := Trim(maxno); +// FieldByName('ConNo').Value := Trim(ConNo.Text); + FieldByName('conNo').Value := trim(conmaxno); + FieldByName('C_Codename').Value := Trim(Order_Sub.fieldbyname('C_Codename').AsString); + FieldByName('MFqty').Value := Trim(Order_Sub.fieldbyname('MFqty').AsString); + FieldByName('KZqty').Value := Trim(Order_Sub.fieldbyname('KZqty').AsString); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('C_Status').Value := '0'; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Qty').AsString) = '' then + begin + FieldByName('C_Qty').Value := 0; + end; + + if Trim(Order_Sub.fieldbyname('Price').AsString) = '' then + begin + FieldByName('Price').Value := 0; + end; +// RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value := Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +procedure TfrmOrdeFollower_inputCK.TBSaveClick(Sender: TObject); +begin + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ', 'ʾ', 0); + exit; + end; + + if Order_Sub.Locate('FactoryNoName', null, []) = True then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('C_CodeName', '', []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; +// if Order_Sub.Locate('ConNo', null, []) = True then +// begin +// Application.MessageBox('ͬΪ!', 'ʾ', 0); +// Exit; +// end; +// if Order_Sub.Locate('C_Color', '', []) = True then +// begin +// Application.MessageBox('ɫΪ!', 'ʾ', 0); +// Exit; +// end; +// if Order_Sub.Locate('C_Unit', null, []) then +// begin +// Application.MessageBox('λΪ!', 'ʾ', 0); +// Exit; +// end; +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from KH_Zdy_Attachment A where Type=''GYS'''); +// sql.Add('and zdyName=''' + trim(FactoryNoName.text) + ''' '); +// open; +// end; +// if ADOTemp.IsEmpty then +// begin +// application.MessageBox('ӹڣ', 'ʾϢ', 0); +// exit; +// end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); +// ConNo.Text := ''; +// FactoryNoName.Text := ''; +// CompanyName.Text := ''; +// LXPerson.Text := ''; +// LXTel.Text := ''; +// JHPlace.Text := ''; + Order_Sub.EmptyDataSet; + PState := 0; + fMainID := ''; +// ConNo.Text := 'Զ'; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdColor'; + flagname := 'ɫ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where subID=''' + Trim(Order_Sub.fieldbyname('subID').AsString) + ''''); + open; + end; + if not ADOCmd.IsEmpty then + begin + Application.MessageBox('ѻز֣ɾͶƻ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmOrdeFollower_inputCK.FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + if Trim(fMainID) <> '' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid=''' + Trim(fMainID) + ''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty = False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!', 'ʾ', 0); + Exit; + end; + end; + +// try +// frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); +// with frmZdyAttachGYS do +// begin +// if ShowModal = 1 then +// begin +// FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); +// FactoryNoName.Hint := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); +// LXTel.Text := Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); +// LXPerson.Text := Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); +// end; +// end; +// finally +// frmZdyAttachGYS.Free; +// end; +end; + +procedure TfrmOrdeFollower_inputCK.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + { try + frmClothContractList_Help := TfrmClothContractList_Help.Create(Application); + with frmClothContractList_Help do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_Help.Order_Main.DisableControls; + with frmClothContractList_Help.Order_Main do + begin + First; + while frmClothContractList_Help.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; +// FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('KCMainID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('mainid').AsString); + FieldByName('KCSubID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('SUbid').AsString); +// FieldByName('fromConNo').Value := frmClothContractList_Help.Order_Main.fieldbyname('ConNo').Value; +// FieldByName('FactoryNoName').Value := frmClothContractList_Help.Order_Main.fieldbyname('FactoryNoName').Value; +// FieldByName('FactoryNo').Value := frmClothContractList_Help.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('C_codename').Value := frmClothContractList_Help.Order_Main.fieldbyname('C_CodeName').Value; +// FieldByName('C_color').Value := frmClothContractList_Help.Order_Main.fieldbyname('C_color').Value; +// FieldByName('KZQty').Value := frmClothContractList_Help.Order_Main.fieldbyname('KZQty').Value; +// FieldByName('MFQty').Value := frmClothContractList_Help.Order_Main.fieldbyname('MFQty').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_Help.Order_Main.Delete; + end; + end; + frmClothContractList_Help.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_Help.Free; + end; } + + + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + FType := 'Ʒ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; +// Self.Order_Sub.FieldByName('C_Code').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('CP_CodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); +// Self.Order_Sub.FieldByName('C_Color').Value := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + + end; + end; + finally + frmZdyAttachCP.Free; + end; +// self.tv1.Controller.EditingController.ShowEdit(); +// DoKc(); + +end; + +procedure TfrmOrdeFollower_inputCK.v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'KZ'; + flagname := 'صλ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MF'; + flagname := 'ŷλ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PriceUnit'; + flagname := 'Ƽ۵λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.FactoryNoNamePropertiesChange(Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmOrdeFollower_inputCK.CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrdDefStr2'; + flagname := '跽'; + if ShowModal = 1 then + begin + FXS := 99; +// CompanyName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + JHPlace.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + // LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + // LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + } +end; + +procedure TfrmOrdeFollower_inputCK.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value := Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); +end; + +procedure TfrmOrdeFollower_inputCK.fromConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin +// DoQuery(fromConNo.text); + end; +end; + +procedure TfrmOrdeFollower_inputCK.v1ClothUnitPropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('money').Value := strtofloat(format('%.2f', [FieldByName('C_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrdeFollower_inputCK.fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmClothContractList_CG_help:=TfrmClothContractList_CG_help.Create(Application); + with frmClothContractList_CG_help do + begin + if ShowModal=1 then + begin + fromConNO.Text:=Trim(Order_Main.fieldbyname('ConNO').AsString); + end; + end; + finally + frmClothContractList_CG_help.Free; + end; + DoQuery(fromConNo.text);} +end; + +procedure TfrmOrdeFollower_inputCK.v1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('T_money').Value := strtofloat(format('%.2f', [FieldByName('T_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrdeFollower_inputCK.ToolButton1Click(Sender: TObject); +begin + try + frmClothContractList_Help := TfrmClothContractList_Help.Create(Application); + with frmClothContractList_Help do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_Help.Order_Main.DisableControls; + with frmClothContractList_Help.Order_Main do + begin + First; + while frmClothContractList_Help.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('CRType').Value := 'Ͷ'; + FieldByName('KCMainID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('mainid').AsString); + FieldByName('KCSubID').Value := Trim(frmClothContractList_Help.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('FactoryNoName').Value := frmClothContractList_Help.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('JHPlace').Value := frmClothContractList_Help.Order_Main.fieldbyname('JHPlace').Value; + FieldByName('ToFactoryName').Value := frmClothContractList_Help.Order_Main.fieldbyname('JHPlace').Value; + FieldByName('C_codename').Value := frmClothContractList_Help.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('BatchNo').Value := frmClothContractList_Help.Order_Main.fieldbyname('BatchNo').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_Help.Order_Main.Delete; + end; + end; + frmClothContractList_Help.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_Help.Free; + end; +// with Order_Sub do +// begin +// Append; +// fieldbyname('PriceUnit').Value := ''; +// fieldbyname('C_UNit').Value := 'M'; +// Post; +// end; +{ frmClothContractList_Help:=TfrmClothContractList_Help.create(self); + with frmClothContractList_Help do + begin + if showmodal=1 then + begin + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + Order_Sub.Append; + Order_Sub.Fieldbyname('gf').Value:=trim(Fieldbyname('FactoryNoName').AsString); + Order_Sub.Fieldbyname('fdhNO').Value:=trim(Fieldbyname('conNo').AsString); + Order_Sub.Fieldbyname('fromMainID').Value:=trim(Fieldbyname('MainID').AsString); + Order_Sub.Fieldbyname('fromsubID').Value:=trim(Fieldbyname('subID').AsString); + Order_Sub.Fieldbyname('C_CodeName').Value:=trim(Fieldbyname('C_CodeName').AsString); + Order_Sub.Fieldbyname('C_spec').Value:=trim(Fieldbyname('C_spec').AsString); +// Order_Sub.Fieldbyname('KZQty').Value:=Fieldbyname('KZQty').AsFloat; +// Order_Sub.Fieldbyname('MFQty').Value:=Fieldbyname('MFQty').AsFloat; + // Order_Sub.Fieldbyname('Qty1').Value:=Fieldbyname('N_ps').AsFloat ; + // Order_Sub.Fieldbyname('C_Qty').Value:=Fieldbyname('N_Qty').AsFloat ; + Order_Sub.Fieldbyname('C_Unit').Value:=trim(Fieldbyname('C_Unit').AsString); + Order_Sub.Post; + end; + next; + end; + First; + EnableControls; + end; + end; + end; } +end; + +procedure TfrmOrdeFollower_inputCK.v1C_ColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := Trim(mvalue); + Post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add('and DEFstr3=' + quotedstr(trim(Order_Sub.fieldbyname('C_Color').AsString))); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('ɫڣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := ''; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value := trim(ADOTemp.fieldbyname('ZDYCode').AsString); + Post; + end; + + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmOrdeFollower_inputCK.FormCreate(Sender: TObject); +begin + cxGrid1.Align := Alclient; +end; + +procedure TfrmOrdeFollower_inputCK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCXgrid(self.Caption, tv1); +end; + +procedure TfrmOrdeFollower_inputCK.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothContractList_CGSel := TfrmClothContractList_CGSel.Create(Application); + with frmClothContractList_CGSel do + begin +// ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_CGSel.Order_Main.DisableControls; + with frmClothContractList_CGSel.Order_Main do + begin + First; + while frmClothContractList_CGSel.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('fromMainID').Value := Trim(frmClothContractList_CGSel.Order_Main.fieldbyname('mainid').AsString); + FieldByName('fromSubID').Value := Trim(frmClothContractList_CGSel.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('fromConNo').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNo').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('C_codename').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('KZQty').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('KZQty').Value; + FieldByName('MFQty').Value := frmClothContractList_CGSel.Order_Main.fieldbyname('MFQty').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_CGSel.Order_Main.Delete; + end; + end; + frmClothContractList_CGSel.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_CGSel.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ', 'ʾ', 0); + exit; + end; + if Order_Sub.Locate('ToFactoryName', null, []) = True then + begin + Application.MessageBox('ȾΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CP_CodeName', '', []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CP_CodeName', null, []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('BatchNo', '', []) = True then + begin + Application.MessageBox('κŲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('BatchNo', null, []) = True then + begin + Application.MessageBox('κŲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CRType', null, []) = True then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CRType', '', []) = True then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('CRTYpe;ConNo', VarArrayOf(['Ͷ', Null]), [loPartialKey]) = True then + begin + Application.MessageBox('ͶݣͶƻΪ!', 'ʾ', 0); + Exit; + end; + if SaveDataCK() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); +// ConNo.Text := ''; +// FactoryNoName.Text := ''; +// CompanyName.Text := ''; +// LXPerson.Text := ''; +// LXTel.Text := ''; +// JHPlace.Text := ''; + Order_Sub.EmptyDataSet; + PState := 0; + fMainID := ''; +// ConNo.Text := 'Զ'; + end; +end; + +procedure TfrmOrdeFollower_inputCK.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothContractList_TpSel := TfrmClothContractList_TpSel.Create(Application); + with frmClothContractList_TpSel do + begin +// ToolButton1.Visible := True; + FFactoryNoName := Self.Order_Sub.fieldbyname('JHPlace').AsString; + if ShowModal = 1 then + begin + frmClothContractList_TpSel.Order_Main.DisableControls; + with frmClothContractList_TpSel.Order_Main do + begin + First; + while frmClothContractList_TpSel.Order_Main.Locate('SSel', True, []) do + begin + with Self.Order_Sub do + begin + edit; + FieldByName('DeliveryDate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('fromMainID').Value := Trim(frmClothContractList_TpSel.Order_Main.fieldbyname('mainid').AsString); + FieldByName('fromSubID').Value := Trim(frmClothContractList_TpSel.Order_Main.fieldbyname('SUbid').AsString); + FieldByName('fromConNo').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('ConNo').Value; +// FieldByName('FactoryNoName').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('FactoryNoName').Value; +// FieldByName('FactoryNo').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('FactoryNo').Value; + FieldByName('CP_CodeName').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('C_Color').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('C_Color').Value; + FieldByName('ConNo').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('ConNo').Value; + FieldByName('JHPlace').Value := frmClothContractList_TpSel.Order_Main.fieldbyname('FactoryNoName').Value; + fieldbyname('C_UNit').Value := 'M'; + end; + frmClothContractList_TpSel.Order_Main.Delete; + end; + end; + frmClothContractList_TpSel.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_TpSel.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('JHPlace').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmOrdeFollower_inputCK.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('ToFactoryName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +end. + diff --git a/桂华管理系统/U_OrderInPut.pas b/桂华管理系统/U_OrderInPut.pas index 84f7458..456be84 100644 --- a/桂华管理系统/U_OrderInPut.pas +++ b/桂华管理系统/U_OrderInPut.pas @@ -192,6 +192,7 @@ type FXS: Integer; fCustomerNoName: string; forderType: string; + fDParameters1: string; fsyrName: string; { Public declarations } end; @@ -298,8 +299,16 @@ begin with ADOQuery1 do begin Close; - SQL.Clear; - sql.Add(' select * from JYOrder_Sub '); + SQL.Clear; + 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 begin sql.Add('where MainId=''' + Trim(FMainId) + ''''); @@ -425,6 +434,19 @@ begin SYRName.Enabled := false; // orderType.Enabled:=false; 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(); end; @@ -986,15 +1008,15 @@ begin begin flag := 'RKPlace'; flagname := 'Ⱦ'; - if ShowModal = 1 then + if ShowModal = 1 then begin JGFactoryName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); JGFactoryName.TxtCode := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); end; end; finally - frmZDYHelp.Free; - end; + frmZDYHelp.Free; + end; end; procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject); @@ -1829,11 +1851,11 @@ begin mvalue := Trim(CustomerNoName.Text); if Length(Trim(mvalue)) > 1 then begin - //mvalue:='%'+Trim(mvalue)+'%'; - with ADO_KH do + //mvalue:='%'+Trim(mvalue)+'%'; + with ADO_KH do begin Close; - sql.Clear; + sql.Clear; sql.Add(' select * from KH_Zdy_Attachment '); sql.Add(' where (ZDYName like ' + quotedstr('%' + trim(mvalue) + '%')); sql.Add(' or dbo.getpinYin(zdyName) like ' + quotedstr('%' + trim(mvalue) + '%')); @@ -1842,7 +1864,7 @@ begin Open; end; if ADO_KH.IsEmpty then - begin + begin cxGrid4.Visible := False; CustomerNoName.text := ''; application.MessageBox('ÿͻ뵱ǰҵԱһ£', 'ʾϢ', 0); diff --git a/桂华管理系统/U_ProductOrderNewList.dfm b/桂华管理系统/U_ProductOrderNewList.dfm index 9c38434..c84b955 100644 --- a/桂华管理系统/U_ProductOrderNewList.dfm +++ b/桂华管理系统/U_ProductOrderNewList.dfm @@ -180,22 +180,22 @@ object frmProductOrderNewList: TfrmProductOrderNewList ImageIndex = 72 OnClick = TrzClick end - object TBClose: TToolButton + object ToolButton5: TToolButton Left = 684 Top = 30 AutoSize = True + Caption = #30830#35748 + ImageIndex = 113 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 747 + Top = 30 + AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton5: TToolButton - Left = 747 - Top = 30 - AutoSize = True - Caption = #30830#35748 - ImageIndex = 56 - OnClick = ToolButton5Click - end end object Panel1: TPanel Left = 0 diff --git a/桂华管理系统/U_ProductOrderNewList.pas b/桂华管理系统/U_ProductOrderNewList.pas index 1aca5d4..178a2fd 100644 --- a/桂华管理系统/U_ProductOrderNewList.pas +++ b/桂华管理系统/U_ProductOrderNewList.pas @@ -217,6 +217,12 @@ begin if Trim(fDParameters1) = '' then begin TBADD.Visible := false; + if fOrderType = '' then + ToolButton4.Visible := true + else + begin + ToolButton4.Visible := false; + end; case cxTabControl1.TabIndex of 0: begin @@ -298,7 +304,7 @@ end; procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); begin - cxgrid1.Align := alClient; + cxgrid1.Align := alClient; end; procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); @@ -409,12 +415,13 @@ begin begin Application.MessageBox('ܲ˵!','ʾ',0); Exit; - end; } - try + end; } + try frmOrderInPut := TfrmOrderInPut.Create(Application); with frmOrderInPut do begin forderType := self.forderType; + fDParameters1 := self.fDParameters1; PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').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('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); // ShowMessage(SQL.text); - Open; + Open; end; SCreateCDS20(ADOQueryPrint, CDS_Print); @@ -854,6 +861,7 @@ begin with frmOrderInPut do begin forderType := self.forderType; + fDParameters1 := self.fDParameters1; PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); ToolBar2.Enabled := False; diff --git a/桂华管理系统/U_RKSMEdit.dfm b/桂华管理系统/U_RKSMEdit.dfm index 262c33a..531cbc2 100644 --- a/桂华管理系统/U_RKSMEdit.dfm +++ b/桂华管理系统/U_RKSMEdit.dfm @@ -1,6 +1,6 @@ object frmRKSMEdit: TfrmRKSMEdit - Left = 38 - Top = 116 + Left = 476 + Top = 266 Width = 1278 Height = 684 Caption = #25195#25551#20837#24211#31383#21475 @@ -220,7 +220,7 @@ object frmRKSMEdit: TfrmRKSMEdit Align = alClient TabOrder = 0 object TV2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCustomDrawCell = TV2CustomDrawCell DataController.DataSource = DataSource2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -325,7 +325,7 @@ object frmRKSMEdit: TfrmRKSMEdit Align = alBottom TabOrder = 1 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -463,11 +463,11 @@ object frmRKSMEdit: TfrmRKSMEdit Left = 0 Top = 81 Width = 237 - Height = 548 + Height = 547 Align = alLeft TabOrder = 4 object Tv3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DSTm DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -611,6 +611,7 @@ object frmRKSMEdit: TfrmRKSMEdit object cxStyleRepository1: TcxStyleRepository Left = 69 Top = 130 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clInactiveCaption diff --git a/桂华管理系统/U_RKSMEdit.pas b/桂华管理系统/U_RKSMEdit.pas index 63174d0..5872f22 100644 --- a/桂华管理系统/U_RKSMEdit.pas +++ b/桂华管理系统/U_RKSMEdit.pas @@ -3,13 +3,26 @@ unit U_RKSMEdit; interface uses - Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + Windows, Messages, strutils, SysUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxClasses, cxControls, - cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, - cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, - MovePanel,MMSystem; + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls, + ComCtrls, ToolWin, DBClient, ADODB, MovePanel, MMSystem, 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 TfrmRKSMEdit = class(TForm) @@ -87,21 +100,18 @@ type procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); - procedure FormCreate(Sender: TObject); procedure SmNOKeyPress(Sender: TObject; var Key: Char); procedure FormShow(Sender: TObject); - procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure kcKwBtnClick(Sender: TObject); procedure Button4Click(Sender: TObject); private procedure InitGrid(); procedure InitMJID(); - function SaveRK():Boolean; - Procedure QueryRk(); - Procedure QueryTM(); + function SaveRK(): Boolean; + procedure QueryRk(); + procedure QueryTM(); { Private declarations } public { Public declarations } @@ -111,10 +121,12 @@ var frmRKSMEdit: TfrmRKSMEdit; implementation + uses - U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; + U_DataLink, U_Fun, U_UserHelp, U_ZDYHelp; {$R *.dfm} -Procedure TfrmRKSMEdit.QueryTm(); + +procedure TfrmRKSMEdit.QueryTm(); begin with ADOQueryTM do begin @@ -122,12 +134,13 @@ begin sql.Clear; sql.Add('select TOP 50 MJID'); 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=''δ'' '); open; end; end; -Procedure TfrmRKSMEdit.QueryRk(); + +procedure TfrmRKSMEdit.QueryRk(); begin with ADOQuery1 do 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_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('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(')'); open; end; end; -function TfrmRKSMEdit.SaveRK():Boolean; + +function TfrmRKSMEdit.SaveRK(): Boolean; var - maxno:String; - CRID:Integer; - MaxCkNo,MaxCkSubNo:String; - MhcTime:TdateTime; + maxno: string; + CRID: Integer; + MaxCkNo, MaxCkSubNo: string; + MhcTime: TdateTime; begin - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; try - with ADOQueryTmp do + with ADOQueryTmp do begin Close; sql.Clear; @@ -162,21 +176,21 @@ begin sql.Add('select * from CK_BanCP_CRID'); Open; end; - CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; - if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',5,1)=False then + CRID := ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp, MaxCkNo, 'JR', 'CK_BanCP_CR', 5, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Application.MessageBox('ȡƷֿʧܣ', 'ʾ', 0); Exit; end; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_CR where 1<>1'); - Open; - end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; { with ADOQueryTmp do begin close; @@ -193,81 +207,81 @@ begin mhcTime:=date(); end; end; } - mhcTime:=SGetServerDateTime(ADOQueryTmp); + MhcTime := SGetServerDateTime(ADOQueryTmp); - with ADOQueryCmd do - begin - Append; - FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); - FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); - FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('C_Code').AsString); - FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); - FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); - FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); - FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); - FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); - FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); - FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); - FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); - FieldByName('CRFlag').Value:=''; - FieldByName('CRType').Value:=''; - FieldByName('CRID').Value:=CRID; - FieldByName('KGQty').Value:=0; - FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; - FieldByName('RollNum').Value:=1; - FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; - FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; - FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; - FieldByName('Filler').Value:=Trim(DName); - FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value := Trim(ADOQueryMain.fieldbyname('MainId').AsString); + FieldByName('SubId').Value := Trim(ADOQueryMain.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value := Trim(ADOQueryMain.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value := Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value := Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value := Trim(ADOQueryMain.fieldbyname('C_Color').AsString); + FieldByName('APID').Value := Trim(ADOQueryMain.fieldbyname('APID').AsString); + FieldByName('MJID').Value := Trim(ADOQueryMain.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value := Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('BCGangNO').Value := Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value := Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', MhcTime); + FieldByName('CRFlag').Value := ''; + FieldByName('CRType').Value := ''; + FieldByName('CRID').Value := CRID; + FieldByName('KGQty').Value := 0; + FieldByName('Qty').Value := ADOQueryMain.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value := 1; + FieldByName('QtyUnit').Value := ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value := ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('Note').Value := ADOQueryMain.fieldbyname('Note').Value; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTmp); // FieldByName('kcKw').Value:=Trim(kcKw.Text); - fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); - Post; - end; + fieldbyname('kcKw').Value := GetKw(ADOQueryTmp, ADOQueryMain.fieldbyname('C_CodeName').AsString, ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_KC where 1<>1'); - Open; - end; - with ADOQueryCmd do - begin - Append; - FieldByName('CRID').Value:=CRID; - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); - FieldByName('CRType').Value:=''; - FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; - FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('C_Code').AsString); - FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); - FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); - FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); - FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); - FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); - FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); - FieldByName('KCKGQty').Value:=0; - FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; - FieldByName('KCRollNum').Value:=1; - FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; - FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); - FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := CRID; + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', MhcTime); + FieldByName('CRType').Value := ''; + FieldByName('CPType').Value := ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('C_Code').Value := Trim(ADOQueryMain.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value := Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value := Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value := Trim(ADOQueryMain.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value := Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value := Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + FieldByName('MJID').Value := Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value := 0; + FieldByName('KCQty').Value := ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('KCRollNum').Value := 1; + FieldByName('KCQtyUnit').Value := ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value := Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('KCNote').Value := ADOQueryMain.fieldbyname('Note').Value; // FieldByName('kcKw').Value:=Trim(kcKw.Text); - fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); - Post; - end; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); - ExecSQL; - end; + fieldbyname('kcKw').Value := GetKw(ADOQueryTmp, ADOQueryMain.fieldbyname('C_CodeName').AsString, ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID=''' + Trim(ADOQueryMain.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; ADOQueryCmd.Connection.CommitTrans; - Result:=true; + Result := true; except ADOQueryCmd.Connection.RollbackTrans; end; @@ -283,96 +297,115 @@ begin SQL.Add('where 1=2 '); Open; end; - SCreateCDS20(ADOQueryMain,CDSMJID); - SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryMain, CDSMJID); + SInitCDSData20(ADOQueryMain, CDSMJID); end; procedure TfrmRKSMEdit.InitMJID(); begin - MovePanel1.Visible:=false; + MovePanel1.Visible := false; with ADOQueryMain do begin Close; sql.Clear; 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; - if not IsEmpty then + if not IsEmpty then begin - IF trim(Fieldbyname('MJstr2').AsString)='' then + if trim(Fieldbyname('MJstr2').AsString) = '' then begin CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:=''; - CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.FieldByName('SDefNote').Value := ''; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); CDSMJID.Post; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); end else begin - IF saveRk() then + if saveRk() then begin - CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='ɹ'; - CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value := 'ɹ'; + CDSMJID.FieldByName('MJID').Value := trim(ADOQueryMain.Fieldbyname('MJID').AsString); // CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').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('CPType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); - CDSMJID.FieldByName('RollNum').Value:=1; - CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; - CDSMJID.FieldByName('QtyUnit').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); - CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); - CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); - CDSMJID.FieldByName('RCGangNO').Value:=trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); - CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); - CDSMJID.Post; - QueryRk(); - QueryTm(); - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + CDSMJID.FieldByName('C_CodeName').Value := trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value := trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('RollNum').Value := 1; + CDSMJID.FieldByName('Qty').Value := ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('QtyUnit').Value := trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value := trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value := trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('RCGangNO').Value := trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); + CDSMJID.FieldByName('BCgangNO').Value := trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); + CDSMJID.Post; + QueryRk(); + QueryTm(); + with ADOQueryTM do + 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 else begin CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='ʧ'; - CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.FieldByName('SDefNote').Value := 'ʧ'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); CDSMJID.Post; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav'),0, SND_ASYNC); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ʧ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ʧ.wav'), 0, SND_ASYNC); end; end; end else begin CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='벻'; - CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.FieldByName('SDefNote').Value := '벻'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); CDSMJID.Post; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav'), 0, SND_ASYNC); end; end; - IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɹ' then + if trim(CDSMJID.FieldByName('SDefNote').AsString) <> 'ɹ' then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := trim(CDSMJID.FieldByName('SDefNote').AsString); end; end; procedure TfrmRKSMEdit.FormDestroy(Sender: TObject); begin - frmRKSMEdit:=nil; + frmRKSMEdit := nil; end; -procedure TfrmRKSMEdit.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmRKSMEdit.FormClose(Sender: TObject; var Action: TCloseAction); begin - writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); - writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); - writeCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); - Action:=cahide; + writeCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + writeCxGrid(self.Caption + Tv2.Name, Tv2, 'Ʒֿ'); + writeCxGrid(self.Caption + Tv3.Name, Tv3, 'Ʒֿ'); + Action := cahide; end; procedure TfrmRKSMEdit.TBCloseClick(Sender: TObject); @@ -382,56 +415,55 @@ end; procedure TfrmRKSMEdit.FormCreate(Sender: TObject); begin - Panel2.Align:=alClient; - readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); - readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); - readCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); + Panel2.Align := alClient; + readCxGrid(self.Caption + tv1.Name, Tv1, 'Ʒֿ'); + readCxGrid(self.Caption + Tv2.Name, Tv2, 'Ʒֿ'); + readCxGrid(self.Caption + Tv3.Name, Tv3, 'Ʒֿ'); end; procedure TfrmRKSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin - if trim(smno.Text)='' then exit; + if trim(smno.Text) = '' then + exit; initMJID(); - smno.Text:=''; + smno.Text := ''; smno.SetFocus; end; end; procedure TfrmRKSMEdit.FormShow(Sender: TObject); begin - MovePanel1.Left:=(Width-MovePanel1.Width) div 2; - MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + MovePanel1.Left := (Width - MovePanel1.Width) div 2; + MovePanel1.top := (Height - MovePanel1.Height - 200) div 2; InitGrid(); end; -procedure TfrmRKSMEdit.TV2CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmRKSMEdit.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var - i:integer; + i: integer; begin - i:=tv2.GetColumnByFieldName('SDefNote').Index; - if (AViewInfo.GridRecord.Values[i]<>'ɹ') then - ACanvas.Brush.Color:=clred; + i := tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i] <> 'ɹ') then + ACanvas.Brush.Color := clred; end; procedure TfrmRKSMEdit.kcKwBtnClick(Sender: TObject); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='CPKWFlag'; - flagname:='λϢ'; - V1Name.Caption:='λ'; - V1Note.Caption:='Ӣ'; + flag := 'CPKWFlag'; + flagname := 'λϢ'; + V1Name.Caption := 'λ'; + V1Note.Caption := 'Ӣ'; // MainType:=Trim(DName); - fnote:=FALSE; - if ShowModal=1 then + fnote := FALSE; + if ShowModal = 1 then begin - kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + kcKw.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -441,8 +473,9 @@ end; procedure TfrmRKSMEdit.Button4Click(Sender: TObject); begin - MovePanel1.Visible:=False; + MovePanel1.Visible := False; SmNO.SetFocus; end; end. +