~

坯布仓库/U_BPRKDR.dfm

@@ -0,0 +1,303 @@
+object frmBPRKDR: TfrmBPRKDR
+  Left = 410
+  Top = 435
+  Width = 1171
+  Height = 370
+  Caption = #24067#21305#20449#24687#23548#20837
+  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 = 1155
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Images = BPCK_DataLink.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 14
+      OnClick = ToolButton3Click
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      OnClick = ToolButton2Click
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      Caption = #25171#24320#25991#20214
+      ImageIndex = 5
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 272
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 31
+    Width = 1155
+    Height = 300
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = BPCK_DataLink.Default
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #20837#24211#26085#26399
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 90
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'cust'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 82
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21152#24037#21378
+        DataBinding.FieldName = 'factoryName'
+        HeaderAlignmentHorz = taRightJustify
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'P_SPEC'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 82
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'P_CodeName'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'P_Color'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'P_ColorNo'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'P_MF'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'P_KZ'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'RollNum'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'gangNo'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #24211#20301
+        DataBinding.FieldName = 'KuWei'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'money'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = BPCK_DataLink.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 733
+    Top = 81
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = BPCK_DataLink.ADOLink
+    Parameters = <>
+    Left = 773
+    Top = 89
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = BPCK_DataLink.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 733
+    Top = 177
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 824
+    Top = 176
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 880
+    Top = 144
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 528
+    Top = 200
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 795
+    Top = 131
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 696
+    Top = 128
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 386
+    Top = 170
+  end
+  object CDS_LM: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 232
+    Top = 240
+  end
+end

坯布仓库/U_BPRKDR.pas

@@ -0,0 +1,849 @@
+unit U_BPRKDR;
+
+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, strutils, cxCurrencyEdit, 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, ComObj;
+
+type
+  TfrmBPRKDR = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    ToolButton3: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v2Column5: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    OpenDialog1: TOpenDialog;
+    CDS_LM: TClientDataSet;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    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 v2Column6PropertiesEditValueChanged(Sender: TObject);
+    procedure v2defstr9PropertiesEditValueChanged(Sender: TObject);
+    procedure v2Column5PropertiesEditValueChanged(Sender: TObject);
+    procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    function SaveData(): Boolean;
+    function YFData(): Boolean;
+  public
+    { Public declarations }
+    RKFlag, FMLID: string;
+    fkhType: string;
+    fkeyNO: string;
+  end;
+
+var
+  frmBPRKDR: TfrmBPRKDR;
+
+implementation
+
+uses
+  U_DataLink, U_Fun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmBPRKDR.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from BP_InOut where CRNO=''' + Trim(FMLID) + '''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBPRKDR.FormDestroy(Sender: TObject);
+begin
+  frmBPRKDR := nil;
+end;
+
+procedure TfrmBPRKDR.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmBPRKDR.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('产品资料录入1', Tv1, '客户自定义');
+  Close;
+  ModalResult := 1;
+end;
+
+procedure TfrmBPRKDR.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('产品资料录入1', Tv1, '客户自定义');
+  InitGrid();
+//  if Trim(FMLID) = '' then
+//  begin
+//    with CDS_HZ do
+//    begin
+//      Edit;
+//      FieldByName('type').Value := '面料';
+//      Post;
+//    end;
+//
+//  end;
+end;
+
+procedure TfrmBPRKDR.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmBPRKDR.SaveData(): Boolean;
+var
+  fkcID: integer;
+  Filler: string;
+  FillTime: TdateTime;
+begin
+  result := false;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+
+    if GetLSNo(ADOQueryCmd, fkeyNO, 'BK', 'BP_InOut', 3, 1) = False then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('取最大号失败!', '提示', 0);
+      Exit;
+    end;
+    Filler := DName;
+    FillTime := SGetServerDateTime(adoqueryTemp);
+
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('delete from BP_InOut');
+      sql.Add('where CRNO=' + quotedstr(trim(fkeyNO)));
+      execsql;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' delete  from YF_Money_CR ');
+      sql.Add(' where MainID=' + quotedstr(trim(fkeyNO)));
+      execsql;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('delete from BP_kc');
+      sql.Add('where CRNO=' + quotedstr(trim(fkeyNO)));
+      execsql;
+    end;
+
+    CDS_HZ.DisableControls;
+    CDS_HZ.First;
+    with CDS_HZ do
+    begin
+      while not eof do
+      begin
+
+        Edit;
+        FieldByName('CRNO').Value := trim(fkeyNO);
+        FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
+        FieldByName('CRID').Value := recNo;
+        post;
+
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          SQL.add('Update BP_Kcid Set kcid=kcid+1');
+          sql.Add('select kcid  from BP_Kcid');
+          Open;
+        end;
+        fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger;
+        with ADOQueryCmd do
+        begin
+          close;
+          sql.Clear;
+          sql.Add('select * from BP_InOut');
+          sql.Add('where 1=2 ');
+          open;
+        end;
+   //     fkcID:=strtoint(RightBStr(trim(fkeyNO),length(fkeyNO)-3)+inttostr(recNo));
+        ADOQueryCmd.Append;
+        RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_HZ, 'BP_InOut', 0);
+        ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
+        ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
+        ADOQueryCmd.FieldByName('CRID').Value := recNo;
+        ADOQueryCmd.FieldByName('CRTime').Value := trim(fieldbyname('CRTime').AsString);
+        ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
+        ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
+        ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
+        ADOQueryCmd.FieldByName('Filler').Value := trim(Filler);
+        ADOQueryCmd.FieldByName('FillTime').Value := dateTimetostr(FillTime);
+        ADOQueryCmd.FieldByName('kcID').Value := fkcID;
+        ADOQueryCmd.Post;
+
+        with ADOQueryCmd do
+        begin
+          close;
+          sql.Clear;
+          sql.Add('select * from BP_KC');
+          sql.Add('where 1=2 ');
+          open;
+        end;
+        ADOQueryCmd.Append;
+        ADOQueryCmd.FieldByName('kcID').Value := fkcID;
+        ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
+        ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
+        ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
+        ADOQueryCmd.FieldByName('CRID').Value := recNo;
+        ADOQueryCmd.FieldByName('CRTime').Value := trim(fieldbyname('CRTime').AsString);
+        ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
+        ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
+        ADOQueryCmd.FieldByName('MJXH').Value := trim(fieldbyname('MJXH').AsString);
+        ADOQueryCmd.FieldByName('MJID').Value := trim(fieldbyname('MJID').AsString);
+        ADOQueryCmd.FieldByName('CPType').Value := '正品';
+        ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('P_Code').AsString);
+        ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('P_CodeName').AsString);
+        ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('P_spec').AsString);
+        ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('P_Color').AsString);
+        ADOQueryCmd.FieldByName('gangNo').Value := trim(fieldbyname('gangNo').AsString);
+        ADOQueryCmd.FieldByName('P_MF').Value := fieldbyname('P_MF').AsFloat;
+        ADOQueryCmd.FieldByName('P_KZ').Value := fieldbyname('P_KZ').AsFloat;
+        ADOQueryCmd.FieldByName('RollNum').Value := fieldbyname('RollNum').AsFloat;
+        ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('Qty').AsFloat;
+        ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('QtyUnit').AsString);
+        ADOQueryCmd.FieldByName('kcID').Value := fkcID;
+        ADOQueryCmd.Post;
+
+//        if trim(CRType.Text) = '采购入库' then
+//        begin
+//          if not YFData() then
+//          begin
+//            CDS_Main.EnableControls;
+//            ADOQueryCmd.Connection.RollbackTrans;
+//            exit;
+//          end;
+//        end;
+//        with ADOQuery1 do
+//        begin
+//          close;
+//          sql.Clear;                        
+//          sql.Add('select * from CK_SXPB_CRMX A ');
+//          sql.Add(' right JOIN BP_InOut B on B.CRID=A.CRID  and B.crno=A.crno');
+//          sql.Add(' where A.CRNO=' + quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString)));
+//          sql.Add(' and A.CRID=' + quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString)));
+//          SQL.Add(' and crzt=''入库''');
+//          sql.Add(' order by MXID');
+////      ShowMessage(SQL.text);
+//          open;
+//        end;
+//        if ADOQuery1.RecordCount > 0 then
+//        begin
+//          with ADOQuery2 do
+//          begin
+//            Close;
+//            sql.Clear;
+//            sql.Add('Update CK_SXPB_CRMX Set CKNO=(select kuwei from BP_InOut A where A.crno=CK_SXPB_CRMX.CRNO  and A.CRID=CK_SXPB_CRMX.CRID)');
+//            sql.Add(' where CRNO=' + quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString)));
+//            sql.Add(' and CRID=' + quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString)));
+////            ShowMessage(sql.Text);
+//            ExecSQL;
+//          end;
+//        end;
+
+        next;
+      end;
+
+    end;
+    CDS_HZ.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+    result := true;
+  except
+    CDS_HZ.EnableControls;
+    ADOQueryCmd.Connection.RollbackTrans;
+  end;
+end;
+{function TfrmBPRKDR.SaveData(): Boolean;
+var
+  fkeyNO, CRID: string;
+    fkcID: integer;
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  ADOQueryCmd.Connection.BeginTrans;
+  try
+    with CDS_HZ do
+    begin
+      first;
+      while not eof do
+      begin
+        if (CDS_HZ.FieldByName('P_CodeName').asstring = '') then
+        begin
+          Next;
+        end
+        else
+        begin
+          if Trim(CDS_HZ.fieldbyname('CRNO').AsString) = '' then
+          begin
+            if GetLSNo(ADOQueryCmd, fkeyNO, 'BK', 'BP_InOut', 3, 1) = False then
+            begin
+              Result := False;
+              ADOQueryCmd.Connection.RollbackTrans;
+              Application.MessageBox('取最大号失败！', '提示', 0);
+              Exit;
+            end;
+
+          end
+          else
+          begin
+            fkeyNO := Trim(FMLID);
+          end;
+
+          with ADOQueryCmd do
+          begin
+            Close;
+            SQL.Clear;
+            sql.Add('select * from BP_InOut where CRNO=''' + Trim(CDS_HZ.fieldbyname('CRno').AsString) + '''');
+            Open;
+          end;
+          with ADOQueryCmd do
+          begin
+            if Trim(CDS_HZ.fieldbyname('CRNO').AsString) = '' then
+            begin
+              Append;
+              FieldByName('Filler').Value := Trim(DName);
+              FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp);
+            end
+            else
+            begin
+              Edit;
+              FieldByName('Editer').Value := Trim(DName);
+              FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+            end;
+            FieldByName('CRNO').Value := trim(fkeyNO);
+            FieldByName('CRNOS').Value := trim(fkeyNO);
+            FieldByName('CRID').Value := 1;
+            FieldByName('CRFlag').Value := '入库';
+            FieldByName('CRType').Value := '导入入库';
+            FieldByName('CKName').Value := '布匹仓库';
+
+            RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_HZ, 'BP_InOut', 0);
+            Post;
+             with ADOQueryCmd do
+            begin
+              Close;
+              sql.Clear;
+              SQL.add('Update BP_Kcid Set kcid=kcid+1');
+              sql.Add('select kcid  from BP_Kcid');
+              Open;
+            end;
+            fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger;
+            with ADOQueryCmd do
+            begin
+              close;
+              sql.Clear;
+              sql.Add('select * from BP_KC');
+              sql.Add('where 1=2 ');
+              open;
+            end;
+            ADOQueryCmd.Append;
+            ADOQueryCmd.FieldByName('kcID').Value := fkcID;
+            ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
+            ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
+            ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO);
+            ADOQueryCmd.FieldByName('CRID').Value := 1;
+            ADOQueryCmd.FieldByName('CRTime').Value := Trim(CDS_HZ.fieldbyname('CRTime').AsString);
+            ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
+            ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
+            ADOQueryCmd.FieldByName('MJXH').Value := trim(fieldbyname('MJXH').AsString);
+            ADOQueryCmd.FieldByName('MJID').Value := trim(fieldbyname('MJID').AsString);
+            ADOQueryCmd.FieldByName('CPType').Value := trim(fieldbyname('CPType').AsString);
+            ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('P_Code').AsString);
+            ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('P_CodeName').AsString);
+            ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('P_spec').AsString);
+            ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('P_Color').AsString);
+            ADOQueryCmd.FieldByName('gangNo').Value := trim(fieldbyname('gangNo').AsString);
+            ADOQueryCmd.FieldByName('P_MF').Value := fieldbyname('P_MF').AsFloat;
+            ADOQueryCmd.FieldByName('P_KZ').Value := fieldbyname('P_KZ').AsFloat;
+            ADOQueryCmd.FieldByName('RollNum').Value := fieldbyname('RollNum').AsFloat;
+            ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('Qty').AsFloat;
+            ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('QtyUnit').AsString);
+            ADOQueryCmd.FieldByName('kcID').Value := fkcID;
+            ADOQueryCmd.Post;  
+//            if not YFData() then
+//            begin
+//              CDS_HZ.EnableControls;
+//              ADOQueryCmd.Connection.RollbackTrans;
+//              exit;
+//            end;
+          end;
+          next;
+        end;
+      end;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+
+    application.MessageBox('保存成功！', '提示');
+    Modalresult := 1;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+
+end; }
+
+function TfrmBPRKDR.YFData(): Boolean;
+var
+  CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou: string;
+begin
+  Result := False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_HZ.fieldbyname('cust').AsString) + ''' and YFDefFlag1=0 ');
+    Open;
+  end;
+
+  if not ADOQueryTemp.IsEmpty then
+  begin
+    CRID := ADOQueryTemp.fieldbyname('CRID').AsString;
+  end
+  else
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_CRID set CRID=CRID+1');
+      sql.Add('select * from YF_Money_CRID ');
+      Open;
+    end;
+    CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
+  end;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete  from YF_Money_CR ');
+    sql.Add(' where MainID=''' + Trim(CDS_HZ.fieldbyname('CRNO').AsString) + '''');
+    sql.Add(' and subID=''' + Trim(CDS_HZ.fieldbyname('CRID').AsString) + '''');
+    sql.Add(' and YFName=''采购费'' ');
+    execsql;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR ');
+    sql.Add(' where MainID=''' + Trim(CDS_HZ.fieldbyname('CRNO').AsString) + '''');
+    sql.Add(' and subID=''' + Trim(CDS_HZ.fieldbyname('CRID').AsString) + '''');
+    sql.Add(' and YFName=''采购费'' ');
+    Open;
+  end;
+
+  if ADOQueryTemp.IsEmpty then
+  begin
+    if GetLSNo(ADOQueryCmd, YFID, 'CF', 'YF_Money_CR', 3, 1) = False then
+    begin
+      Application.MessageBox('取应收最大号失败!', '提示', 0);
+      Exit;
+    end;
+  end
+  else
+  begin
+    YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
+  end;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where YFID=''' + trim(YFID) + '''');
+    Open;
+  end;
+
+  with ADOQueryCmd do
+  begin
+    if IsEmpty then
+      Append
+    else
+      edit;
+    FieldByName('YFID').Value := Trim(YFID);
+    FieldByName('YFTypeId').Value := Trim(CDS_HZ.fieldbyname('CRNO').AsString);
+    FieldByName('CRID').Value := StrToInt(CRID);
+    FieldByName('Filler').Value := Trim(DName);
+    FieldByName('CRType').Value := '应付款登记';
+    FieldByName('CRFlag').Value := '应付付';
+    FieldByName('QtyFlag').Value := 1;
+    FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('cust').AsString);
+    FieldByName('CRTime').Value := Trim(CDS_HZ.fieldbyname('CRTime').AsString);
+    FieldByName('YFType').Value := '自动生成';
+    FieldByName('ps').Value := CDS_HZ.fieldbyname('RollNum').AsFloat;
+    FieldByName('Qty').Value := CDS_HZ.fieldbyname('Qty').AsFloat;
+    FieldByName('Price').Value := CDS_HZ.fieldbyname('Price').AsFloat;
+    FieldByName('Money').Value := CDS_HZ.fieldbyname('Money').AsFloat;
+    FieldByName('BBMoney').Value := CDS_HZ.fieldbyname('Money').AsFloat;
+    FieldByName('HuiLv').Value := 1;
+    FieldByName('BZType').Value := '人民币';
+    FieldByName('QtyUnit').Value := Trim(CDS_HZ.fieldbyname('QtyUnit').AsString);
+    FieldByName('ComTaiTou').Value := Trim(CDS_HZ.fieldbyname('cust').AsString);
+    FieldByName('YFName').Value := '采购费';
+    FieldByName('MainId').Value := Trim(CDS_HZ.fieldbyname('CRNO').AsString);
+    FieldByName('subID').Value := Trim(CDS_HZ.fieldbyname('CRID').AsString);
+    FieldByName('status').Value := '0';
+    Post;
+  end;
+
+  Result := True;
+end;
+
+procedure TfrmBPRKDR.ToolButton3Click(Sender: TObject);
+begin
+  cxGrid1.SetFocus;
+
+  if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+
+  end;
+
+ { try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from KH_Zdy_MLXX where MLID='' '' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  if Trim(FMLID) = '' then
+  begin
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName('Type').Value := '面料';
+      Post;
+    end;
+  end;  }
+end;
+
+procedure TfrmBPRKDR.v2Column6PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+
+  if trim(mvalue) = '' then
+    exit;
+
+  if rightBstr(trim(mvalue), 1) <> '#' then
+  begin
+    mvalue := trim(mvalue) + '#';
+  end;
+
+  with CDS_HZ do
+  begin
+    Edit;
+    FieldByName('ZdyName').Value := Trim(mvalue);
+    Post;
+  end;
+  self.tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmBPRKDR.v2defstr9PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+
+  if trim(mvalue) = '' then
+    exit;
+
+  if rightBstr(trim(mvalue), 1) <> '#' then
+  begin
+    mvalue := trim(mvalue) + '#';
+  end;
+
+  with CDS_HZ do
+  begin
+    Edit;
+    FieldByName('ZdyName').Value := Trim(mvalue);
+    Post;
+  end;
+  self.tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmBPRKDR.v2Column5PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+//  mvalue := TcxTextEdit(Sender).EditingText;
+//
+//  if trim(mvalue) = '' then
+//    exit;
+//
+//  if rightBstr(trim(mvalue), 1) <> '#' then
+//  begin
+//    mvalue := trim(mvalue) + '#';
+//  end;
+//
+//  with CDS_HZ do
+//  begin
+//    Edit;
+//    FieldByName('DEFstr3').Value := Trim(mvalue);
+//    Post;
+//  end;
+//  self.tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmBPRKDR.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+
+  if trim(mvalue) = '' then
+    exit;
+
+  if rightBstr(trim(mvalue), 1) <> '#' then
+  begin
+    mvalue := trim(mvalue) + '#';
+  end;
+
+  with CDS_HZ do
+  begin
+    Edit;
+    FieldByName('CPHH').Value := Trim(mvalue);
+    Post;
+  end;
+  self.tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmBPRKDR.ToolButton1Click(Sender: TObject);
+begin
+  CopyAddRow(Tv1, CDS_HZ);
+  with CDS_HZ do
+  begin
+    Edit;
+    FieldByName('CRNO').Value := '';
+    FieldByName('note').Value := '';
+    Post;
+  end;
+end;
+
+procedure TfrmBPRKDR.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+
+  if Trim(CDS_HZ.fieldbyname('SubId').AsString) <> '' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+      Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete KH_Zdy_MLXX where MLID=''' + Trim(CDS_HZ.fieldbyname('MLID').AsString) + '''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;
+end;
+
+procedure TfrmBPRKDR.ToolButton4Click(Sender: TObject);
+var
+  excelApp, WorkBook: Variant;
+  i, j, k, LX, ExcelRowCount: integer;
+  maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
+begin
+  with CDS_LM do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
+  try
+    excelApp := CreateOleObject('Excel.Application');
+    openDialog1.Filter := '*.CSV;*.xls';
+    if opendialog1.Execute then
+    begin
+      WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
+    end
+    else
+      exit;
+    excelApp.Visible := false;
+    ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
+  except
+    application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+  CDS_LM.EmptyDataSet;
+
+  for j := 0 to Tv1.ColumnCount - 1 do
+  begin
+    with CDS_LM do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
+  end;
+
+  try
+    for i := 1 to 50 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
+        continue;
+      if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
+      begin
+        with CDS_LM do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
+  except
+    application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+  try
+    for i := 2 to ExcelRowCount do
+    begin
+      with CDS_HZ do
+      begin
+        Append;
+        CDS_LM.First;
+        while not CDS_LM.Eof do
+        begin
+          if (CDS_LM.FieldByName('LXH').AsInteger > 0) then
+            CDS_HZ.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
+          CDS_LM.Next;
+        end;
+        Post;
+      end;
+      with CDS_HZ do
+      begin
+        First; // 移动到第一条记录
+        while not Eof do
+        begin
+          if Trim(FieldByName('P_CodeName').AsString) = '' then
+          begin
+            Edit;
+            Delete;
+          end
+          else
+          begin
+            Next; // 移动到下一条记录
+          end;
+        end;
+      end;
+    end;
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+  except
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+    exit;
+  end;
+
+end;
+
+end.
+

坯布仓库/U_BpRklist.dfm

@@ -1,6 +1,6 @@
 object frmBpRklist: TfrmBpRklist
-  Left = 436
+  Left = 480
-  Top = 322
+  Top = 502
   Width = 1160
   Height = 500
   Caption = #20837#24211#21015#34920
@@ -128,21 +128,28 @@ object frmBpRklist: TfrmBpRklist
       ImageIndex = 12
       OnClick = ToolButton3Click
     end
-    object TBClose: TToolButton
+    object ToolButton4: TToolButton
       Left = 777
       Top = 0
+      Caption = #25171#21360#20837#24211#21333
+      ImageIndex = 12
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 872
+      Top = 0
+      Caption = #23548#20837#20449#24687
+      ImageIndex = 13
+      OnClick = ToolButton5Click
+    end
+    object TBClose: TToolButton
+      Left = 967
+      Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
       OnClick = TBCloseClick
     end
-    object ToolButton4: TToolButton
-      Left = 840
-      Top = 0
-      Caption = #25171#21360#20837#24211#21333
-      ImageIndex = 12
-      OnClick = ToolButton4Click
-    end
   end
   object Panel1: TPanel
     Left = 0
@@ -426,7 +433,7 @@ object frmBpRklist: TfrmBpRklist
   object cxGrid1: TcxGrid
     Left = 0
     Top = 117
-    Width = 560
+    Width = 744
     Height = 344
     Align = alClient
     TabOrder = 2
@@ -696,9 +703,9 @@ object frmBpRklist: TfrmBpRklist
     ClientRectTop = 0
   end
   object cxGrid2: TcxGrid
-    Left = 560
+    Left = 744
     Top = 117
-    Width = 584
+    Width = 400
     Height = 344
     Align = alRight
     PopupMenu = PopupMenu1

坯布仓库/U_BpRklist.pas

@@ -11,20 +11,19 @@ uses
   cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset,
   RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport, cxPC, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxCheckBox, cxTextEdit,
-  Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
-  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
-  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
-  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
-  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
-  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
-  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
-  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmBpRklist = class(TForm)
@@ -126,6 +125,7 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
+    ToolButton5: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure TBAddClick(Sender: TObject);
@@ -147,6 +147,7 @@ type
     procedure N1Click(Sender: TObject);
     procedure N2Click(Sender: TObject);
     procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
   private
     TblCprk: string;
     procedure InitGrid();
@@ -169,7 +170,7 @@ var
 implementation
 
 uses
-  U_DataLink, U_Fun10, U_ZDYHelp, U_BpRk, U_CPCKMXLR, U_Fun;
+  U_DataLink, U_Fun10, U_ZDYHelp, U_BpRk, U_CPCKMXLR, U_BPRKDR, U_Fun;
 {$R *.dfm}
 
 procedure TfrmBpRklist.SetStatus();
@@ -341,10 +342,10 @@ begin
   begin
     fkeyNo := '';
     fType := 0;
-    fckName := self.fckName;                         
+    fckName := self.fckName;                     
-    if showmodal = 1 then
+    if showmodal = 1 then                  
-    begin                                        
+    begin
-      TBRafresh.Click;            
+      TBRafresh.Click;
       self.CDS_Main.Locate('crNo', trim(fkeyNo), []);
     end;
     free;
@@ -665,7 +666,7 @@ begin
     Exit;
 
   try
-    with ADOQueryCmd do      
+    with ADOQueryCmd do
     begin
       Close;
       sql.Clear;
@@ -863,7 +864,7 @@ var
   fPrintFile: string;
   Txt, fImagePath, Txt2, fImagePath2: string;
   Moudle: THandle;
-  Makebar: TMakebar;                    
+  Makebar: TMakebar;
   Mixtext: TMixtext;
 begin
 
@@ -875,18 +876,18 @@ begin
     SQL.Add(' @CRNO=''' + Trim(FJYID) + '''');
     Open;
   end;
-  if ADOQueryPrint.IsEmpty then           
+  if ADOQueryPrint.IsEmpty then
   begin
     application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
     exit;
-  end;                                     
+  end;
 
   try
     Moudle := LoadLibrary('MakeQRBarcode.dll');
     @Makebar := GetProcAddress(Moudle, 'Make');
     @Mixtext := GetProcAddress(Moudle, 'MixText');
 //    Txt := Trim(ADOQueryPrint.fieldbyname('CRNO').AsString);
-       Txt := Trim(ADOQueryPrint.fieldbyname('CRNOS').AsString);
+    Txt := Trim(ADOQueryPrint.fieldbyname('CRNOS').AsString);
     fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
     if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
       CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
@@ -917,5 +918,22 @@ begin
   end;
 end;
 
+procedure TfrmBpRklist.ToolButton5Click(Sender: TObject);
+begin
+  try
+    frmBPRKDR := TfrmBPRKDR.Create(Application);
+    with frmBPRKDR do
+    begin
+      FMLID := '';
+      if ShowModal = 1 then
+      begin
+        TBRafresh.Click;
+      end;
+    end;
+  finally
+    frmBPRKDR.Free;
+  end;
+end;
+
 end.
 

基础资料维护(BaseInfo.dll)/BaseInfo.dpr

@@ -2,7 +2,7 @@ library BaseInfo;
 
 uses
   SysUtils,
-  classes,
+  classes,   
   forms,                                        
   WinTypes,
   WinProcs,

基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm

@@ -1,7 +1,7 @@
 object frmMLXXListSel: TfrmMLXXListSel
-  Left = 588
+  Left = 546
-  Top = 307
+  Top = 248
-  Width = 1075
+  Width = 1158
   Height = 629
   Caption = #36741#26009#20449#24687#36873#25321
   Color = clBtnFace
@@ -19,7 +19,7 @@ object frmMLXXListSel: TfrmMLXXListSel
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1059
+    Width = 1142
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 113
@@ -112,8 +112,8 @@ object frmMLXXListSel: TfrmMLXXListSel
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1059
+    Width = 1142
-    Height = 39
+    Height = 37
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -122,16 +122,16 @@ object frmMLXXListSel: TfrmMLXXListSel
     object Label3: TLabel
       Left = 191
       Top = 13
-      Width = 48
+      Width = 66
       Height = 12
-      Caption = #20135#21697#21517#31216
+      Caption = #38754#36741#26009#21517#31216' '
     end
     object Label1: TLabel
       Left = 22
       Top = 13
       Width = 48
       Height = 12
-      Caption = #20135#21697#32534#21495
+      Caption = #36741#26009#32534#21495
     end
     object Label2: TLabel
       Left = 369
@@ -141,25 +141,25 @@ object frmMLXXListSel: TfrmMLXXListSel
       Caption = #31867#22411
       Visible = False
     end
-    object ZdyName: TEdit
+    object MLName: TEdit
       Tag = 2
-      Left = 241
+      Left = 253
       Top = 9
       Width = 89
       Height = 20
       TabOrder = 0
-      OnChange = ZdyNameChange
+      OnChange = MLNameChange
     end
-    object ZdyCode: TEdit
+    object MLBH: TEdit
       Tag = 2
       Left = 71
       Top = 9
       Width = 89
       Height = 20
       TabOrder = 1
-      OnChange = ZdyNameChange
+      OnChange = MLNameChange
     end
-    object DEFstr5: TComboBox
+    object Typpe: TComboBox
       Tag = 1
       Left = 398
       Top = 8
@@ -169,7 +169,7 @@ object frmMLXXListSel: TfrmMLXXListSel
       ItemHeight = 12
       TabOrder = 2
       Visible = False
-      OnChange = ZdyNameChange
+      OnChange = MLNameChange
       Items.Strings = (
         #22383#24067
         #25104#21697
@@ -178,9 +178,9 @@ object frmMLXXListSel: TfrmMLXXListSel
   end
   object cxGrid2: TcxGrid
     Left = 0
-    Top = 70
+    Top = 68
-    Width = 1059
+    Width = 1142
-    Height = 520
+    Height = 522
     Align = alClient
     TabOrder = 2
     object Tv2: TcxGridDBTableView
@@ -221,6 +221,15 @@ object frmMLXXListSel: TfrmMLXXListSel
         Options.Sorting = False
         Width = 94
       end
+      object Tv2Column8: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'ssel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
       object v2Column6: TcxGridDBColumn
         Caption = #38754#36741#26009#21517#31216' '
         DataBinding.FieldName = 'MLName'
@@ -242,14 +251,14 @@ object frmMLXXListSel: TfrmMLXXListSel
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Options.Sorting = False
-        Width = 88
+        Width = 68
       end
       object v2Column11: TcxGridDBColumn
         Caption = #31867#22411
         DataBinding.FieldName = 'Type'
         HeaderAlignmentHorz = taCenter
         Options.Sorting = False
-        Width = 88
+        Width = 49
       end
       object v2Column3: TcxGridDBColumn
         Caption = #35268#26684
@@ -308,27 +317,17 @@ object frmMLXXListSel: TfrmMLXXListSel
         VisibleForCustomization = False
         Width = 61
       end
-      object v2Column1: TcxGridDBColumn
+      object Tv2Column6: TcxGridDBColumn
-        Caption = #22791#27880
+        Caption = #21333#20215
-        DataBinding.FieldName = 'Note'
+        DataBinding.FieldName = 'Price'
-        PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
-        Options.Sorting = False
-        Width = 114
-      end
-      object v2Column14: TcxGridDBColumn
-        Caption = #25805#20316#21592
-        DataBinding.FieldName = 'Filler'
-        HeaderAlignmentHorz = taCenter
-        Options.Sorting = False
         Width = 60
       end
-      object v2Column15: TcxGridDBColumn
+      object Tv2Column9: TcxGridDBColumn
-        Caption = #25805#20316#26102#38388
+        Caption = #33394#21495
-        DataBinding.FieldName = 'FillTime'
+        DataBinding.FieldName = 'MLSH'
         HeaderAlignmentHorz = taCenter
-        Options.Sorting = False
+        Width = 60
-        Width = 188
       end
       object Tv2Column1: TcxGridDBColumn
         Caption = #20379#24212#21830
@@ -342,9 +341,9 @@ object frmMLXXListSel: TfrmMLXXListSel
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
-      object Tv2Column3: TcxGridDBColumn
+      object Tv2Column5: TcxGridDBColumn
-        Caption = #35268#26684
+        Caption = #20799#31461#29992#37327
-        DataBinding.FieldName = 'MJgg'
+        DataBinding.FieldName = 'childamount'
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
@@ -354,35 +353,37 @@ object frmMLXXListSel: TfrmMLXXListSel
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
-      object Tv2Column5: TcxGridDBColumn
-        Caption = #20799#31461#29992#37327
-        DataBinding.FieldName = 'childamount'
-        HeaderAlignmentHorz = taCenter
-        Width = 60
-      end
-      object Tv2Column6: TcxGridDBColumn
-        Caption = #21333#20215
-        DataBinding.FieldName = 'Price'
-        HeaderAlignmentHorz = taCenter
-        Width = 60
-      end
       object Tv2Column7: TcxGridDBColumn
         Caption = #21512#35745
         DataBinding.FieldName = 'Total'
         HeaderAlignmentHorz = taCenter
-        Width = 60
+        Width = 52
       end
-      object Tv2Column8: TcxGridDBColumn
+      object v2Column1: TcxGridDBColumn
-        Caption = #36873#25321
+        Caption = #22791#27880
-        DataBinding.FieldName = 'ssel'
+        DataBinding.FieldName = 'Note'
-        PropertiesClassName = 'TcxCheckBoxProperties'
+        PropertiesClassName = 'TcxTextEditProperties'
-        Properties.ImmediatePost = True
+        HeaderAlignmentHorz = taCenter
-        Properties.NullStyle = nssUnchecked
+        Options.Sorting = False
-        Width = 60
+        Width = 77
       end
-      object Tv2Column9: TcxGridDBColumn
+      object v2Column14: TcxGridDBColumn
-        Caption = #33394#21495
+        Caption = #25805#20316#21592
-        DataBinding.FieldName = 'MLSH'
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 52
+      end
+      object v2Column15: TcxGridDBColumn
+        Caption = #25805#20316#26102#38388
+        DataBinding.FieldName = 'FillTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 90
+      end
+      object Tv2Column3: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'MJgg'
         HeaderAlignmentHorz = taCenter
         Width = 60
       end

基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas

@@ -29,7 +29,7 @@ uses
   dxSkinscxPCPainter;
 
 type
-  FdDy = record
+  FdDy = record                                        
     inc: integer; //客户端套接字句柄
     FDdys: string[32]; //客户端套接字
     FdDysName: string[32]; //客户端套接字
@@ -49,16 +49,16 @@ type
     RM1: TRMGridReport;
     RMDB_Main: TRMDBDataSet;
     Label3: TLabel;
-    ZdyName: TEdit;
+    MLName: TEdit;
     cxGridPopupMenu2: TcxGridPopupMenu;
     DS_HZ: TDataSource;
     CDS_HZ: TClientDataSet;
     ToolButton3: TToolButton;
     Label1: TLabel;
-    ZdyCode: TEdit;
+    MLBH: TEdit;
     ToolButton4: TToolButton;
     Label2: TLabel;
-    DEFstr5: TComboBox;
+    Typpe: TComboBox;
     OpenDialog1: TOpenDialog;
     ToolButton5: TToolButton;
     ToolButton6: TToolButton;
@@ -94,7 +94,7 @@ type
     procedure FormShow(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
-    procedure ZdyNameChange(Sender: TObject);
+    procedure MLNameChange(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton4Click(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
@@ -151,12 +151,12 @@ end;
 
 procedure TfrmMLXXListSel.TBCloseClick(Sender: TObject);
 begin
-  WriteCxGrid('产品资料13', Tv2, '客户自定义');
+  WriteCxGrid('辅料资料', Tv2, '辅料信息1');
   Close;
 end;
 
 procedure TfrmMLXXListSel.TBDelClick(Sender: TObject);
-begin
+begin                                
   if CDS_HZ.IsEmpty then
     Exit;
   if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
@@ -176,7 +176,7 @@ end;
 
 procedure TfrmMLXXListSel.FormShow(Sender: TObject);
 begin
-  ReadCxGrid('产品资料13', Tv2, '客户自定义');
+  ReadCxGrid('辅料资料', Tv2, '辅料信息1');
   InitGrid();
 end;
 
@@ -195,7 +195,7 @@ begin
   end;
 end;
 
-procedure TfrmMLXXListSel.ZdyNameChange(Sender: TObject);
+procedure TfrmMLXXListSel.MLNameChange(Sender: TObject);
 begin
   ToolButton2.Click;
 end;