diff --git a/坯布仓库/U_BPRKDR.dfm b/坯布仓库/U_BPRKDR.dfm new file mode 100644 index 0000000..83302d1 --- /dev/null +++ b/坯布仓库/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 diff --git a/坯布仓库/U_BPRKDR.pas b/坯布仓库/U_BPRKDR.pas new file mode 100644 index 0000000..4c498c4 --- /dev/null +++ b/坯布仓库/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. + diff --git a/坯布仓库/U_BpRklist.dfm b/坯布仓库/U_BpRklist.dfm index 70de4ed..1289ac0 100644 --- a/坯布仓库/U_BpRklist.dfm +++ b/坯布仓库/U_BpRklist.dfm @@ -1,6 +1,6 @@ object frmBpRklist: TfrmBpRklist - Left = 436 - Top = 322 + Left = 480 + 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 diff --git a/坯布仓库/U_BpRklist.pas b/坯布仓库/U_BpRklist.pas index aa36583..4488a81 100644 --- a/坯布仓库/U_BpRklist.pas +++ b/坯布仓库/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, - 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; + 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 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; - if showmodal = 1 then - begin - TBRafresh.Click; + fckName := self.fckName; + if showmodal = 1 then + begin + 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. diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dpr b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr index 3ece2bf..e39ca9a 100644 --- a/基础资料维护(BaseInfo.dll)/BaseInfo.dpr +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr @@ -2,7 +2,7 @@ library BaseInfo; uses SysUtils, - classes, + classes, forms, WinTypes, WinProcs, diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm index f8ca42a..0f24a95 100644 --- a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm +++ b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm @@ -1,7 +1,7 @@ object frmMLXXListSel: TfrmMLXXListSel - Left = 588 - Top = 307 - Width = 1075 + Left = 546 + Top = 248 + 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 - Height = 39 + Width = 1142 + 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 - Width = 1059 - Height = 520 + Top = 68 + Width = 1142 + 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 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - PropertiesClassName = 'TcxTextEditProperties' + object Tv2Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' 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 - Caption = #25805#20316#26102#38388 - DataBinding.FieldName = 'FillTime' + object Tv2Column9: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'MLSH' HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 188 + Width = 60 end object Tv2Column1: TcxGridDBColumn Caption = #20379#24212#21830 @@ -342,9 +341,9 @@ object frmMLXXListSel: TfrmMLXXListSel HeaderAlignmentHorz = taCenter Width = 60 end - object Tv2Column3: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'MJgg' + object Tv2Column5: TcxGridDBColumn + Caption = #20799#31461#29992#37327 + 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 - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Width = 60 + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 end - object Tv2Column9: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'MLSH' + object v2Column14: TcxGridDBColumn + Caption = #25805#20316#21592 + 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 diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas index 4e66a53..138062f 100644 --- a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas +++ b/基础资料维护(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;