3-4

染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\马国钢开发代码\项目代码\D7gmYongjin\染整计划(DyeingFinishingPlan.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7gmyongjin\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

染整计划(DyeingFinishingPlan.dll)/JCYData.INI

@@ -1,6 +1,6 @@
 [系统配置]
-´®¿ÚºÅ=com1
+´®¿ÚºÅ=com6
-²¨ÌØÂÊ=9600
+²¨ÌØÂÊ=4800
 校验位=0
 数据位=8
 停止位=0

染整计划(DyeingFinishingPlan.dll)/JCYData10.INI

@@ -0,0 +1,7 @@
+[系统配置]
+串口号=com1
+波特率=19200
+校验位=0
+数据位=8
+停止位=0
+频率=100

染整计划(DyeingFinishingPlan.dll)/U_BuDongBPKCInPut.dfm

@@ -0,0 +1,255 @@
+object frmBuDongBPKCInPut: TfrmBuDongBPKCInPut
+  Left = 868
+  Top = 312
+  Width = 1355
+  Height = 579
+  Align = alClient
+  Caption = #19981#21160#30333#22383#24211#23384#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1339
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DyeingFinishingPlan.ThreeImgList
+    Flat = True
+    Images = DataLink_DyeingFinishingPlan.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = ToolButton3Click
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 122
+      Top = 0
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 181
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 31
+    Width = 1339
+    Height = 509
+    Align = alClient
+    TabOrder = 1
+    object Tv2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsSelection.InvertSelect = False
+      OptionsSelection.MultiSelect = True
+      OptionsSelection.CellMultiSelect = True
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v2Column2: TcxGridDBColumn
+        Caption = #26085#26399
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 141
+      end
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'SPName'
+        HeaderAlignmentHorz = taCenter
+        Width = 201
+      end
+      object v2Column11: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'SPSpec'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'SPMF'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'SPKZ'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        HeaderAlignmentHorz = taCenter
+        Width = 99
+      end
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'ColorName'
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
+      object Tv2Column2: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MF'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object Tv2Column5: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'KZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object Tv2Column6: TcxGridDBColumn
+        Caption = #39068#33394#22791#27880
+        DataBinding.FieldName = 'ColorNote'
+        HeaderAlignmentHorz = taCenter
+        Width = 176
+      end
+      object Tv2Column7: TcxGridDBColumn
+        Caption = #19994#21153
+        DataBinding.FieldName = 'YWY'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv2Column7PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object Tv2Column8: TcxGridDBColumn
+        Caption = #29702#21333
+        DataBinding.FieldName = 'LiDan'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv2Column8PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv2Column9: TcxGridDBColumn
+        Caption = #20301#32622
+        DataBinding.FieldName = 'WeiZhi'
+        HeaderAlignmentHorz = taCenter
+        Width = 219
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 801
+    Top = 181
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    Parameters = <>
+    Left = 861
+    Top = 205
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 949
+    Top = 225
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 528
+    Top = 200
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 899
+    Top = 235
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 716
+    Top = 224
+  end
+end

染整计划(DyeingFinishingPlan.dll)/U_BuDongBPKCInPut.pas

@@ -0,0 +1,342 @@
+unit U_BuDongBPKCInPut;
+
+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, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+
+type
+  TfrmBuDongBPKCInPut = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    ToolButton3: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v2Column2: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v2Column11: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    Tv2Column8: TcxGridDBColumn;
+    Tv2Column9: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ToolButton1: TToolButton;
+    ToolButton2: 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 ToolButton3Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure Tv2Column7PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure Tv2Column8PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton2Click(Sender: TObject);
+  private
+    { Private declarations }
+    FDate:TDateTime;
+    procedure InitGrid();
+    function SaveData(): Boolean;
+  public
+    { Public declarations }
+    RKFlag, FCYID: string;
+    fDEFstr5: string;
+  end;
+
+var
+  frmBuDongBPKCInPut: TfrmBuDongBPKCInPut;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmBuDongBPKCInPut.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from CP_BuDong where CBID=''' + Trim(FCYID) + '''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.FormDestroy(Sender: TObject);
+begin
+  frmBuDongBPKCInPut := nil;
+end;
+
+procedure TfrmBuDongBPKCInPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmBuDongBPKCInPut.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('不动白坯库存录入', Tv2, '不动白坯库存');
+  Close;
+end;
+
+procedure TfrmBuDongBPKCInPut.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('不动白坯库存录入', Tv2, '不动白坯库存');
+  FDate:=SGetServerDate(ADOQueryTemp);
+  InitGrid();
+  if Trim(FCYID) = '' then
+  begin
+    CDS_HZ.Append;
+    CDS_HZ.Post;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmBuDongBPKCInPut.SaveData(): Boolean;
+var
+  maxId: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_HZ.DisableControls;
+    with CDS_HZ do
+    begin
+      First;
+      while not Eof do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from CP_BuDong where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+'''');
+          open;
+        end;
+        FCYID:=Trim(ADOQueryCmd.fieldbyname('CBID').AsString);
+        if Trim(FCYID) = '' then
+        begin
+          if GetLSNo(ADOQueryCmd, maxId, 'CB', 'CP_BuDong', 4, 1) = False then
+          begin
+            Result := False;
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取最大号失败！', '提示', 0);
+            Exit;
+          end;
+        end
+        else
+        begin
+          maxId := Trim(FCYID);
+        end;
+
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from CP_BuDong where CBID=''' + Trim(FCYID) + '''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(FCYID) = '' then
+          begin
+            Append;
+            FieldByName('Filler').Value := Trim(DName);
+            FieldByName('FillerCode').Value := Trim(DCode);
+          end
+          else
+          begin
+            Edit;
+            FieldByName('Editer').Value := Trim(DName);
+            FieldByName('EditerCode').Value := Trim(DName);
+            FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+          end;
+          FieldByName('CBID').Value := Trim(maxId);
+          FieldByName('type').Value := '不动白坯';
+          RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, 'CP_BuDong', 0);
+          FieldByName('Filler').Value := Trim(DName);
+          Post;
+        end;
+        Edit;
+        FieldByName('CBID').Value := Trim(maxId);
+        Post;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    CDS_HZ.EnableControls;
+
+    Result := True;
+  except
+    Result := False;
+    CDS_HZ.EnableControls;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!', '提示', 0);
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.ToolButton3Click(Sender: TObject);
+begin
+  cxGrid2.SetFocus;
+  if CDS_HZ.Locate('SPName',Null,[]) then
+  begin
+    Application.MessageBox('品名不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_HZ.Locate('CRTime',Null,[]) then
+  begin
+    Application.MessageBox('日期不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_HZ.Locate('WeiZhi',Null,[]) then
+  begin
+    Application.MessageBox('位置不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_HZ.Locate('ColorName',Null,[]) then
+  begin
+    Application.MessageBox('颜色不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_HZ.Locate('PS',Null,[]) then
+  begin
+    Application.MessageBox('匹数不能为空!', '提示', 0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.ToolButton1Click(Sender: TObject);
+begin
+  with CDS_HZ do
+  begin
+    Append;
+    FieldByName('CRTime').Value:=FDate;
+    Post;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.Tv2Column7PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'YWY';
+      flagname := '业务员';
+      if ShowModal = 1 then
+      begin
+        with Self.CDS_HZ do
+        begin
+          Edit;
+          FieldByName('YWY').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.Tv2Column8PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'LiDan';
+      flagname := '理单';
+      if ShowModal = 1 then
+      begin
+        with Self.CDS_HZ do
+        begin
+          Edit;
+          FieldByName('LiDan').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBuDongBPKCInPut.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+
+  if Trim(CDS_HZ.fieldbyname('CBId').AsString) <> '' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+      Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete CP_BuDong where type = ''不动白坯'' and CBId=''' + Trim(CDS_HZ.fieldbyname('CBId').AsString) + '''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;
+end;
+
+end.
+

染整计划(DyeingFinishingPlan.dll)/U_BuDongBPKCList.dfm

@@ -0,0 +1,413 @@
+object frmBuDongBPKCList: TfrmBuDongBPKCList
+  Left = 430
+  Top = 175
+  Width = 1506
+  Height = 789
+  Caption = #19981#21160#30333#22383#24211#23384#30331#35760
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1490
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DyeingFinishingPlan.ThreeImgList
+    Flat = True
+    Images = DataLink_DyeingFinishingPlan.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = ToolButton1Click
+    end
+    object ToolButton3: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 66
+      OnClick = ToolButton5Click
+    end
+    object TBClose: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1490
+    Height = 39
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 25
+      Top = 13
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object Label1: TLabel
+      Left = 162
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label2: TLabel
+      Left = 300
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label4: TLabel
+      Left = 447
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label5: TLabel
+      Left = 594
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label6: TLabel
+      Left = 735
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #39068#33394#22791#27880
+    end
+    object Label7: TLabel
+      Left = 892
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #20301#32622
+    end
+    object SPName: TEdit
+      Tag = 2
+      Left = 190
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 0
+      OnChange = SPNameChange
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 62
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 1
+      OnChange = SPNameChange
+    end
+    object ColorName: TEdit
+      Tag = 2
+      Left = 328
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 2
+      OnChange = SPNameChange
+    end
+    object MF: TEdit
+      Tag = 2
+      Left = 475
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnChange = SPNameChange
+    end
+    object KZ: TEdit
+      Tag = 2
+      Left = 622
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = SPNameChange
+    end
+    object ColorNote: TEdit
+      Tag = 2
+      Left = 786
+      Top = 10
+      Width = 88
+      Height = 20
+      TabOrder = 5
+      OnChange = SPNameChange
+    end
+    object WeiZhi: TEdit
+      Tag = 2
+      Left = 918
+      Top = 10
+      Width = 89
+      Height = 20
+      TabOrder = 6
+      OnChange = SPNameChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 70
+    Width = 1490
+    Height = 680
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsSelection.InvertSelect = False
+      OptionsSelection.MultiSelect = True
+      OptionsSelection.CellMultiSelect = True
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v2Column2: TcxGridDBColumn
+        Caption = #26085#26399
+        DataBinding.FieldName = 'CRTime'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 118
+      end
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 108
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'SPName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 195
+      end
+      object v2Column11: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'SPSpec'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'SPMF'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'SPKZ'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'ColorName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 83
+      end
+      object Tv2Column2: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MF'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object Tv2Column5: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'KZ'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object Tv2Column6: TcxGridDBColumn
+        Caption = #39068#33394#22791#27880
+        DataBinding.FieldName = 'ColorNote'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 165
+      end
+      object Tv2Column7: TcxGridDBColumn
+        Caption = #19994#21153
+        DataBinding.FieldName = 'YWY'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object Tv2Column8: TcxGridDBColumn
+        Caption = #29702#21333
+        DataBinding.FieldName = 'LiDan'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 82
+      end
+      object Tv2Column9: TcxGridDBColumn
+        Caption = #20301#32622
+        DataBinding.FieldName = 'WeiZhi'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Width = 265
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 193
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    Parameters = <>
+    Left = 853
+    Top = 189
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DyeingFinishingPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 949
+    Top = 225
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 888
+    Top = 224
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 695
+    Top = 263
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 676
+    Top = 232
+  end
+end

染整计划(DyeingFinishingPlan.dll)/U_BuDongBPKCList.pas

@@ -0,0 +1,239 @@
+unit U_BuDongBPKCList;
+
+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, cxNavigator,
+  cxDropDownEdit, Menus, 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
+  TfrmBuDongBPKCList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    Label3: TLabel;
+    SPName: TEdit;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v2Column6: TcxGridDBColumn;
+    v2Column11: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ToolButton1: TToolButton;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    v2Column7: TcxGridDBColumn;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    Tv2Column8: TcxGridDBColumn;
+    Tv2Column9: TcxGridDBColumn;
+    ToolButton5: TToolButton;
+    Label1: TLabel;
+    OrderNo: TEdit;
+    Label2: TLabel;
+    ColorName: TEdit;
+    Label4: TLabel;
+    MF: TEdit;
+    Label5: TLabel;
+    KZ: TEdit;
+    Label6: TLabel;
+    ColorNote: TEdit;
+    Label7: TLabel;
+    WeiZhi: TEdit;
+    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 SPNameChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+     canshu1:string;
+  end;
+
+//var
+ // frmBuDongKCList: TfrmBuDongKCList;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_BuDongBPKCInPut;
+
+{$R *.dfm}
+
+procedure TfrmBuDongBPKCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from CP_BuDong where  ZFFlag=0 and type = ''不动白坯'' order by CRTime  ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  ToolButton2.Click;
+end;
+
+procedure TfrmBuDongBPKCList.FormDestroy(Sender: TObject);
+begin
+  //frmBuDongKCList := nil;
+end;
+
+procedure TfrmBuDongBPKCList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmBuDongBPKCList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('不动白坯库存管理', Tv2, '不动白坯库存');
+  Close;
+end;
+
+procedure TfrmBuDongBPKCList.FormShow(Sender: TObject);
+begin
+  if Trim(canshu1)='查询' then
+  begin
+    ToolButton1.Visible:=False;
+    ToolButton3.Visible:=False;
+    ToolButton4.Visible:=False;
+  end;
+  ReadCxGrid('不动白坯库存管理', Tv2, '不动白坯库存');
+  InitGrid();
+end;
+
+procedure TfrmBuDongBPKCList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBuDongBPKCList.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
+  end;
+end;
+
+procedure TfrmBuDongBPKCList.SPNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmBuDongBPKCList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmBuDongBPKCInPut := TfrmBuDongBPKCInPut.Create(Application);
+    with frmBuDongBPKCInPut do
+    begin
+      FCYID := '';
+      if ShowModal = 1 then
+      begin
+        TBRafresh.Click;
+      end;
+    end;
+  finally
+    frmBuDongBPKCInPut.Free;
+  end;
+end;
+
+procedure TfrmBuDongBPKCList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmBuDongBPKCInPut := TfrmBuDongBPKCInPut.Create(Application);
+    with frmBuDongBPKCInPut do
+    begin
+      FCYID := Trim(Self.CDS_HZ.fieldbyname('CBID').AsString);
+      frmBuDongBPKCInPut.ToolButton1.Visible:=False;
+      frmBuDongBPKCInPut.ToolButton2.Visible:=False;
+      if ShowModal = 1 then
+      begin
+        TBRafresh.Click;
+      end;
+    end;
+  finally
+    frmBuDongBPKCInPut.Free;
+  end;
+end;
+
+procedure TfrmBuDongBPKCList.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if Trim(CDS_HZ.fieldbyname('CBID').AsString) <> '' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate CP_BuDong Set ZFFlag=1,ZFTime=Getdate(),ZFPerson=''' + Trim(DName) + '''');
+      sql.Add(' where CBID=''' + Trim(CDS_HZ.fieldbyname('CBID').AsString) + '''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;
+end;
+
+procedure TfrmBuDongBPKCList.ToolButton5Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then Exit;
+  TcxGridToExcel('不动白坯库存',cxGrid2);
+end;
+
+end.
+

染整计划(DyeingFinishingPlan.dll)/U_BuDongKCInPut.dfm

@@ -8,7 +8,7 @@ object frmBuDongKCInPut: TfrmBuDongKCInPut
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
   Font.Color = clWindowText
-  Font.Height = -15
+  Font.Height = -12
   Font.Name = #23435#20307
   Font.Style = []
   OldCreateOrder = False
@@ -16,15 +16,15 @@ object frmBuDongKCInPut: TfrmBuDongKCInPut
   OnClose = FormClose
   OnDestroy = FormDestroy
   OnShow = FormShow
-  PixelsPerInch = 120
+  PixelsPerInch = 96
-  TextHeight = 15
+  TextHeight = 12
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1337
+    Width = 1339
     Height = 31
     ButtonHeight = 30
-    ButtonWidth = 65
+    ButtonWidth = 59
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_DyeingFinishingPlan.ThreeImgList
@@ -43,21 +43,21 @@ object frmBuDongKCInPut: TfrmBuDongKCInPut
       OnClick = ToolButton3Click
     end
     object ToolButton1: TToolButton
-      Left = 69
+      Left = 63
       Top = 0
       Caption = #22686#34892
       ImageIndex = 12
       OnClick = ToolButton1Click
     end
     object ToolButton2: TToolButton
-      Left = 134
+      Left = 122
       Top = 0
       Caption = #21024#34892
       ImageIndex = 13
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 199
+      Left = 181
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -68,8 +68,8 @@ object frmBuDongKCInPut: TfrmBuDongKCInPut
   object cxGrid2: TcxGrid
     Left = 0
     Top = 31
-    Width = 1337
+    Width = 1339
-    Height = 501
+    Height = 509
     Align = alClient
     TabOrder = 1
     object Tv2: TcxGridDBTableView

染整计划(DyeingFinishingPlan.dll)/U_BuDongKCInPut.pas

@@ -13,7 +13,20 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator;
+  cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmBuDongKCInPut = class(TForm)

染整计划(DyeingFinishingPlan.dll)/U_BuDongKCList.dfm

@@ -7,22 +7,22 @@ object frmBuDongKCList: TfrmBuDongKCList
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
   Font.Color = clWindowText
-  Font.Height = -15
+  Font.Height = -12
   Font.Name = #23435#20307
   Font.Style = []
   OldCreateOrder = False
   OnClose = FormClose
   OnDestroy = FormDestroy
   OnShow = FormShow
-  PixelsPerInch = 120
+  PixelsPerInch = 96
-  TextHeight = 15
+  TextHeight = 12
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1488
+    Width = 1490
     Height = 31
     ButtonHeight = 30
-    ButtonWidth = 65
+    ButtonWidth = 59
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_DyeingFinishingPlan.ThreeImgList
@@ -41,7 +41,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = TBRafreshClick
     end
     object ToolButton2: TToolButton
-      Left = 69
+      Left = 63
       Top = 0
       AutoSize = True
       Caption = #36807#28388
@@ -49,7 +49,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = ToolButton2Click
     end
     object ToolButton1: TToolButton
-      Left = 138
+      Left = 126
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -57,7 +57,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = ToolButton1Click
     end
     object ToolButton3: TToolButton
-      Left = 207
+      Left = 189
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -65,7 +65,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = ToolButton3Click
     end
     object ToolButton4: TToolButton
-      Left = 276
+      Left = 252
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -73,7 +73,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 345
+      Left = 315
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -81,7 +81,7 @@ object frmBuDongKCList: TfrmBuDongKCList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 414
+      Left = 378
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -92,121 +92,121 @@ object frmBuDongKCList: TfrmBuDongKCList
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1488
+    Width = 1490
-    Height = 49
+    Height = 39
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clSkyBlue
     TabOrder = 1
     object Label3: TLabel
-      Left = 31
+      Left = 25
-      Top = 16
+      Top = 13
-      Width = 45
+      Width = 36
-      Height = 15
+      Height = 12
       Caption = #35746#21333#21495
     end
     object Label1: TLabel
-      Left = 203
+      Left = 162
-      Top = 16
+      Top = 13
-      Width = 30
+      Width = 24
-      Height = 15
+      Height = 12
       Caption = #21697#21517
     end
     object Label2: TLabel
-      Left = 375
+      Left = 300
-      Top = 16
+      Top = 13
-      Width = 30
+      Width = 24
-      Height = 15
+      Height = 12
       Caption = #39068#33394
     end
     object Label4: TLabel
-      Left = 559
+      Left = 447
-      Top = 16
+      Top = 13
-      Width = 30
+      Width = 24
-      Height = 15
+      Height = 12
       Caption = #38376#24133
     end
     object Label5: TLabel
-      Left = 743
+      Left = 594
-      Top = 16
+      Top = 13
-      Width = 30
+      Width = 24
-      Height = 15
+      Height = 12
       Caption = #20811#37325
     end
     object Label6: TLabel
-      Left = 919
+      Left = 735
-      Top = 16
+      Top = 13
-      Width = 60
+      Width = 48
-      Height = 15
+      Height = 12
       Caption = #39068#33394#22791#27880
     end
     object Label7: TLabel
-      Left = 1115
+      Left = 892
-      Top = 16
+      Top = 13
-      Width = 30
+      Width = 24
-      Height = 15
+      Height = 12
       Caption = #20301#32622
     end
     object SPName: TEdit
       Tag = 2
-      Left = 238
+      Left = 190
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 0
       OnChange = SPNameChange
     end
     object OrderNo: TEdit
       Tag = 2
-      Left = 78
+      Left = 62
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 1
       OnChange = SPNameChange
     end
     object ColorName: TEdit
       Tag = 2
-      Left = 410
+      Left = 328
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 2
       OnChange = SPNameChange
     end
     object MF: TEdit
       Tag = 2
-      Left = 594
+      Left = 475
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 3
       OnChange = SPNameChange
     end
     object KZ: TEdit
       Tag = 2
-      Left = 778
+      Left = 622
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 4
       OnChange = SPNameChange
     end
     object ColorNote: TEdit
       Tag = 2
-      Left = 982
+      Left = 786
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 88
       Height = 23
       TabOrder = 5
       OnChange = SPNameChange
     end
     object WeiZhi: TEdit
       Tag = 2
-      Left = 1148
+      Left = 918
-      Top = 12
+      Top = 10
-      Width = 111
+      Width = 89
       Height = 23
       TabOrder = 6
       OnChange = SPNameChange
@@ -214,9 +214,9 @@ object frmBuDongKCList: TfrmBuDongKCList
   end
   object cxGrid2: TcxGrid
     Left = 0
-    Top = 80
+    Top = 70
-    Width = 1488
+    Width = 1490
-    Height = 662
+    Height = 680
     Align = alClient
     TabOrder = 2
     object Tv2: TcxGridDBTableView

染整计划(DyeingFinishingPlan.dll)/U_BuDongKCList.pas

@@ -13,7 +13,20 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  cxDropDownEdit, Menus;
+  cxDropDownEdit, Menus, 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
   TfrmBuDongKCList = class(TForm)
@@ -101,7 +114,7 @@ begin
       Filtered := False;
       Close;
       SQL.Clear;
-      sql.Add(' select * from CP_BuDong where  ZFFlag=0 order by CRTime  ');
+      sql.Add(' select * from CP_BuDong where  ZFFlag=0 and type is null order by CRTime  ');
       Open;
     end;
     SCreateCDS20(ADOQueryMain, CDS_HZ);

染整计划(DyeingFinishingPlan.dll)/U_GetDllForm.pas

@@ -19,7 +19,7 @@ uses
   U_DJBRKList, U_DJBCKList, U_DJBKKList, U_DJBKCList, U_MarkingInspection,
   U_JYOrderCDList, U_OrderProgress, U_JYOrderCDListGH, U_TableInspection,
   U_YCLView, U_JYOrderCDCPList, U_JYCYList, U_DJBKKListHD, U_BuDongKCList,U_KKKWCXList,
-  U_ZDZGList, U_JYDayList, U_JYCXList,U_ProductSS,U_ProductSSGJB,U_ProductFYSS;
+  U_ZDZGList, U_JYDayList, U_JYCXList,U_ProductSS,U_ProductSSGJB,U_ProductFYSS, U_BuDongBPKCList;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -42,6 +42,7 @@ var
   frmJYOrderCDListGH: TfrmJYOrderCDListGH; //检验信息汇总
   frmJYOrderCDListCPCX: TfrmJYOrderCDCPList; //检验次品整缸次品
   frmBuDongKCListLR, frmBuDongKCListCX: TfrmBuDongKCList; //不动库存
+  frmBuDongBPKCListLR, frmBuDongBPKCListCX: TfrmBuDongBPKCList; //不动库存
 
 function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
 var
@@ -250,6 +251,73 @@ begin
        //句柄
         mnewHandle := frmBuDongKCListCX.Handle;
       end;
+
+
+    1001:  //不动白坯库存录入
+      begin
+        bFound := FALSE;
+        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
+        begin
+          if App.MainForm.MDIChildren[i].Caption = '不动白坯库存录入' then
+          begin
+            BringWindowToTop(frmBuDongBPKCListLR.Handle);
+            bFound := TRUE;
+            Break;
+          end;
+        end;
+        if not bFound then
+        begin
+          frmBuDongBPKCListLR := TfrmBuDongBPKCList.Create(application.MainForm);
+          with frmBuDongBPKCListLR do
+          begin
+            canshu1 := '录入';
+            Title := '不动白坯库存录入';
+            caption := Trim(Title);
+            FormStyle := mstyle;
+            windowState := mstate;
+            BorderStyle := mborderstyle;
+           //show;
+          end;
+        end
+        else
+          frmBuDongBPKCListLR.BringToFront;
+       //句柄
+        mnewHandle := frmBuDongBPKCListLR.Handle;
+      end;
+    1002:  //不动白坯库存查询
+      begin
+        bFound := FALSE;
+        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
+        begin
+          if App.MainForm.MDIChildren[i].Caption = '不动白坯库存查询' then
+          begin
+            BringWindowToTop(frmBuDongBPKCListCX.Handle);
+            bFound := TRUE;
+            Break;
+          end;
+        end;
+        if not bFound then
+        begin
+          frmBuDongBPKCListCX := TfrmBuDongBPKCList.Create(application.MainForm);
+          with frmBuDongBPKCListCX do
+          begin
+            canshu1 := '查询';
+            Title := '不动白坯库存查询';
+            caption := Trim(Title);
+            FormStyle := mstyle;
+            windowState := mstate;
+            BorderStyle := mborderstyle;
+           //show;                                                 
+          end;
+        end
+        else
+          frmBuDongBPKCListCX.BringToFront;
+       //句柄
+        mnewHandle := frmBuDongBPKCListCX.Handle;
+      end;
+
+
+
     101:  //包装指示单录入
       begin
         bFound := FALSE;