From 2fe33b33ec40c8198c102bdd957a985a476563dc Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:27:33 +0800 Subject: [PATCH] =?UTF-8?q?=E7=A0=81=E5=8D=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/U_JYOrderCDOne.dfm | 8 +- 打卷检验管理/U_JYOrderCDOne.pas | 2 +- 打卷检验管理/U_MJManageNewFDNew.dfm | 22 +- 打卷检验管理/U_MJManageNewFDNew.pas | 8 +- 打卷检验管理/U_OrderInPut.dfm | 6 + 打卷检验管理/U_OrderInPut.pas | 1 + 打卷检验管理/U_YFHZ_EMX.dfm | 524 ++++++++++++++++++++++++++++ 打卷检验管理/U_YFHZ_EMX.pas | 216 ++++++++++++ 8 files changed, 767 insertions(+), 20 deletions(-) create mode 100644 打卷检验管理/U_YFHZ_EMX.dfm create mode 100644 打卷检验管理/U_YFHZ_EMX.pas diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index ee62ae6..ab9ab97 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1392 + Width = 1384 Height = 92 AutoSize = True ButtonHeight = 30 @@ -285,7 +285,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object Panel1: TPanel Left = 0 Top = 92 - Width = 1392 + Width = 1384 Height = 88 Align = alTop BevelInner = bvRaised @@ -801,8 +801,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object cxGrid1: TcxGrid Left = 0 Top = 180 - Width = 1392 - Height = 546 + Width = 1384 + Height = 538 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 7bb1540..5d62ec9 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1700,7 +1700,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd_HZ '); + sql.add('exec P_Do_PrintMd_HZ '); sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@flag=''2'' '); diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index fe32cee..8caff40 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 214 - Height = 706 + Height = 698 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ScrollBox1: TScrollBox Left = 633 Top = 87 - Width = 725 - Height = 706 + Width = 717 + Height = 698 Align = alClient Color = clWhite ParentColor = False @@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 394 Top = 87 Width = 239 - Height = 706 + Height = 698 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2091,7 +2091,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 214 Top = 87 Width = 180 - Height = 706 + Height = 698 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2100,7 +2100,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 176 - Height = 385 + Height = 377 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2208,7 +2208,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 387 + Top = 379 Width = 176 Height = 28 Align = alBottom @@ -2223,7 +2223,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 656 + Top = 648 Width = 176 Height = 48 Align = alBottom @@ -2239,7 +2239,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel5: TPanel Left = 2 - Top = 415 + Top = 407 Width = 176 Height = 241 Align = alBottom @@ -2515,7 +2515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1358 + Width = 1350 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2688,7 +2688,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1358 + Width = 1350 Height = 57 Align = alTop BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 851e695..042f736 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -3824,9 +3824,9 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd30_ban '); + sql.add('exec P_Do_PrintMd_ban '); sql.add('@DName=' + quotedstr(Trim(DCode))); - //SQL.Add(',@JTType=' + QuotedStr(SCXFlag)); + SQL.Add(',@JTType=' + QuotedStr(SCXFlag)); // ShowMessage(SQL.text); sql.add('update WFB_MJJY set banflag= 1 from WFB_MJJY A '); SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + ''''); @@ -3853,9 +3853,9 @@ begin begin Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; - end; + end; BanID.Text := trim(FBanid); - + ExportFtErpFile('ǩ.rmf', ADOCmd); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 64104fd..f4e8108 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1817,6 +1817,12 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + HeaderAlignmentHorz = taCenter + Width = 50 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 354009d..429ff94 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -192,6 +192,7 @@ type ToolButton4: TToolButton; QryCheckNet: TADOQuery; Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/打卷检验管理/U_YFHZ_EMX.dfm b/打卷检验管理/U_YFHZ_EMX.dfm new file mode 100644 index 0000000..08cbdd6 --- /dev/null +++ b/打卷检验管理/U_YFHZ_EMX.dfm @@ -0,0 +1,524 @@ +object frmYFHZ_EMX: TfrmYFHZ_EMX + Left = 440 + Top = 228 + Width = 1031 + Height = 645 + Caption = #20108#32423#36153#29992#26126#32454 + 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 = 1015 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TCK: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475#20184#27454#26126#32454 + ImageIndex = 57 + OnClick = TCKClick + end + object ToolButton1: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1015 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 446 + Top = 5 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + Visible = False + end + object Label2: TLabel + Left = 280 + Top = 5 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + Visible = False + end + object Label1: TLabel + Left = 522 + Top = 62 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object Label5: TLabel + Left = 40 + Top = 17 + Width = 72 + Height = 12 + Caption = #20108#32423#36153#29992#21517#31216 + end + object Label7: TLabel + Left = 577 + Top = 58 + Width = 48 + Height = 12 + Caption = #20184#27454#25260#22836 + Visible = False + end + object Label6: TLabel + Left = 658 + Top = 28 + Width = 48 + Height = 12 + Caption = #21697' '#21517 + Visible = False + end + object Label4: TLabel + Left = 658 + Top = 5 + Width = 48 + Height = 12 + Caption = #24320#31080#31867#22411 + Visible = False + end + object Label8: TLabel + Left = 820 + Top = 5 + Width = 48 + Height = 12 + Caption = #20184#27454#31867#22411 + Visible = False + end + object begdate: TDateTimePicker + Left = 330 + Top = 1 + Width = 96 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 0 + Visible = False + end + object Enddate: TDateTimePicker + Left = 330 + Top = 25 + Width = 96 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 1 + Visible = False + end + object YFName: TEdit + Tag = 2 + Left = 112 + Top = 13 + Width = 136 + Height = 21 + TabOrder = 2 + OnChange = FactoryNameChange + end + object FKTaitou: TEdit + Left = 629 + Top = 54 + Width = 90 + Height = 21 + TabOrder = 3 + Visible = False + OnChange = FactoryNameChange + end + object FactoryName: TComboBox + Left = 496 + Top = 1 + Width = 136 + Height = 20 + ItemHeight = 12 + TabOrder = 4 + Visible = False + OnChange = FactoryNameChange + end + object P_Codename: TEdit + Left = 709 + Top = 24 + Width = 94 + Height = 21 + TabOrder = 5 + Visible = False + OnChange = FactoryNameChange + end + object KPType: TEdit + Left = 709 + Top = 1 + Width = 94 + Height = 21 + TabOrder = 6 + Visible = False + OnChange = FactoryNameChange + end + object PayMent: TEdit + Left = 870 + Top = 1 + Width = 95 + Height = 21 + TabOrder = 7 + Visible = False + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 90 + Width = 1015 + Height = 439 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v2Qty + end + item + Kind = skSum + Column = v2Qty + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2yfk + end + item + Kind = skSum + Column = v2fk + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Qty + end + item + Kind = skSum + Column = v2YFName + end + item + Kind = skSum + Column = v2KPType + end + item + Kind = skSum + Column = v2PayMent + end + item + Kind = skSum + Column = v2FKNo + end + item + Kind = skSum + Column = v2Price + end + item + Kind = skSum + Column = Tv2Column1 + end + item + Kind = skSum + Column = Tv2Column2 + end + item + Kind = skSum + Column = v2Column10 + end + item + Kind = skSum + Column = Tv2Column3 + end + item + Kind = skSum + Column = v2yfkye + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object v2Column2: TcxGridDBColumn + Caption = #19968#32423#36153#29992#21517#31216 + DataBinding.FieldName = 'SQType' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Width = 126 + end + object v2Column1: TcxGridDBColumn + Caption = #20108#32423#36153#29992#21517#31216 + DataBinding.FieldName = 'YFName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 104 + end + object v2YFName: TcxGridDBColumn + Caption = '1'#26376#20221 + DataBinding.FieldName = 'M1' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 80 + end + object v2KPType: TcxGridDBColumn + Caption = '2'#26376#20221 + DataBinding.FieldName = 'M2' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2PayMent: TcxGridDBColumn + Caption = '3'#26376#20221 + DataBinding.FieldName = 'M3' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2FKNo: TcxGridDBColumn + Caption = '4'#26376#20221 + DataBinding.FieldName = 'M4' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Qty: TcxGridDBColumn + Caption = '5'#26376#20221 + DataBinding.FieldName = 'M5' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Price: TcxGridDBColumn + Caption = '6'#26376#20221 + DataBinding.FieldName = 'M6' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2yfk: TcxGridDBColumn + Caption = '7'#26376#20221 + DataBinding.FieldName = 'M7' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2fk: TcxGridDBColumn + Caption = '8'#26376#20221 + DataBinding.FieldName = 'M8' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object Tv2Column1: TcxGridDBColumn + Caption = '9'#26376#20221 + DataBinding.FieldName = 'M9' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column2: TcxGridDBColumn + Caption = '10'#26376#20221 + DataBinding.FieldName = 'M10' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = '11'#26376#20221 + DataBinding.FieldName = 'M11' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object Tv2Column3: TcxGridDBColumn + Caption = '12'#26376#20221 + DataBinding.FieldName = 'M12' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object v2yfkye: TcxGridDBColumn + Caption = #24180#21512#35745 + DataBinding.FieldName = 'M_Total' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 379 + Top = 208 + 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 443 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 411 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 510 + Top = 209 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 543 + Top = 208 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 477 + Top = 207 + end +end diff --git a/打卷检验管理/U_YFHZ_EMX.pas b/打卷检验管理/U_YFHZ_EMX.pas new file mode 100644 index 0000000..ccaf995 --- /dev/null +++ b/打卷检验管理/U_YFHZ_EMX.pas @@ -0,0 +1,216 @@ +unit U_YFHZ_EMX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, 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 + TfrmYFHZ_EMX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label1: TLabel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Qty: TcxGridDBColumn; + v2Price: TcxGridDBColumn; + v2yfk: TcxGridDBColumn; + v2fk: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2yfkye: TcxGridDBColumn; + v2YFName: TcxGridDBColumn; + Label5: TLabel; + YFName: TEdit; + Label7: TLabel; + FKTaitou: TEdit; + FactoryName: TComboBox; + Label6: TLabel; + P_Codename: TEdit; + v2KPType: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + Label4: TLabel; + KPType: TEdit; + Label8: TLabel; + PayMent: TEdit; + v2FKNo: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + TCK: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TCKClick(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + RKFlag, FCYID, FSQType, Fyear: string; + end; + +var + frmYFHZ_EMX: TfrmYFHZ_EMX; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_YFHZ_MX; + +{$R *.dfm} + +procedure TfrmYFHZ_EMX.InitGrid(); +var + FMoney: double; + i: Integer; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('exec P_FK_HZ_M_E @year=''' + Trim(Fyear) + ''''); + sql.Add(',@SQType=''' + FSQType + ''''); +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + + finally + ADOQueryMain.EnableControls; + + end; +end; + +procedure TfrmYFHZ_EMX.FormDestroy(Sender: TObject); +begin + frmYFHZ_EMX := nil; +end; + +procedure TfrmYFHZ_EMX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYFHZ_EMX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv2, 'ϸ'); + Close; +end; + +procedure TfrmYFHZ_EMX.FormShow(Sender: TObject); +var + fsj: string; +begin + ReadCxGrid(self.Caption, Tv2, 'ϸ'); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime - 7; +// fsj:='select distinct (A.FactoryName) name from YF_Money_CR A where A.CRType=''ӦǼ'' '; +// SInitComBoxBySql(ADOQueryCmd,FactoryName,False,fsj); + InitGrid(); +end; + +procedure TfrmYFHZ_EMX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFHZ_EMX.ToolButton2Click(Sender: TObject); +begin +// initgrid(); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); +end; + +procedure TfrmYFHZ_EMX.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFHZ_EMX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧͳб'); +end; + +procedure TfrmYFHZ_EMX.FormCreate(Sender: TObject); +begin + cxGrid2.Align := AlClient; +end; + +procedure TfrmYFHZ_EMX.TCKClick(Sender: TObject); +begin + frmYFHZ_MX := TfrmYFHZ_MX.Create(self); + with frmYFHZ_MX do + begin + Fyear := Trim(FormatDateTime('yyyy', self.BegDate.Date)); + FSQType := Trim(Self.CDS_HZ.fieldbyname('SQType').AsString); + if ShowModal = 1 then + begin + + end; + free; + end; +end; + +procedure TfrmYFHZ_EMX.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + TCK.Click; +end; + +end. +