diff --git a/坯布仓库/U_BpCk.pas b/坯布仓库/U_BpCk.pas index cea4279..a36362e 100644 --- a/坯布仓库/U_BpCk.pas +++ b/坯布仓库/U_BpCk.pas @@ -9,7 +9,20 @@ uses cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmbpCk = class(TForm) @@ -87,14 +100,14 @@ type { Public declarations } end; -var +var frmbpCk: TfrmbpCk; implementation uses U_DataLink, U_Fun10, U_ZDYHelp, U_Bpkclist, U_ProductOrderNewList, - U_ZdyAttachGYS, U_ProductOrderNewListSEl, U_ZdyAttachment; + U_MLXXListSel, U_ZdyAttachGYS, U_ProductOrderNewListSEl, U_ZdyAttachment; {$R *.dfm} function TfrmbpCk.YSData(): Boolean; @@ -960,21 +973,36 @@ end; procedure TfrmbpCk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := 'Cloth'; +// flagname := ''; +// if ShowModal = 1 then +// begin +// Self.CDS_Main.Edit; +// Self.CDS_Main.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// Self.CDS_Main.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmMLXXListSel := TfrmMLXXListSel.Create(Application); + with frmMLXXListSel do begin - flag := 'Cloth'; - flagname := ''; + if ShowModal = 1 then begin Self.CDS_Main.Edit; - Self.CDS_Main.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - Self.CDS_Main.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Main.FieldByName('P_CodeName').Value := trim(CDS_HZ.fieldbyname('MLName').AsString); + Self.CDS_Main.FieldByName('P_Color').Value := trim(CDS_HZ.fieldbyname('Color').AsString); end; end; finally - frmZDYHelp.Free; + frmMLXXListSel.Free; end; end; diff --git a/坯布仓库/U_BpRk.pas b/坯布仓库/U_BpRk.pas index 4178de0..a5fbc61 100644 --- a/坯布仓库/U_BpRk.pas +++ b/坯布仓库/U_BpRk.pas @@ -10,21 +10,20 @@ uses cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, BtnEdit, RM_Common, RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, - dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, - dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, - dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + 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; + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmbpRk = class(TForm) @@ -126,7 +125,7 @@ implementation uses U_DataLink, U_Fun10, U_ZDYHelp, U_ZdyAttachCP, U_ZdyAttachment, U_ZdyAttachGYS, - U_ProductOrderNewListSEl, U_CPKWListSel, U_ZdyYS_Sel; + U_ProductOrderNewListSEl, U_CPKWListSel, U_ZdyYS_Sel, U_MLXXListSel; {$R *.dfm} function TfrmbpRk.YFData(): Boolean; @@ -861,21 +860,21 @@ end; procedure TfrmbpRk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmMLXXListSel := TfrmMLXXListSel.Create(Application); + with frmMLXXListSel do begin - flag := 'MPRTCodeName'; - flagname := 'Ʒ'; - if ShowModal = 1 then + + if ShowModal = 1 then begin Self.CDS_Main.Edit; - Self.CDS_Main.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - Self.CDS_Main.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Main.FieldByName('P_CodeName').Value := trim(CDS_HZ.fieldbyname('MLName').AsString); + Self.CDS_Main.FieldByName('P_Color').Value := trim(CDS_HZ.fieldbyname('Color').AsString); end; end; finally - frmZDYHelp.Free; + frmMLXXListSel.Free; end; + self.tv1.Controller.EditingController.ShowEdit(); end; diff --git a/坯布仓库/U_MLXXListSel.dfm b/坯布仓库/U_MLXXListSel.dfm new file mode 100644 index 0000000..65aa3bc --- /dev/null +++ b/坯布仓库/U_MLXXListSel.dfm @@ -0,0 +1,376 @@ +object frmMLXXListSel: TfrmMLXXListSel + Left = 588 + Top = 307 + Width = 1075 + Height = 629 + Caption = #36741#26009#20449#24687#36873#25321 + 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 = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = BPCK_DataLink.ThreeImgList + Flat = True + Images = BPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton6: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = ToolButton6Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 554 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + Visible = False + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1059 + Height = 520 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = BPCK_DataLink.SHuangSe + Styles.IncSearch = BPCK_DataLink.SHuangSe + Styles.Selection = BPCK_DataLink.SHuangSe + Styles.Header = BPCK_DataLink.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + end + object Tv2Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #36741#26009#21517#31216 + DataBinding.FieldName = 'MLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 120 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Type' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + 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 + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 188 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = BPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = BPCK_DataLink.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = BPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 949 + Top = 225 + 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 = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 899 + Top = 235 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 948 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/坯布仓库/U_MLXXListSel.pas b/坯布仓库/U_MLXXListSel.pas new file mode 100644 index 0000000..5e454e1 --- /dev/null +++ b/坯布仓库/U_MLXXListSel.pas @@ -0,0 +1,354 @@ +unit U_MLXXListSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + ComObj, 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, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + FdDy = record + inc: integer; //ͻ׽־ + FDdys: string[32]; //ͻ׽ + FdDysName: string[32]; //ͻ׽ + end; + + TfrmMLXXListSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column11: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + ToolButton6: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fkhType: string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmMLXXListSel: TfrmMLXXListSel; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp ; + +{$R *.dfm} + +procedure TfrmMLXXListSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *'); + sql.Add(' from KH_Zdy_MLXX '); + sql.Add(' order by filltime '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmMLXXListSel.FormDestroy(Sender: TObject); +begin + frmMLXXListSel := nil; +end; + +procedure TfrmMLXXListSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmMLXXListSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ13', Tv2, 'ͻԶ'); + Close; +end; + +procedure TfrmMLXXListSel.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then + begin + 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 TfrmMLXXListSel.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13', Tv2, 'ͻԶ'); + InitGrid(); +end; + +procedure TfrmMLXXListSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMLXXListSel.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmMLXXListSel.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmMLXXListSel.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmMLXXListSel.ToolButton4Click(Sender: TObject); +begin +// try +// frmMLXXinput := TfrmMLXXinput.Create(Application); +// with frmMLXXinput do +// begin +// FMLID := Trim(Self.CDS_HZ.fieldbyname('MLID').AsString); +// if ShowModal = 1 then +// begin +// TBRafresh.Click; +// end; +// end; +// finally +// frmMLXXinput.Free; +// end; +end; + +procedure TfrmMLXXListSel.ToolButton5Click(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, ExcelRowCount: integer; + maxId: string; +begin + + 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; + + try + k := 0; + for i := 1 to 20 do + begin + if trim(excelApp.Cells[1, i].value) = '' then + break; + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyCode'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyName'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'defNote3'; + dFdDy[k].FdDysName := ''; + end; + + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr3'; + dFdDy[k].FdDysName := 'ɫ'; + end; + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr6'; + dFdDy[k].FdDysName := 'ɫ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr5'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr1'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = 'ɷ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr2'; + dFdDy[k].FdDysName := 'ɷ'; + end; + k := k + 1; + end; + except + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 2 to ExcelRowCount do + begin + if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where 1=2'); + open; + end; + ADOQueryCmd.Append; + for j := 0 to k - 1 do + begin + ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value := excelApp.Cells[i, dFdDy[j].inc].Value; + end; + ADOQueryCmd.FieldByName('ATID').Value := Trim(maxId); + ADOQueryCmd.FieldByName('zdyCode').Value := Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value := Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value := 'CP'; + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.Post; + + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmMLXXListSel.ToolButton6Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dof b/基础资料维护(BaseInfo.dll)/BaseInfo.dof index 0f3a56b..b7e3e8e 100644 --- a/基础资料维护(BaseInfo.dll)/BaseInfo.dof +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\ά(BaseInfo.dll)\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7FZaideng\ά(BaseInfo.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dpr b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr index e4a08ca..8f40e63 100644 --- a/基础资料维护(BaseInfo.dll)/BaseInfo.dpr +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr @@ -1,11 +1,11 @@ library BaseInfo; - + uses - SysUtils, - classes, - forms, - WinTypes, - WinProcs, + SysUtils, + classes, + forms, + WinTypes, + WinProcs, U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule}, U_GetDllForm in 'U_GetDllForm.pas', U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', @@ -40,7 +40,7 @@ uses {$R *.res} -procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); @@ -51,14 +51,16 @@ begin // if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then // Application:=NewDllApp; end; -exports - GetDllForm; -begin - try - NewDllApp:=Application; - DLLProc := @DLLUnloadProc; - except - end; +exports + GetDllForm; + +begin + try + NewDllApp := Application; + DLLProc := @DLLUnloadProc; + except + + end; end. diff --git a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas index dca1779..c8f85c0 100644 --- a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas +++ b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas @@ -14,7 +14,8 @@ implementation uses U_DataLink, U_KHInfo, U_ZdyAttachment, U_ZdyAttachGYS, U_ZdyAttachCP, - U_NengHaoList, U_HZViewList, U_CPKWlist, U_ZdyAttachCP10, U_ZdyAttachmentBJ; + U_MLXXList, U_NengHaoList, U_HZViewList, U_CPKWlist, U_ZdyAttachCP10, + U_ZdyAttachmentBJ; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -56,29 +57,30 @@ begin //ֵַ - SetLength(server, 255); + SetLength(server, 255); SetLength(dtbase, 255); - SetLength(user, 255); + SetLength(user, 255); SetLength(pswd, 255); -// server := '.'; -// dtbase := 'rtjydata12'; +// server := '.'; +// dtbase := 'rtjydata12'; // user := 'sa'; -// pswd := 'rightsoft'; - server := '139.224.12.182,7781'; - dtbase := 'aidengdata'; - user := 'aidengsa'; - pswd := 'rightsoft@3203'; +// pswd := 'rightsoft'; + server := '139.224.12.182,7781'; + dtbase := 'aidengdata'; + user := 'aidengsa'; + pswd := 'rightsoft@3203'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; if trim(DataBaseStr) <> '' then - DConString := DataBaseStr; + DConString := DataBaseStr; + // DParameters1 := 'Ȩ'; // DParameters1 := 'ɱ'; // DataBase:='ӹ'; -//DataBase:=''; - if not ConnData() then - begin +//DataBase:=''; + if not ConnData() then + begin result := 0; exit; end; @@ -89,8 +91,8 @@ begin mstyle := fsMDIChild; mstate := wsMaximized; mborderstyle := bsSizeable; - end - else + end + else begin mstyle := fsNormal; mstate := wsNormal; @@ -142,6 +144,26 @@ begin // mnewHandle := frmZdyAttachGYS.Handle; + end; + 211: //Ϣ + begin + if frmMLXXList = nil then + begin + frmMLXXList := TfrmMLXXList.Create(application.MainForm); + with frmMLXXList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMLXXList.BringToFront; + // + mnewHandle := frmMLXXList.Handle; + end; 3: //Ʒά begin @@ -154,12 +176,12 @@ begin // fkhType:=''; fkhType := trim(DataBase); FormStyle := mstyle; - windowState := mstate; + windowState := mstate; BorderStyle := mborderstyle; //show; end; end - else + else frmZdyAttachCP.BringToFront; // mnewHandle := frmZdyAttachCP.Handle; diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm new file mode 100644 index 0000000..880098b --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm @@ -0,0 +1,393 @@ +object frmMLXXList: TfrmMLXXList + Left = 588 + Top = 307 + Width = 1075 + Height = 629 + Caption = #36741#26009#20449#24687#31649#29702 + 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 = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + Visible = False + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1059 + Height = 520 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + end + object v2Column6: TcxGridDBColumn + Caption = #36741#26009#21517#31216 + DataBinding.FieldName = 'MLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 120 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Type' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 100 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 61 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + 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 + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 188 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 949 + Top = 225 + 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 = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 899 + Top = 235 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 948 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.pas b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas new file mode 100644 index 0000000..1d24da3 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas @@ -0,0 +1,368 @@ +unit U_MLXXList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + ComObj, 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, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + FdDy = record + inc: integer; //ͻ׽־ + FDdys: string[32]; //ͻ׽ + FdDysName: string[32]; //ͻ׽ + end; + + TfrmMLXXList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fkhType: string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmMLXXList: TfrmMLXXList; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_MLXXinput; + +{$R *.dfm} + +procedure TfrmMLXXList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *'); + sql.Add(' from KH_Zdy_MLXX '); + sql.Add(' order by filltime '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmMLXXList.FormDestroy(Sender: TObject); +begin + frmMLXXList := nil; +end; + +procedure TfrmMLXXList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmMLXXList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ13', Tv2, 'ͻԶ'); + Close; +end; + +procedure TfrmMLXXList.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('MLID').AsString) <> '' then + begin + 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 TfrmMLXXList.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13', Tv2, 'ͻԶ'); + InitGrid(); +end; + +procedure TfrmMLXXList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMLXXList.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmMLXXList.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmMLXXList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmMLXXList.ToolButton4Click(Sender: TObject); +begin + try + frmMLXXinput := TfrmMLXXinput.Create(Application); + with frmMLXXinput do + begin + FMLID := Trim(Self.CDS_HZ.fieldbyname('MLID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmMLXXinput.Free; + end; +end; + +procedure TfrmMLXXList.ToolButton3Click(Sender: TObject); +begin + try + frmMLXXinput := TfrmMLXXinput.Create(Application); + with frmMLXXinput do + begin + FMLID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmMLXXinput.Free; + end; +end; + +procedure TfrmMLXXList.ToolButton5Click(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, ExcelRowCount: integer; + maxId: string; +begin + + 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; + + try + k := 0; + for i := 1 to 20 do + begin + if trim(excelApp.Cells[1, i].value) = '' then + break; + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyCode'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyName'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'defNote3'; + dFdDy[k].FdDysName := ''; + end; + + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr3'; + dFdDy[k].FdDysName := 'ɫ'; + end; + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr6'; + dFdDy[k].FdDysName := 'ɫ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr5'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr1'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = 'ɷ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr2'; + dFdDy[k].FdDysName := 'ɷ'; + end; + k := k + 1; + end; + except + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 2 to ExcelRowCount do + begin + if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where 1=2'); + open; + end; + ADOQueryCmd.Append; + for j := 0 to k - 1 do + begin + ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value := excelApp.Cells[i, dFdDy[j].inc].Value; + end; + ADOQueryCmd.FieldByName('ATID').Value := Trim(maxId); + ADOQueryCmd.FieldByName('zdyCode').Value := Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value := Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value := 'CP'; + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.Post; + + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm new file mode 100644 index 0000000..046af41 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm @@ -0,0 +1,377 @@ +object frmMLXXListSel: TfrmMLXXListSel + Left = 588 + Top = 307 + Width = 1075 + Height = 629 + Caption = #36741#26009#20449#24687#36873#25321 + 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 = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton6: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = ToolButton6Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 554 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + Visible = False + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1059 + Height = 520 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + end + object Tv2Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #36741#26009#21517#31216 + DataBinding.FieldName = 'MLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 120 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Type' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + 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 + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 188 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 949 + Top = 225 + 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 = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 899 + Top = 235 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 948 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas new file mode 100644 index 0000000..0e7a443 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas @@ -0,0 +1,372 @@ +unit U_MLXXListSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + ComObj, 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, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + FdDy = record + inc: integer; //ͻ׽־ + FDdys: string[32]; //ͻ׽ + FdDysName: string[32]; //ͻ׽ + end; + + TfrmMLXXListSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column11: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + ToolButton6: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fkhType: string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmMLXXListSel: TfrmMLXXListSel; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_MLXXinput; + +{$R *.dfm} + +procedure TfrmMLXXListSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *'); + sql.Add(' from KH_Zdy_MLXX '); + sql.Add(' order by filltime '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmMLXXListSel.FormDestroy(Sender: TObject); +begin + frmMLXXListSel := nil; +end; + +procedure TfrmMLXXListSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmMLXXListSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ13', Tv2, 'ͻԶ'); + Close; +end; + +procedure TfrmMLXXListSel.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then + begin + 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 TfrmMLXXListSel.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13', Tv2, 'ͻԶ'); + InitGrid(); +end; + +procedure TfrmMLXXListSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMLXXListSel.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmMLXXListSel.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmMLXXListSel.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmMLXXListSel.ToolButton4Click(Sender: TObject); +begin + try + frmMLXXinput := TfrmMLXXinput.Create(Application); + with frmMLXXinput do + begin + FMLID := Trim(Self.CDS_HZ.fieldbyname('MLID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmMLXXinput.Free; + end; +end; + +procedure TfrmMLXXListSel.ToolButton3Click(Sender: TObject); +begin + try + frmMLXXinput := TfrmMLXXinput.Create(Application); + with frmMLXXinput do + begin + FMLID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmMLXXinput.Free; + end; +end; + +procedure TfrmMLXXListSel.ToolButton5Click(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, ExcelRowCount: integer; + maxId: string; +begin + + 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; + + try + k := 0; + for i := 1 to 20 do + begin + if trim(excelApp.Cells[1, i].value) = '' then + break; + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyCode'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyName'; + dFdDy[k].FdDysName := 'Ʒ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'defNote3'; + dFdDy[k].FdDysName := ''; + end; + + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr3'; + dFdDy[k].FdDysName := 'ɫ'; + end; + if trim(excelApp.Cells[1, i].value) = 'ɫ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr6'; + dFdDy[k].FdDysName := 'ɫ'; + end; + + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr5'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = '' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr1'; + dFdDy[k].FdDysName := ''; + end; + if trim(excelApp.Cells[1, i].value) = 'ɷ' then + begin + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr2'; + dFdDy[k].FdDysName := 'ɷ'; + end; + k := k + 1; + end; + except + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 2 to ExcelRowCount do + begin + if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where 1=2'); + open; + end; + ADOQueryCmd.Append; + for j := 0 to k - 1 do + begin + ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value := excelApp.Cells[i, dFdDy[j].inc].Value; + end; + ADOQueryCmd.FieldByName('ATID').Value := Trim(maxId); + ADOQueryCmd.FieldByName('zdyCode').Value := Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value := Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value := 'CP'; + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.Post; + + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmMLXXListSel.ToolButton6Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXinput.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXinput.dfm new file mode 100644 index 0000000..73b2e63 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXinput.dfm @@ -0,0 +1,195 @@ +object frmMLXXinput: TfrmMLXXinput + Left = 617 + Top = 377 + Width = 1171 + Height = 370 + Caption = #36741#26009#20449#24687#24405#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 = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 122 + Top = 0 + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 181 + 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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object Tv1Column1: TcxGridDBColumn + Caption = #36741#26009#21517#31216 + DataBinding.FieldName = 'MLName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Type' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 733 + Top = 81 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 773 + Top = 89 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.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 +end diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXinput.pas b/基础资料维护(BaseInfo.dll)/U_MLXXinput.pas new file mode 100644 index 0000000..b8e7637 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_MLXXinput.pas @@ -0,0 +1,387 @@ +unit U_MLXXinput; + +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; + +type + TfrmMLXXinput = 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; + v2Column11: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Tv1Column1: 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); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + { Public declarations } + RKFlag, FMLID: string; + fkhType: string; + end; + +var + frmMLXXinput: TfrmMLXXinput; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmMLXXinput.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_MLXX where MLID=''' + Trim(FMLID) + ''''); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmMLXXinput.FormDestroy(Sender: TObject); +begin + frmMLXXinput := nil; +end; + +procedure TfrmMLXXinput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmMLXXinput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ¼1', Tv1, 'ͻԶ'); + Close; + ModalResult := 1; +end; + +procedure TfrmMLXXinput.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 TfrmMLXXinput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmMLXXinput.SaveData(): Boolean; +var + maxId, CRID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FMLID) = '' then + begin + if GetLSNo(ADOQueryCmd, maxId, 'ML', 'KH_Zdy_MLXX', 4, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxId := Trim(FMLID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy_MLXX where MLID=''' + Trim(FMLID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FMLID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MLID').Value := Trim(maxId); + + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_HZ, 'KH_Zdy_MLXX', 0); +// FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('Filler').Value := Trim(DName); + FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_MLXX where MLName=''' + Trim(CDS_HZ.fieldbyname('MLName').AsString) + ''' and color=''' + Trim(CDS_HZ.fieldbyname('color').AsString) + ''''); +// sql.Add(' and Type=''CP'' '); + Open; + end; + if ADOQueryCmd.RecordCount > 1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ƷŲظ!', 'ʾ', 0); + Exit; + end; + with CDS_HZ do + begin + Edit; + FieldByName('MLID').Value := Trim(maxId); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmMLXXinput.ToolButton3Click(Sender: TObject); +begin + cxGrid1.SetFocus; + + if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); +// ModalResult := 1; + 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 TfrmMLXXinput.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 TfrmMLXXinput.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 TfrmMLXXinput.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 TfrmMLXXinput.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 TfrmMLXXinput.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1, CDS_HZ); + with CDS_HZ do + begin + Edit; + FieldByName('note').Value := ''; + Post; + end; +end; + +procedure TfrmMLXXinput.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; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas index 4415263..c82b7d3 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas @@ -215,7 +215,7 @@ implementation uses U_DataLink, U_Fun10, U_ZDYHelp, getpic, U_ZdyAttachCPcbfz, U_ZDYHelpSel, - U_ZdyAttachGYS_help, U_ZdyYS_Sel, U_ZdyCMZ_help; + U_ZdyAttachGYS_help, U_ZdyYS_Sel, U_ZdyCMZ_help, U_MLXXListSel; {$R *.dfm} procedure TfrmZdyAttInputCP_CB.Jscb(); @@ -324,7 +324,7 @@ begin with cds1 do begin First; - while not eof do + while not eof do begin ADOQueryCmd.Append; ADOQueryCmd.FieldByName('CBID').Value := trim(FATID) + 'MF' + inttostr(recno); @@ -778,23 +778,52 @@ end; procedure TfrmZdyAttInputCP_CB.ToolButton1Click(Sender: TObject); begin - frmZDYHelpSel := TfrmZDYHelpSel.create(self); - with frmZDYHelpSel do +// frmZDYHelpSel := TfrmZDYHelpSel.create(self); +// with frmZDYHelpSel do +// begin +// flag := 'CPCBMF'; +// if showmodal = 1 then +// begin +// ClientDataSet1.First; +// while not ClientDataSet1.Eof do +// begin +// if ClientDataSet1.fieldbyname('ssel').AsBoolean then +// begin +// cds1.Append; +// cds1.FieldByName('DEFstr1').Value := trim(ClientDataSet1.fieldbyname('zdyName').AsString); +// cds1.post; +// end; +// ClientDataSet1.Next; +// end; +// tv1.Controller.EditingController.ShowEdit(); +// free; +// end; +// end; + + frmMLXXListSel := TfrmMLXXListSel.create(self); + with frmMLXXListSel do begin - flag := 'CPCBMF'; if showmodal = 1 then begin - ClientDataSet1.First; - while not ClientDataSet1.Eof do + with CDS_HZ do begin - if ClientDataSet1.fieldbyname('ssel').AsBoolean then + DisableControls; + First; + while not eof do begin - cds1.Append; - cds1.FieldByName('DEFstr1').Value := trim(ClientDataSet1.fieldbyname('zdyName').AsString); - cds1.post; + if Fieldbyname('ssel').AsBoolean then + begin + cds1.Append; + cds1.FieldByName('DEFstr1').Value := trim(CDS_HZ.fieldbyname('MLName').AsString); + cds1.FieldByName('CBColor').Value := trim(CDS_HZ.fieldbyname('Color').AsString); + cds1.post; + end; + + next; end; - ClientDataSet1.Next; + EnableControls; end; + tv1.Controller.EditingController.ShowEdit(); free; end; diff --git a/应收应付/U_YFCR.dfm b/应收应付/U_YFCR.dfm index 8027ed8..662e52a 100644 --- a/应收应付/U_YFCR.dfm +++ b/应收应付/U_YFCR.dfm @@ -50,19 +50,21 @@ object frmYFCR: TfrmYFCR object ToolButton5: TToolButton Left = 126 Top = 0 - Caption = #33258#21160#29983#25104 + AutoSize = True + Caption = ' '#33258#21160#29983#25104' ' ImageIndex = 16 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 245 + Left = 225 Top = 0 Caption = #21592#24037#24037#20215#23545#36134#21333 ImageIndex = 49 + Visible = False OnClick = ToolButton6Click end object ToolButton3: TToolButton - Left = 364 + Left = 344 Top = 0 AutoSize = True Caption = #22686#34892 @@ -70,7 +72,7 @@ object frmYFCR: TfrmYFCR OnClick = ToolButton3Click end object TBDel: TToolButton - Left = 427 + Left = 407 Top = 0 AutoSize = True Caption = #21024#38500 @@ -78,7 +80,7 @@ object frmYFCR: TfrmYFCR OnClick = TBDelClick end object ToolButton4: TToolButton - Left = 490 + Left = 470 Top = 0 AutoSize = True Caption = #20445#23384 @@ -86,7 +88,7 @@ object frmYFCR: TfrmYFCR OnClick = ToolButton4Click end object Tchk: TToolButton - Left = 553 + Left = 533 Top = 0 AutoSize = True Caption = #23457#26680 @@ -94,7 +96,7 @@ object frmYFCR: TfrmYFCR OnClick = TchkClick end object TnoChk: TToolButton - Left = 616 + Left = 596 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -103,7 +105,7 @@ object frmYFCR: TfrmYFCR OnClick = TnoChkClick end object ToolButton1: TToolButton - Left = 703 + Left = 683 Top = 0 AutoSize = True Caption = #23548#20986 @@ -111,7 +113,7 @@ object frmYFCR: TfrmYFCR OnClick = ToolButton1Click end object Thx: TToolButton - Left = 766 + Left = 746 Top = 0 Caption = #26680#38144 ImageIndex = 4 @@ -119,7 +121,7 @@ object frmYFCR: TfrmYFCR OnClick = ThxClick end object Tnosh: TToolButton - Left = 885 + Left = 865 Top = 0 Caption = #25764#38144#23457#26680 ImageIndex = 7 @@ -127,7 +129,7 @@ object frmYFCR: TfrmYFCR OnClick = TnoshClick end object TBClose: TToolButton - Left = 1004 + Left = 984 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/应收应付/U_YSYGGJList.dfm b/应收应付/U_YSYGGJList.dfm index b0d4eff..90309a7 100644 --- a/应收应付/U_YSYGGJList.dfm +++ b/应收应付/U_YSYGGJList.dfm @@ -1,6 +1,6 @@ object frmYSYGGJList: TfrmYSYGGJList - Left = 403 - Top = 314 + Left = 639 + Top = 399 Width = 1333 Height = 598 Caption = #21592#24037#24037#20215#20449#24687 @@ -30,7 +30,7 @@ object frmYSYGGJList: TfrmYSYGGJList Width = 1317 Height = 33 ButtonHeight = 30 - ButtonWidth = 59 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -61,16 +61,43 @@ object frmYSYGGJList: TfrmYSYGGJList ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object tbdel: TToolButton Left = 126 Top = 0 AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = tbdelClick + end + object Tch: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + Visible = False + OnClick = TchClick + end + object Tnoch: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 7 + Visible = False + OnClick = TnochClick + end + object TBExport: TToolButton + Left = 339 + Top = 0 + AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBPrint: TToolButton - Left = 189 + Left = 402 Top = 0 AutoSize = True Caption = #25171#21360 @@ -78,7 +105,7 @@ object frmYSYGGJList: TfrmYSYGGJList Visible = False end object TBClose: TToolButton - Left = 252 + Left = 465 Top = 0 AutoSize = True Caption = #20851#38381 @@ -306,9 +333,9 @@ object frmYSYGGJList: TfrmYSYGGJList end object cxGrid2: TcxGrid Left = 0 - Top = 81 + Top = 103 Width = 1317 - Height = 478 + Height = 456 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -346,6 +373,12 @@ object frmYSYGGJList: TfrmYSYGGJList Styles.IncSearch = DataLink_YSYF.SHuangSe Styles.Selection = DataLink_YSYF.SHuangSe Styles.Header = DataLink_YSYF.Default + object Tv1Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + HeaderAlignmentHorz = taCenter + Width = 60 + end object v1Column3: TcxGridDBColumn Caption = #26085#26399 DataBinding.FieldName = 'filltime' @@ -543,6 +576,25 @@ object frmYSYGGJList: TfrmYSYGGJList TabOrder = 2 Visible = False end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 81 + Width = 1317 + Height = 22 + Align = alTop + TabOrder = 5 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1317 + ClientRectTop = 19 + end object ADOQueryCmd: TADOQuery Connection = DataLink_YSYF.ADOLink Parameters = <> diff --git a/应收应付/U_YSYGGJList.pas b/应收应付/U_YSYGGJList.pas index 5e048f6..85d90b8 100644 --- a/应收应付/U_YSYGGJList.pas +++ b/应收应付/U_YSYGGJList.pas @@ -1,7 +1,7 @@ unit U_YSYGGJList; interface - + uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, @@ -10,21 +10,20 @@ uses cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, cxPC, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, - dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, - dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, - dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, - dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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; + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmYSYGGJList = class(TForm) @@ -88,6 +87,11 @@ type Label4: TLabel; Prtcode: TEdit; Tv1Column4: TcxGridDBColumn; + Tch: TToolButton; + tbdel: TToolButton; + Tnoch: TToolButton; + cxTabControl1: TcxTabControl; + Tv1Column5: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -104,6 +108,9 @@ type procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Image2Click(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); + procedure TchClick(Sender: TObject); + procedure TnochClick(Sender: TObject); + procedure tbdelClick(Sender: TObject); private FLeft, FTop: Integer; procedure InitGrid(); @@ -135,17 +142,17 @@ end; procedure TfrmYSYGGJList.FormCreate(Sender: TObject); begin //cxGrid1.Align:=alClient; - BegDate.DateTime := SGetServerDateTime(ADOQueryTemp)-30; + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp) - 30; EndDate.DateTime := SGetServerDateTime(ADOQueryTemp) end; procedure TfrmYSYGGJList.InitGrid(); begin try - ADOQueryMain.DisableControls; + ADOQueryMain.DisableControls; with ADOQueryMain do begin - Close; + Close; sql.Clear; Filtered := False; sql.Add('select A.*,B.PRTCodeName,B.prtcode,B.PRTColor,B.SOrddefstr5,'); @@ -155,8 +162,10 @@ begin SQL.Add(' else isnull(((A.GxPrice)*qty ),0) end '); sql.Add('from JyOrder_Yield A '); sql.Add('left join JYOrder_Sub B on A.mainid=B.mainid and A.subid=B.subid'); - sql.Add('where A.filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add('where A.filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and A.filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + if cxTabControl1.TabIndex < 2 then + sql.Add(' and isnull(A.status,0)=''' + inttostr(cxTabControl1.TabIndex) + ''' '); // Sql.add('group by convert(char(10),A.FillTime,120),A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,D.PRTCodeName,C.conNo,C.CustomerNoName,D.PrtColor'); Open; end; @@ -285,8 +294,158 @@ end; procedure TfrmYSYGGJList.cxTabControl1Change(Sender: TObject); begin + case cxTabControl1.TabIndex of + 0: + begin +// tbedit.Visible := true; + tbdel.Visible := true; + Tch.Visible := true; + end; + 1: + begin + Tnoch.Visible := true; + end; + end; TBRafresh.Click; end; +procedure TfrmYSYGGJList.TchClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + + if CDS_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JyOrder_Yield SET status=''1'' '); + sql.Add(',chker=' + quotedstr(trim(DName))); + sql.Add(',chkTime=getdate() '); + sql.Add('where CLID =' + quotedstr(trim(CDS_Main.fieldbyname('CLID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYSYGGJList.TnochClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + + if CDS_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JyOrder_Yield SET status=''0'' '); + sql.Add(',chker='''' '); + sql.Add(',chkTime='''' '); + sql.Add('where CLID =' + quotedstr(trim(CDS_Main.fieldbyname('CLID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYSYGGJList.tbdelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + + if CDS_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('insert into JyOrder_Yield_Del select * from WFB_MJJY where mjid=''' + trim(CDS_Main.fieldbyname('CLID').AsString) + ''' '); + sql.Add('update JyOrder_Yield_Del Set DelTime=Getdate(),Deler=''' + trim(DName) + ''' where CLID=''' + trim(CDS_Main.fieldbyname('CLID').AsString) + ''' '); + sql.Add('delete JyOrder_Yield where MJID=''' + Trim(CDS_Main.fieldbyname('CLID').AsString) + ''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; + +end; + end.