码单

打卷检验管理/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

打卷检验管理/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'' ');

打卷检验管理/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

打卷检验管理/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';
 

打卷检验管理/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

打卷检验管理/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);

打卷检验管理/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

打卷检验管理/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.
+