~

检验管理/U_JYOrderCDOne.dfm

@@ -72,16 +72,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       ImageIndex = 58
       OnClick = TBManageClick
     end
-    object ToolButton6: TToolButton
+    object ToolButton15: TToolButton
       Left = 252
       Top = 0
       AutoSize = True
+      Caption = ' '#36716'  '#21333' '
+      ImageIndex = 47
+      OnClick = ToolButton15Click
+    end
+    object ToolButton6: TToolButton
+      Left = 339
+      Top = 0
+      AutoSize = True
       Caption = #20986#24211
       ImageIndex = 16
       OnClick = ToolButton6Click
     end
     object ToolButton10: TToolButton
-      Left = 315
+      Left = 402
       Top = 0
       AutoSize = True
       Caption = #25195#25551#20986#24211
@@ -89,7 +97,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton10Click
     end
     object ToolButton7: TToolButton
-      Left = 402
+      Left = 489
       Top = 0
       AutoSize = True
       Caption = #25764#38144#20986#24211
@@ -97,14 +105,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton7Click
     end
     object ToolButton11: TToolButton
-      Left = 489
+      Left = 576
       Top = 0
       Caption = #25209#37327#20462#25913#32568#21495
       ImageIndex = 54
       OnClick = ToolButton11Click
     end
     object TBDW: TToolButton
-      Left = 608
+      Left = 695
       Top = 0
       AutoSize = True
       Caption = #20462#25913#25968#37327#21333#20301
@@ -112,7 +120,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBDWClick
     end
     object ToolButton4: TToolButton
-      Left = 719
+      Left = 806
       Top = 0
       AutoSize = True
       Caption = #25209#37327#35843#25972#31859#25968
@@ -120,7 +128,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton4Click
     end
     object ToolButton13: TToolButton
-      Left = 830
+      Left = 917
       Top = 0
       AutoSize = True
       Caption = #25209#37327#20928#37325#36716#38271#24230
@@ -129,7 +137,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton13Click
     end
     object ToolButton8: TToolButton
-      Left = 953
+      Left = 1040
       Top = 0
       AutoSize = True
       Caption = #25209#37327#20462#25913#30382#37325
@@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton8Click
     end
     object ToolButton1: TToolButton
-      Left = 1064
+      Left = 1151
       Top = 0
       AutoSize = True
       Caption = #25171#21360#26631#31614
@@ -244,13 +252,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     object ToolButton12: TToolButton
       Left = 809
       Top = 30
+      AutoSize = True
       Caption = #20462#25913#30721#21333
       ImageIndex = 54
       Visible = False
       OnClick = ToolButton12Click
     end
     object ToolButton9: TToolButton
-      Left = 928
+      Left = 896
       Top = 30
       AutoSize = True
       Caption = #24322#24120#25968#25454
@@ -258,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton9Click
     end
     object TBExport: TToolButton
-      Left = 1015
+      Left = 983
       Top = 30
       AutoSize = True
       Caption = #23548#20986
@@ -266,7 +275,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 1078
+      Left = 1046
       Top = 30
       AutoSize = True
       Caption = #20851#38381

检验管理/U_JYOrderCDOne.pas

@@ -222,6 +222,7 @@ type
     ToolButton14: TToolButton;
     Label37: TLabel;
     ComboBox4: TComboBox;
+    ToolButton15: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -284,6 +285,7 @@ type
     procedure Button14Click(Sender: TObject);
     procedure Button13Click(Sender: TObject);
     procedure ToolButton14Click(Sender: TObject);
+    procedure ToolButton15Click(Sender: TObject);
 //    procedure Edit5Click(Sender: TObject);
 //    procedure CheckBox3Click(Sender: TObject);
   private
@@ -309,7 +311,7 @@ var
 implementation
 
 uses
-  U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX;
+  U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX, U_ZDZSDXZ;
 
 {$R *.dfm}
 procedure TfrmJYOrderCDOne.JSbaoNum();
@@ -1646,7 +1648,7 @@ begin
     begin
       Close;
       sql.Clear;
-      sql.add('exec P_Print_CKMDYDL_WL_cS ');                         
+      sql.add('exec P_Print_CKMDYDL_WL_cS ');
       sql.add('@DName=' + quotedstr(Trim(DCode)));
       Open;
     end;
@@ -2479,5 +2481,58 @@ begin
   Order_Main.EnableControls;
 end;
 
+procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+  try
+    frmZDZSD := TfrmZDZSD.Create(Application);
+    with frmZDZSD do
+    begin
+      if ShowModal = 1 then
+      begin
+        with self.Order_Main do
+        begin
+          First;
+          while not Eof do                
+          begin
+            if self.Order_Main.FieldByName('SSel').AsBoolean = True then
+            begin
+              with ADOQueryCmd do
+              begin
+                Close;
+                sql.Clear;
+                sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+                sql.Add(' ' + quotedstr(trim(DName)));
+                sql.Add(',getdate() ');
+                sql.Add(',' + quotedstr(trim(self.Caption)));
+                sql.Add(',' + quotedstr(trim('检验转单')));
+                sql.Add(',' + quotedstr(trim('卷条码:' + trim(self.Order_Main.FieldByName('MJID').AsString) + ' 原单号:' + trim(self.Order_Main.FieldByName('subID').AsString) + '转之后:' + trim(frmZDZSD.Order_Main.FieldByName('subid').AsString))));
+                sql.Add(',' + quotedstr(trim('成功')));
+                sql.Add(')');
+
+                sql.Add('Update WFB_MJJY Set mainid=''' + frmZDZSD.Order_Main.fieldbyname('mainid').asstring + ''' ');
+                sql.Add(', subid=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' ');
+                sql.Add(', APID=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' ');
+                sql.Add('where MJID=''' + Trim(self.Order_Main.fieldbyname('MJID').AsString) + '''');
+
+                ExecSQL;
+              end;
+            end;
+            Next;
+          end;
+        end;
+      end;
+    end;
+  finally
+    frmZDZSD.Free;
+  end;
+end;
+
 end.
 

检验管理/U_ZDZSDXZ.dfm

@@ -0,0 +1,405 @@
+object frmZDZSD: TfrmZDZSD
+  Left = 399
+  Top = 293
+  Width = 1305
+  Height = 675
+  Caption = #36716#21333#25351#31034#21333#36873#25321
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1289
+    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 ToolButton3: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 106
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1289
+    Height = 40
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 18
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #21046#21333#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 311
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#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 = 483
+      Top = 15
+      Width = 65
+      Height = 12
+      Caption = #23458#25143#35746#21333#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 = 518
+      Top = 123
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 207
+      Top = 83
+      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 Label10: TLabel
+      Left = 517
+      Top = 147
+      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 Label2: TLabel
+      Left = 670
+      Top = 123
+      Width = 52
+      Height = 12
+      Caption = #22383#24067#25209#27425
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 670
+      Top = 147
+      Width = 52
+      Height = 12
+      Caption = #21697#21517#20013#25991
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 160
+      Top = 16
+      Width = 3
+      Height = 13
+      Caption = '-'
+    end
+    object BegDate: TDateTimePicker
+      Left = 71
+      Top = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 167
+      Top = 11
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 352
+      Top = 11
+      Width = 77
+      Height = 21
+      TabOrder = 2
+      OnChange = OrderNoChange
+    end
+    object KHorderNo: TEdit
+      Tag = 2
+      Left = 547
+      Top = 11
+      Width = 76
+      Height = 21
+      TabOrder = 3
+      OnChange = KHorderNoChange
+    end
+    object PBFactory: TEdit
+      Tag = 2
+      Left = 561
+      Top = 119
+      Width = 76
+      Height = 21
+      TabOrder = 5
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 248
+      Top = 79
+      Width = 77
+      Height = 21
+      TabOrder = 4
+    end
+    object RanFactory: TEdit
+      Tag = 2
+      Left = 561
+      Top = 143
+      Width = 76
+      Height = 21
+      TabOrder = 7
+    end
+    object Orddefstr5: TEdit
+      Tag = 2
+      Left = 725
+      Top = 119
+      Width = 76
+      Height = 21
+      TabOrder = 6
+    end
+    object PRTCodeName: TEdit
+      Tag = 2
+      Left = 725
+      Top = 143
+      Width = 76
+      Height = 21
+      TabOrder = 8
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 72
+    Width = 1289
+    Height = 564
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 40
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #23458#25143#35746#21333#21495
+        DataBinding.FieldName = 'KHorderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 84
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21697#21517#20013#25991
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #27454#21495
+        DataBinding.FieldName = 'PRTkuanNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'ganghao'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 496
+    Top = 184
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 440
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 467
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 404
+    Top = 276
+  end
+end

检验管理/U_ZDZSDXZ.pas

@@ -0,0 +1,172 @@
+unit U_ZDZSDXZ;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, ToolWin, cxGraphics, cxControls, cxLookAndFeels,
+  cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage,
+  cxEdit, cxNavigator, DB, cxDBData, cxCheckBox, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, DBClient, ADODB, cxGridLevel, cxClasses,
+  cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, 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
+  TfrmZDZSD = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    Label2: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNo: TEdit;
+    KHorderNo: TEdit;
+    PBFactory: TEdit;
+    ConNo: TEdit;
+    RanFactory: TEdit;
+    Orddefstr5: TEdit;
+    PRTCodeName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    ADOQueryMain: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Main: TClientDataSet;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    ADOQueryTemp: TADOQuery;
+    Tv1Column8: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure KHorderNoChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmZDZSD: TfrmZDZSD;
+
+implementation
+
+uses
+  U_DataLink, U_Fun;
+{$R *.dfm}
+
+procedure TfrmZDZSD.InitGrid();
+var
+  strwhere: string;
+begin                                                     
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+
+      Close;
+      Filtered := False;
+      sql.Clear;
+      sql.add('select A.*,B.* from JYOrder_Main A  ');
+      sql.add('inner join JYOrder_Sub B on A.mainid=B.mainid');
+      sql.Add('where A.FillTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
+      sql.Add('and  A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, Order_Main);
+    SInitCDSData20(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmZDZSD.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmZDZSD.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align := alClient;
+end;
+
+procedure TfrmZDZSD.FormDestroy(Sender: TObject);
+begin
+  frmZDZSD := nil;
+end;
+
+procedure TfrmZDZSD.FormShow(Sender: TObject);
+begin
+  BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
+  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmZDZSD.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmZDZSD.OrderNoChange(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 TfrmZDZSD.KHorderNoChange(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 TfrmZDZSD.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmZDZSD.ToolButton3Click(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+end.
+