梭织

A00通用窗体/U_WBSpecSel.dfm

@@ -103,6 +103,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
     Height = 484
     Align = alClient
     TabOrder = 2
+    ExplicitTop = 80
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

E00梭织通用窗体/U_TatPlanSel2.pas

@@ -0,0 +1,223 @@
+unit U_TatPlanSel2;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
+  cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
+  System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
+  dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic, 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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
+  dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
+  dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
+  dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
+  dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
+  dxSkinXmas2008Blue, cxPC;
+
+type
+  TfrmTatPlanSel2 = class(TfrmBaseHelp)
+    ToolBar1: TToolBar;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ToolButton1: TToolButton;
+    ADOConnection1: TADOConnection;
+    Panel1: TPanel;
+    GPM_1: TcxGridPopupMenu;
+    ImageList1: TImageList;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    Label3: TLabel;
+    Label8: TLabel;
+    Label1: TLabel;
+    OrderNo: TEdit;
+    ConNo: TEdit;
+    CustName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    v1Column31: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    cxStyle2: TcxStyle;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    FCoType, FAuthority: string;
+    { Public declarations }
+  end;
+
+var
+  frmTatPlanSel2: TfrmTatPlanSel2;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmTatPlanSel2.FormCreate(Sender: TObject);
+begin
+  inherited;
+  try
+    with ADOConnection1 do
+    begin
+      Connected := false;
+      ConnectionString := DConString;
+      Connected := true;
+    end;
+    ADOQueryBaseCmd.Connection := ADOConnection1;
+    ADOQueryBaseTemp.Connection := ADOConnection1;
+  except
+    application.MessageBox('网络连接失败！', '提示信息');
+  end;
+end;
+
+procedure TfrmTatPlanSel2.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmTatPlanSel2 := nil;
+end;
+
+procedure TfrmTatPlanSel2.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTatPlanSel2.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := cahide;
+end;
+
+procedure TfrmTatPlanSel2.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
+      SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
+      sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code)  ');
+      sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
+      //SQL.Add(' where  isnull(A.status,''0'')=''9'' ');
+      sql.add('where 1=1');
+      case cxTabControl1.TabIndex of
+        0:
+          begin
+            sql.Add('and isnull(Status,''0'') =''0'' ');
+          end;
+        1:
+          begin
+            sql.Add('and isnull(Status,''0'') =''9'' ');
+          end;
+        2:
+          begin
+            sql.Add('and isnull(Status,''0'') =''10'' ');
+//            sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
+//            sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
+          end;
+        3:
+          begin
+            sql.Add('and isnull(Status,''0'') not in (''11'',''22'') ');
+          end;
+      end;
+      sql.add('order by A.FILLTIME DESC');
+      Open;
+    end;
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmTatPlanSel2.OrderNoChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  end;
+end;
+
+procedure TfrmTatPlanSel2.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
+  InitGrid();
+end;
+
+procedure TfrmTatPlanSel2.TBCloseClick(Sender: TObject);
+begin
+  inherited;
+  Close;
+end;
+
+procedure TfrmTatPlanSel2.TBSaveClick(Sender: TObject);
+begin
+  WriteCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
+
+end;
+
+procedure TfrmTatPlanSel2.ToolButton1Click(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+procedure TfrmTatPlanSel2.Tv1DblClick(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+end.
+

E01梭织生产计划/U_TatGYInPut.dfm

@@ -72,7 +72,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut
     Ctl3D = False
     ParentCtl3D = False
     TabOrder = 1
-    ExplicitTop = 36
     object Label2: TLabel
       Left = 848
       Top = 9

E01梭织生产计划/U_TatGYInPut.pas

@@ -377,7 +377,7 @@ begin
   end;
   SCSHData(ADOQueryTemp, ScrollBox1, 0);
 
-//  QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
+  QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
   CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
   CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
 
@@ -621,7 +621,7 @@ begin
         FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
       end;
       FieldByName('MainId').Value := Trim(maxno);
-//      FieldByName('QZF').Value := Trim(QZF.text);
+      FieldByName('QZF').Value := Trim(QZF.text);
       FieldByName('CZF').Value := Trim(CZF.text);
       FieldByName('CKF').Value := Trim(CKF.text);
 

E01梭织生产计划/U_TatPlanInPut.pas

@@ -634,7 +634,7 @@ begin
         FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
       end;
       FieldByName('MainId').Value := Trim(maxno);
-//      FieldByName('QZF').Value := Trim(QZF.text);
+      FieldByName('QZF').Value := Trim(QZF.text);
       FieldByName('CZF').Value := Trim(CZF.text);
       FieldByName('CKF').Value := Trim(CKF.text);
       RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Main', ScrollBox1, 0);

E02梭织经轴仓库/U_GKManageSel.dfm

@@ -0,0 +1,265 @@
+inherited frmGKManageSel: TfrmGKManageSel
+  Left = 297
+  Top = 109
+  Caption = #38050#25187#20449#24687#36873#25321
+  ClientHeight = 523
+  ClientWidth = 1461
+  KeyPreview = True
+  ExplicitWidth = 1477
+  ExplicitHeight = 562
+  PixelsPerInch = 96
+  TextHeight = 17
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1461
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Images = DataLink_WarpBeamStk.ImageList_new32
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 3
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object TBRafresh: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TbFilter: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid2: TcxGrid [1]
+    Left = 0
+    Top = 81
+    Width = 1461
+    Height = 442
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    ExplicitTop = 76
+    object Tv2: TcxGridDBTableView
+      OnDblClick = Tv2DblClick
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      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 = skCount
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #38050#31576#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #26550#23376#32534#21495
+        DataBinding.FieldName = 'JZBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object Tv2Column3: TcxGridDBColumn
+        Caption = #26550#23376#23618#21495
+        DataBinding.FieldName = 'JZCH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object Tv2Column5: TcxGridDBColumn
+        Caption = #31576#21495'('#40831'/2'#33521#23544')'
+        DataBinding.FieldName = 'GKKH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 124
+      end
+      object Tv2Column6: TcxGridDBColumn
+        Caption = #38050#31576#38271#24230'CM'
+        DataBinding.FieldName = 'GKLength'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object Tv2Column10: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column7: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'kcqty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 38
+    Width = 1461
+    Height = 43
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 4
+    ExplicitTop = 32
+    object Label1: TLabel
+      Left = 13
+      Top = 11
+      Width = 48
+      Height = 17
+      Caption = #38050#25187#32534#21495
+    end
+    object GKBH: TcxTextEdit
+      Tag = 2
+      Left = 83
+      Top = 6
+      ParentColor = True
+      Properties.OnChange = MCNOPropertiesChange
+      TabOrder = 0
+      Width = 158
+    end
+  end
+  inherited loadProcess: TPanel
+    Left = 316
+    Top = 411
+    ExplicitLeft = 316
+    ExplicitTop = 411
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 316
+    Top = 356
+    ExplicitLeft = 316
+    ExplicitTop = 356
+    ExplicitHeight = 25
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_WarpBeamStk.ADOLink
+    Left = 113
+    Top = 256
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_WarpBeamStk.ADOLink
+    Left = 137
+    Top = 169
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_WarpBeamStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 459
+    Top = 169
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_WarpBeamStk.ADOLink
+    Parameters = <>
+    Left = 357
+    Top = 153
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_WarpBeamStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 253
+    Top = 161
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 520
+    Top = 264
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 283
+    Top = 259
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 429
+    Top = 271
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 355
+    Top = 250
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

E02梭织经轴仓库/U_GKManageSel.pas

@@ -0,0 +1,189 @@
+unit U_GKManageSel;
+
+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, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
+  cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
+
+type
+  TfrmGKManageSel = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    TbFilter: TToolButton;
+    ADOQueryMain: TADOQuery;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    GPM_1: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    Panel1: TPanel;
+    Label1: TLabel;
+    GKBH: TcxTextEdit;
+    Tv2Column4: TcxGridDBColumn;
+    Tv2Column10: TcxGridDBColumn;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    ToolButton1: 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 cxTabControl1Change(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure CustomerChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure MCNOPropertiesChange(Sender: TObject);
+    procedure Tv2DblClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    fFlag: integer;
+    { Public declarations }
+    RKFlag, FCYID, fmanage: string;
+  end;
+
+var
+  frmGKManageSel: TfrmGKManageSel;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel;
+
+{$R *.dfm}
+
+procedure TfrmGKManageSel.InitGrid();
+begin
+  GKBH.SetFocus;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' select A.*,kcqty=( select sum(IOQtyFlag*qty) from Bs_Product_IO e where e.p_code=a.gkbh and stkname=''物料'') from  BS_GK A  ');
+//      showmessage(Sql.text);
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+    TbFilter.Click;
+  end;
+end;
+
+procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject);
+var
+  sql: string;
+begin
+  if ADOQueryMain.Active then
+  begin
+    sql := SGetFilters(Panel1, 1, 2);
+    SDofilter(ADOQueryMain, sql);
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  end;
+end;
+
+procedure TfrmGKManageSel.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmGKManageSel := nil;
+end;
+
+procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmGKManageSel.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(Trim(Self.Caption), Tv2, '钢扣信息选择');
+  Close;
+end;
+
+procedure TfrmGKManageSel.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(Trim(Self.Caption), Tv2, '钢扣信息选择');
+  InitGrid();
+end;
+
+procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmGKManageSel.ToolButton1Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  ModalResult := 1;
+end;
+
+procedure TfrmGKManageSel.Tv2DblClick(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid;
+end;
+
+procedure TfrmGKManageSel.N1Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, True);
+end;
+
+procedure TfrmGKManageSel.N2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, False);
+end;
+
+procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
+begin
+  TbFilter.Click;
+end;
+
+procedure TfrmGKManageSel.FormCreate(Sender: TObject);
+begin
+  inherited;
+  fmanage := Trim(DParameters1);
+end;
+
+end.
+

E02梭织经轴仓库/U_TatWBCardInPut.dfm

@@ -34,8 +34,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
         Height = 518
         Align = alClient
         TabOrder = 0
-        ExplicitLeft = -284
-        ExplicitTop = 242
         object TV2: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>

E02梭织经轴仓库/U_TatWBCardInPut.pas

@@ -215,7 +215,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel,
-  U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel;
+  U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel2;
 
 {$R *.dfm} procedure TfrmTatWBCardInPut.InitCard3();
 begin
@@ -526,8 +526,8 @@ procedure TfrmTatWBCardInPut.GYNoPropertiesButtonClick(Sender: TObject; AButtonI
 begin
   inherited;
   try
-    frmTatPlanSel := TfrmTatPlanSel.Create(Application);
+    frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
-    with frmTatPlanSel do
+    with frmTatPlanSel2 do
     begin
       if ShowModal = 1 then
       begin
@@ -568,7 +568,7 @@ begin
       end;
     end;
   finally
-    frmTatPlanSel.Free;
+    frmTatPlanSel2.Free;
   end;
 end;
 

E02梭织经轴仓库/U_WBSpecInPut.dfm

@@ -18,7 +18,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     Height = 408
     Align = alClient
     TabOrder = 0
-    ExplicitTop = 461
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -262,7 +261,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     Ctl3D = False
     ParentCtl3D = False
     TabOrder = 2
-    ExplicitTop = 36
     object Label7: TLabel
       Left = 75
       Top = 342
@@ -327,7 +325,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
       Caption = #21514#25968
     end
     object Label10: TLabel
-      Left = 361
+      Left = 569
       Top = 127
       Width = 64
       Height = 21
@@ -389,6 +387,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
       Height = 21
       Caption = #26159#21542#19978#27974
     end
+    object Label19: TLabel
+      Left = 361
+      Top = 126
+      Width = 64
+      Height = 21
+      Caption = #38050#31576#32534#21495
+    end
     object WB_Code: TcxTextEdit
       Tag = 2
       Left = 113
@@ -441,7 +446,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     object WB_YarnStripRemainder: TcxTextEdit
       Tag = 2
       Left = 431
-      Top = 82
+      Top = 84
       ParentColor = True
       TabOrder = 6
       Width = 200
@@ -456,11 +461,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     end
     object WB_ReedNo: TcxTextEdit
       Tag = 2
-      Left = 431
+      Left = 639
-      Top = 121
+      Top = 123
       ParentColor = True
+      Properties.ReadOnly = True
       TabOrder = 8
-      Width = 200
+      Width = 90
     end
     object WB_Width: TcxTextEdit
       Tag = 2
@@ -473,7 +479,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     object WB_YarnLen: TcxTextEdit
       Tag = 2
       Left = 431
-      Top = 161
+      Top = 163
       ParentColor = True
       TabOrder = 10
       Width = 200
@@ -489,7 +495,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     object WB_Arg_PXDS: TcxTextEdit
       Tag = 2
       Left = 431
-      Top = 200
+      Top = 202
       ParentColor = True
       TabOrder = 12
       Width = 200
@@ -505,7 +511,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
     object WB_YarnArrNote: TcxMemo
       Tag = 2
       Left = 764
-      Top = 11
+      Top = 6
       ParentFont = False
       TabOrder = 14
       Height = 264
@@ -539,6 +545,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
       Text = #21542
       Width = 200
     end
+    object GKBH: TcxButtonEdit
+      Tag = 2
+      Left = 431
+      Top = 124
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = GKBHPropertiesButtonClick
+      TabOrder = 18
+      Width = 132
+    end
   end
   object ToolBar2: TToolBar [3]
     Tag = 1

E02梭织经轴仓库/U_WBSpecInPut.pas

@@ -102,6 +102,8 @@ type
     Label18: TLabel;
     ISSizing: TcxComboBox;
     Tv1Column8: TcxGridDBColumn;
+    Label19: TLabel;
+    GKBH: TcxButtonEdit;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBAddClick(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
@@ -112,6 +114,7 @@ type
     procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure btn1Click(Sender: TObject);
     procedure GYNoDblClick(Sender: TObject);
+    procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
   private
     { Private declarations }
     function SaveData(): Boolean;
@@ -127,7 +130,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_YarnInfoSel, U_TatClothInfoSel, U_TatGYSel,
-  U_CompanySel;
+  U_CompanySel, U_GKManageSel;
 
 {$R *.dfm}
 
@@ -438,6 +441,24 @@ begin
 
 end;
 
+procedure TfrmWBSpecInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmGKManageSel := tfrmGKManageSel.Create(Application);
+    with frmGKManageSel do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
+        SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
+      end;
+    end;
+  finally
+    frmGKManageSel.Free;
+  end;
+end;
+
 procedure TfrmWBSpecInPut.GYNoDblClick(Sender: TObject);
 begin
   inherited;

E02梭织经轴仓库/U_WBSpecList.dfm

@@ -151,8 +151,6 @@ inherited frmWBSpecList: TfrmWBSpecList
     Height = 480
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = 8
-    ExplicitTop = 75
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -240,6 +238,13 @@ inherited frmWBSpecList: TfrmWBSpecList
         Options.Editing = False
         Width = 66
       end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #38050#31576#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 95
+      end
       object Tv1Column7: TcxGridDBColumn
         Caption = #32463#23494
         DataBinding.FieldName = 'WB_YarnDensity'

E02梭织经轴仓库/U_WBSpecList.pas

@@ -99,6 +99,7 @@ type
     TV2Column4: TcxGridDBColumn;
     ToolButton2: TToolButton;
     TV2Column5: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);

E02梭织经轴仓库/WarpBeamStk.dpr

@@ -67,7 +67,7 @@ uses
   U_TatWBOutputList_XB in 'U_TatWBOutputList_XB.pas' {frmTatWBOutputList_XB},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
   U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
-  U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel};
+  U_TatPlanSel2 in '..\E00梭织通用窗体\U_TatPlanSel2.pas' {frmTatPlanSel2};
 
 {$R *.res}
 

E02梭织经轴仓库/WarpBeamStk.dproj

@@ -80,7 +80,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E02梭织经轴仓库\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -284,8 +284,8 @@
             <Form>frmTatGYSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
+        <DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel2.pas">
-            <Form>frmTatPlanSel</Form>
+            <Form>frmTatPlanSel2</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <BuildConfiguration Include="Debug">

E02梭织经轴仓库/WarpBeamStk.dproj.local

@@ -53,8 +53,8 @@
     <File Path="..\E00梭织通用窗体"/>
     <File Path="..\E00梭织通用窗体\U_TatGYSel.pas"/>
     <File Path="..\E00梭织通用窗体\U_TatGYSel.dfm"/>
-    <File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
+    <File Path="..\E00梭织通用窗体\U_TatPlanSel2.pas"/>
-    <File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
+    <File Path="..\E00梭织通用窗体\U_TatPlanSel2.dfm"/>
     <File Path="D:\Dp10RepoV1"/>
     <File Path="..\..\..\public10"/>
     <File Path="..\..\..\public10\design"/>
@@ -125,17 +125,19 @@
     <File Path="U_WBTypeSel.dfm"/>
   </ProjectSortOrder>
 	<Transactions>
-    <Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>2025-07-10 16:55:54.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>2025-07-10 16:55:54.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
   </Transactions>
 </BorlandProject>