From 41b8787afa19da8deb55d5126d68961aa4c5155d Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 13 Dec 2025 16:24:49 +0800 Subject: [PATCH] ~ --- .../U_ClothContractList_CG_help.dfm | 535 +++++++++++ .../U_ClothContractList_CG_help.pas | 592 ++++++++++++ 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm | 29 +- 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas | 884 +++++++++--------- 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas | 17 +- 基础资料维护(BaseInfo.dll)/BaseInfo.dof | 2 +- 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm | 20 +- 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas | 286 +++--- 8 files changed, 1799 insertions(+), 566 deletions(-) create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.dfm new file mode 100644 index 0000000..9aaa2a8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.dfm @@ -0,0 +1,535 @@ +object frmClothContractList_CG_help: TfrmClothContractList_CG_help + Left = 669 + Top = 237 + Width = 1217 + Height = 738 + Caption = #22383#24067#37319#36141#35745#21010#20449#24687 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1201 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1201 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #30331#35760#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 267 + Top = 22 + Width = 78 + Height = 12 + Caption = #37319#36141#35745#21010#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 440 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 592 + Top = 22 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 720 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 167 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 349 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 493 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 624 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 756 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1201 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1201 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 98 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 108 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #31614#35746#22320#22336 + DataBinding.FieldName = 'QDPalce' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 32 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas new file mode 100644 index 0000000..7ced0b7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractList_CG_help.pas @@ -0,0 +1,592 @@ +unit U_ClothContractList_CG_help; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator; + +type + TfrmClothContractList_CG_help = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_CG_help: TfrmClothContractList_CG_help; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; //U_ClothContractInPut_CG, U_ProductOrderList, + +{$R *.dfm} + +procedure TfrmClothContractList_CG_help.FormDestroy(Sender: TObject); +begin + frmClothContractList_CG_help:=nil; +end; + +procedure TfrmClothContractList_CG_help.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_CG_help.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_CG_help.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_CG_help.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add('and A.FillTime< '''+Trim(FormatDateTime('yyyy-MM-dd',endDate.DateTime+1))+''' '); + sql.Add('and A.conType=''ɹƻ'' '); + sql.Add('and Isnull(B.C_status,''0'')=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_CG_help.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractList_CG_help.TBEditClick(Sender: TObject); +begin +// if Order_Main.IsEmpty then Exit; +// try +// frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); +// with frmClothContractInPut_CG do +// begin +// PState:=1; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut_CG.Free; +// end; +end; + +procedure TfrmClothContractList_CG_help.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if ClientDataSet2.IsEmpty=false then + begin + Application.MessageBox('ѵɾͬ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_CG_help.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + // sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList_CG_help.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_CG_help.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + //SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+''''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ͬ.rmf'),'ʾ',0); + end; + //SDofilter(ADOQueryMain,''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + //Order_Main.Locate('ConNoM',FConNoM,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmClothContractList_CG_help.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.TBAddClick(Sender: TObject); +begin +// try +// frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); +// with frmClothContractInPut_CG do +// begin +// PState:=0; +// FMainId:=''; +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut_CG.Free; +// end; +end; + +procedure TfrmClothContractList_CG_help.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractList_CG_help.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_CG_help.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList_CG_help.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList_CG_help.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList_CG_help.ToolButton3Click(Sender: TObject); +begin + if FInt=2 then + begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet3.IsEmpty=false then + begin + Application.MessageBox('Ѳݣɾ¼','ʾ',0); + Exit; + end; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end else + if FInt=3 then + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + with ClientDataSet2 do + begin + Edit; + if ClientDataSet3.IsEmpty=False then + // FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + else + FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value; + Post; + end; + end; +end; + +procedure TfrmClothContractList_CG_help.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractList_CG_help.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractList_CG_help.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm index c87619e..a75d4da 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -1,8 +1,8 @@ object frmSXCKInPut: TfrmSXCKInPut - Left = -8 - Top = -8 + Left = 247 + Top = 398 Width = 1382 - Height = 754 + Height = 655 Align = alClient Caption = #22383#24067#20837#24211 Color = clBtnFace @@ -21,12 +21,12 @@ object frmSXCKInPut: TfrmSXCKInPut Left = 0 Top = 33 Width = 1366 - Height = 683 + Height = 583 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellClick = Tv1CellClick DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> @@ -267,7 +267,7 @@ object frmSXCKInPut: TfrmSXCKInPut Width = 1366 Height = 33 ButtonHeight = 30 - ButtonWidth = 59 + ButtonWidth = 71 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -290,16 +290,25 @@ object frmSXCKInPut: TfrmSXCKInPut ImageIndex = 15 OnClick = TBSaveClick end - object TBAdd: TToolButton + object ToolButton1: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 ImageIndex = 12 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686#21407 + ImageIndex = 12 + Visible = False OnClick = TBAddClick end object TBDel: TToolButton - Left = 126 + Left = 201 Top = 0 AutoSize = True Caption = #21024#38500 @@ -307,7 +316,7 @@ object frmSXCKInPut: TfrmSXCKInPut OnClick = TBDelClick end object TBClose: TToolButton - Left = 189 + Left = 264 Top = 0 AutoSize = True Caption = #20851#38381 @@ -315,7 +324,7 @@ object frmSXCKInPut: TfrmSXCKInPut OnClick = TBCloseClick end object Panel1: TPanel - Left = 252 + Left = 327 Top = 0 Width = 797 Height = 30 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas index 1666430..3ad498c 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -4,12 +4,25 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, - ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, - cxTextEdit, StdCtrls, ExtCtrls; + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, + cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator; type TfrmSXCKInPut = class(TForm) @@ -46,224 +59,213 @@ type v1Column13: TcxGridDBColumn; Panel1: TPanel; Label1: TLabel; + ToolButton1: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure v1Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column11PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column16PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column13PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure v1Column17PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column8PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column10PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure v1Column17PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column5PropertiesEditValueChanged(Sender: TObject); - procedure Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); private { Private declarations } - function SaveCKData():Boolean; - function YFData():Boolean; + function SaveCKData(): Boolean; + function YFData(): Boolean; procedure DoKc(); public { Public declarations } - FBCId,canshu3:String; - + FBCId, canshu3: string; end; var frmSXCKInPut: TfrmSXCKInPut; implementation + uses - U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, - U_ZdyAttachCP; + U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS, + U_ProductOrderListSel, U_ZdyAttachCP, U_ClothContractList_CG_help; {$R *.dfm} procedure TfrmSXCKInPut.DoKc(); begin - Label1.Caption:='ۣ0'; - IF CDS_Sub.IsEmpty then exit; - IF trim(CDS_Sub.fieldbyname('SPName').AsString)='' then exit; - IF trim(CDS_Sub.fieldbyname('FactoryName').AsString)='' then exit; + Label1.Caption := 'ۣ0'; + if CDS_Sub.IsEmpty then + exit; + if trim(CDS_Sub.fieldbyname('SPName').AsString) = '' then + exit; + if trim(CDS_Sub.fieldbyname('FactoryName').AsString) = '' then + exit; with ADOQueryTemp do begin close; sql.Clear; SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); - sql.Add(' where P_CodeName='+quotedstr(trim(CDS_Sub.fieldbyname('SPName').AsString))); - sql.Add(' and factoryName='+quotedstr(trim(CDS_Sub.fieldbyname('FactoryName').AsString))); + sql.Add(' where P_CodeName=' + quotedstr(trim(CDS_Sub.fieldbyname('SPName').AsString))); + sql.Add(' and factoryName=' + quotedstr(trim(CDS_Sub.fieldbyname('FactoryName').AsString))); sql.Add(' and CRType=''ӦǼ'' '); sql.Add(' and price>0 '); sql.Add(' order by FillTime desc'); open; end; - IF not ADOQueryTemp.IsEmpty then + if not ADOQueryTemp.IsEmpty then begin - Label1.Caption:='ۣ'+trim(ADOQueryTemp.fieldbyname('price').AsString); + Label1.Caption := 'ۣ' + trim(ADOQueryTemp.fieldbyname('price').AsString); end; end; -function TfrmSXCKInPut.YFData():Boolean; + +function TfrmSXCKInPut.YFData(): Boolean; var - CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string; begin - Result:=False; - with ADOQueryTemp do + Result := False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('FactoryName').AsString) + ''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + CRID := ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_Sub.fieldbyname('FactoryName').AsString)+''' '); + sql.Add('select * from YF_Money_KC where 1<>1'); Open; end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; - if not ADOQueryTemp.IsEmpty then + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''' '); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + execsql; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CF', 'YF_Money_CR', 3, 1) = False then begin - CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; - end - else - begin - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update YF_Money_CRID set CRID=CRID+1'); - sql.Add('select * from YF_Money_CRID '); - Open; - end; - CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; - with ADOQueryCmd do - begin - Close; - SQL.Clear; - sql.Add('select * from YF_Money_KC where 1<>1'); - Open; - end; - with ADOQueryCmd do - begin - Append; - FieldByName('CRID').Value:=StrToInt(CRID); - FieldByName('FactoryName').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); - FieldByName('ZdyStr1').Value:='Ӧ'; - Post; - end; + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; end; with ADOQueryCmd do begin - Close; - sql.Clear; - sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''' '); - // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); - sql.Add(' and YFName=''ɹ'' '); - execsql; + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; end; - - with ADOQueryTemp do + with ADOQueryCmd do begin - Close; - sql.Clear; - sql.Add('select * from YF_Money_CR '); - sql.Add(' where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); - // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); - sql.Add(' and YFName=''ɹ'' '); - Open; - end; - - if ADOQueryTemp.IsEmpty then - begin - if GetLSNo(ADOQueryCmd,YFID,'CF','YF_Money_CR',3,1)=False then - begin - Application.MessageBox('ȡӦʧ!','ʾ',0); - Exit; - end; - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('select * from YF_Money_CR where 1<>1'); - Open; - end; - - with ADOQueryCmd do - begin - Append; - FieldByName('YFID').Value:=Trim(YFID); - FieldByName('YFTypeId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString); - FieldByName('CRID').Value:=StrToInt(CRID); - FieldByName('Filler').Value:=Trim(DName); - FieldByName('CRType').Value:='ӦǼ'; - FieldByName('CRFlag').Value:='Ӧ'; - FieldByName('QtyFlag').Value:=1; - FieldByName('FactoryName').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); - FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Sub.fieldbyname('CRTime').AsDateTime)); - FieldByName('YFType').Value:='Զ'; - FieldByName('ps').Value:=CDS_Sub.fieldbyname('PiQty').AsFloat; - FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').AsFloat; - FieldByName('Price').Value:=CDS_Sub.fieldbyname('price').AsFloat; - FieldByName('Money').Value:=CDS_Sub.fieldbyname('Money').AsFloat; - FieldByName('BBMoney').Value:=CDS_Sub.fieldbyname('Money').AsFloat; - FieldByName('HuiLv').Value:=1; - FieldByName('BZType').Value:='RMB'; - FieldByName('QtyUnit').Value:=Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); - FieldByName('ComTaiTou').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); - FieldByName('YFName').Value:='ɹ'; - FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString); - FieldByName('subID').Value:=''; - FieldByName('P_CodeName').Value:=Trim(CDS_Sub.fieldbyname('SPName').AsString); + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('ps').Value := CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value := CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value := CDS_Sub.fieldbyname('price').AsFloat; + FieldByName('Money').Value := CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('BBMoney').Value := CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := 'RMB'; + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('YFName').Value := 'ɹ'; + FieldByName('MainId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value := ''; + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('SPName').AsString); // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); // FieldByName('P_Color').Value:=Trim(CDS_Sub.fieldbyname('PRTColor').AsString); // FieldByName('SYRName').Value:='𻪷֯'; - FieldByName('status').Value:='0'; - Post; - end; - end - else - begin - YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); - end; + FieldByName('status').Value := '0'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; - Result:=True; + Result := True; end; -procedure TfrmSXCKInPut.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmSXCKInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmSXCKInPut.TBAddClick(Sender: TObject); begin - if CDS_Sub.IsEmpty=False then + if CDS_Sub.IsEmpty = False then begin CopyAddRowCDS(CDS_Sub); with CDS_Sub do begin Edit; - FieldByName('SPID').Value:=null; + FieldByName('SPID').Value := null; post; end; end @@ -272,16 +274,17 @@ begin with CDS_Sub do begin Append; - FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); - FieldByName('QtyUnit').Value:='M'; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('QtyUnit').Value := 'M'; Post; end; end; - + end; -function TfrmSXCKInPut.SaveCKData():Boolean; + +function TfrmSXCKInPut.SaveCKData(): Boolean; var - FCRID,Maxno,FFSPID:string; + FCRID, Maxno, FFSPID: string; begin try ADOQueryCmd.Connection.BeginTrans; @@ -363,65 +366,69 @@ begin begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); open; end; - FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); - if Trim(FFSPID)='' then + FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID) = '' then begin - if GetLSNo(ADOQueryCmd,Maxno,'PR','CK_SXPB_CR',3,1)=False then + if GetLSNo(ADOQueryCmd, Maxno, 'PR', 'CK_SXPB_CR', 3, 1) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧ!','ʾ',0); + Application.MessageBox('ȡʧ!', 'ʾ', 0); Exit; end; - end else + end + else begin - Maxno:=Trim(FFSPID); + Maxno := Trim(FFSPID); end; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + ''''); Open; end; with ADOQueryCmd do begin - if Trim(FFSPID)='' then + if Trim(FFSPID) = '' then begin Append; - end else - begin + end + else + begin Edit; end; - FieldByName('SPID').Value:=Trim(Maxno); - FieldByName('FZSPID').Value:=Trim(Maxno); - FieldByName('CKName').Value:=''; - FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); - FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); - FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); - FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); - FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); - FieldByName('CPID').Value:=Trim(CDS_Sub.fieldbyname('CPID').AsString); - FieldByName('CRFlag').Value:=''; - FieldByName('CRQtyFlag').Value:=1; + FieldByName('SPID').Value := Trim(Maxno); + FieldByName('FZSPID').Value := Trim(Maxno); + FieldByName('CKName').Value := ''; + FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CGmainid').Value := Trim(CDS_Sub.fieldbyname('CGmainid').AsString); + FieldByName('CGsubid').Value := Trim(CDS_Sub.fieldbyname('CGsubid').AsString); + FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString); + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; //FieldByName('CRID').Value:=FCRID; - RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); - if Trim(FFSPID)='' then - FieldByName('Filler').Value:=Trim(DName) + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2); + if Trim(FFSPID) = '' then + FieldByName('Filler').Value := Trim(DName) else begin - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); end; - if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then begin - FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString); end; - FieldByName('price').Value:=CDS_Sub.fieldbyName('Price').AsFloat; - FieldByName('money').Value:=CDS_Sub.fieldbyName('money').AsFloat; + FieldByName('price').Value := CDS_Sub.fieldbyName('Price').AsFloat; + FieldByName('money').Value := CDS_Sub.fieldbyName('money').AsFloat; Post; end; with ADOQueryCmd do @@ -431,7 +438,7 @@ begin sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); - sql.Add(' where SPID='''+Trim(Maxno)+''''); + sql.Add(' where SPID=''' + Trim(Maxno) + ''''); ExecSQL; end; { with ADOQueryTemp do @@ -480,15 +487,15 @@ begin Exit; end; } Edit; - FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('SPID').Value := Trim(Maxno); Post; - if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ɹ' then + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ɹ' then begin if not YFData() then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('쳣!','ʾ',0); + Application.MessageBox('쳣!', 'ʾ', 0); exit; end; end; @@ -498,25 +505,26 @@ begin end; CDS_Sub.EnableControls; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('쳣!','ʾ',0); + Application.MessageBox('쳣!', 'ʾ', 0); end; end; + procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ɴǼ',Tv1,'ɴֿ߲'); + WriteCxGrid('ɴǼ', Tv1, 'ɴֿ߲'); Close; end; procedure TfrmSXCKInPut.FormShow(Sender: TObject); var - fsj:String; + fsj: string; begin - ReadCxGrid('Ǽ',Tv1,'ֿ'); + ReadCxGrid('Ǽ', Tv1, 'ֿ'); with ADOQueryTemp do begin Close; @@ -524,62 +532,66 @@ begin sql.Add(' select A.* '); sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); sql.Add(' from CK_SXPB_CR A'); - sql.Add(' where SPID='''+Trim(FBCId)+''''); + sql.Add(' where SPID=''' + Trim(FBCId) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_Sub); - SInitCDSData20(ADOQueryTemp,CDS_Sub); - if CDS_Sub.IsEmpty then Exit; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); + if CDS_Sub.IsEmpty then + Exit; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - v1Column4.Options.Focusing:=False; + v1Column4.Options.Focusing := False; - v1Column14.Options.Focusing:=False; - v2Column1.Options.Focusing:=False; - v1Column8.Options.Focusing:=False; - v1Column7.Options.Focusing:=False; - v1Column1.Options.Focusing:=False; - v1Column10.Options.Focusing:=False; - v1Column11.Options.Focusing:=False; + v1Column14.Options.Focusing := False; + v2Column1.Options.Focusing := False; + v1Column8.Options.Focusing := False; + v1Column7.Options.Focusing := False; + v1Column1.Options.Focusing := False; + v1Column10.Options.Focusing := False; + v1Column11.Options.Focusing := False; Exit; - end else + end + else begin - v1Column4.Options.Focusing:=True; - v1Column14.Options.Focusing:=True; - v2Column1.Options.Focusing:=True; - v1Column8.Options.Focusing:=True; - v1Column7.Options.Focusing:=True; - v1Column1.Options.Focusing:=True; - v1Column10.Options.Focusing:=True; - v1Column11.Options.Focusing:=True; + v1Column4.Options.Focusing := True; + v1Column14.Options.Focusing := True; + v2Column1.Options.Focusing := True; + v1Column8.Options.Focusing := True; + v1Column7.Options.Focusing := True; + v1Column1.Options.Focusing := True; + v1Column10.Options.Focusing := True; + v1Column11.Options.Focusing := True; end; end; procedure TfrmSXCKInPut.TBDelClick(Sender: TObject); begin - if CDS_Sub.IsEmpty then Exit; - if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('г¼ɾ!','ʾ',0); + Application.MessageBox('г¼ɾ!', 'ʾ', 0); Exit; end; try @@ -588,18 +600,19 @@ begin begin Close; sql.Clear; - sql.Add('delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); - sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('delete CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + sql.Add('delete from YF_Money_CR where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; CDS_Sub.Delete; except ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣!','ʾ',0); + Application.MessageBox('ɾ쳣!', 'ʾ', 0); end; - end else + end + else begin CDS_Sub.Delete; end; @@ -608,21 +621,22 @@ end; procedure TfrmSXCKInPut.TBSaveClick(Sender: TObject); begin - if CDS_Sub.IsEmpty then Exit; - if CDS_Sub.Locate('CRTime',null,[])=True then + if CDS_Sub.IsEmpty then + Exit; + if CDS_Sub.Locate('CRTime', null, []) = True then begin - Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('CRType',null,[])=True then + if CDS_Sub.Locate('CRType', null, []) = True then begin - Application.MessageBox('ͲΪ!','ʾ',0); + Application.MessageBox('ͲΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('SPName',null,[])=True then + if CDS_Sub.Locate('SPName', null, []) = True then begin - Application.MessageBox('ƷΪ!','ʾ',0); + Application.MessageBox('ƷΪ!', 'ʾ', 0); Exit; end; {if CDS_Sub.Locate('SPCF',null,[])=True then @@ -630,29 +644,29 @@ begin Application.MessageBox('ɷֲΪ!','ʾ',0); Exit; end; } - if CDS_Sub.Locate('ToFactoryName',null,[])=True then + if CDS_Sub.Locate('ToFactoryName', null, []) = True then begin - Application.MessageBox('ŹΪ!','ʾ',0); + Application.MessageBox('ŹΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('FactoryName',null,[])=True then + if CDS_Sub.Locate('FactoryName', null, []) = True then begin - Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Application.MessageBox('Ӧ̲Ϊ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('PiQty',null,[])=True then + if CDS_Sub.Locate('PiQty', null, []) = True then begin - Application.MessageBox('ƥΪ!','ʾ',0); + Application.MessageBox('ƥΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('Qty',null,[])=True then + if CDS_Sub.Locate('Qty', null, []) = True then begin - Application.MessageBox('Ϊ!','ʾ',0); + Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('QtyUnit',null,[])=True then + if CDS_Sub.Locate('QtyUnit', null, []) = True then begin - Application.MessageBox('λΪ!','ʾ',0); + Application.MessageBox('λΪ!', 'ʾ', 0); Exit; end; { if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then @@ -662,27 +676,26 @@ begin end; } if SaveCKData() then begin - Application.MessageBox('ɹ!','ʾ',0); + Application.MessageBox('ɹ!', 'ʾ', 0); //ModalResult:=1; Exit; end; end; -procedure TfrmSXCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='SXKuWei'; - flagname:='λ'; - if ShowModal=1 then + flag := 'SXKuWei'; + flagname := 'λ'; + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -691,20 +704,19 @@ begin end; end; -procedure TfrmSXCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -715,51 +727,49 @@ begin DoKc(); end; -procedure TfrmSXCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); -begin - try - frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); - with frmZdyAttachCP do - begin - DEFstr5.ItemIndex:=DEFstr5.Items.IndexOf(''); - if ShowModal=1 then - begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); - FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); - FieldByName('SPCF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); - FieldByName('SPMF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); - FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); - FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); - FieldByName('SPCode').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); - FieldByName('CPID').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); - end; - end; - end; - finally - frmZdyAttachCP.Free; - end; - DoKc(); -end; - -procedure TfrmSXCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do begin - flag:='KuWei'; - flagname:='λ'; - if ShowModal=1 then + DEFstr5.ItemIndex := DEFstr5.Items.IndexOf(''); + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('SPName').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPCF').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; + DoKc(); +end; + +procedure TfrmSXCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'KuWei'; + flagname := 'λ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -768,20 +778,19 @@ begin end; end; -procedure TfrmSXCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -791,20 +800,19 @@ begin end; end; -procedure TfrmSXCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -814,21 +822,20 @@ begin end; end; -procedure TfrmSXCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + frmProductOrderListSel := TfrmProductOrderListSel.Create(Application); with frmProductOrderListSel do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); - FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); - FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); end; end; end; @@ -837,154 +844,199 @@ begin end; end; -procedure TfrmSXCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); +procedure TfrmSXCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - if CDS_Sub.IsEmpty then Exit; - if Trim(canshu3)='' then exit; - v1Column17.Options.Editing:=False; - v1Column8.Options.Editing:=False; - v1Column7.Options.Editing:=False; - (v2Column1.Properties as TcxButtonEditProperties).ReadOnly:=True; + if CDS_Sub.IsEmpty then + Exit; + if Trim(canshu3) = '' then + exit; + v1Column17.Options.Editing := False; + v1Column8.Options.Editing := False; + v1Column7.Options.Editing := False; + (v2Column1.Properties as TcxButtonEditProperties).ReadOnly := True; end; -procedure TfrmSXCKInPut.v1Column17PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column17PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PBCode'; + flagname := ''; + if ShowModal = 1 then begin - flag:='PBCode'; - flagname:=''; - if ShowModal=1 then + with Self.CDS_Sub do begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPcode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; + Edit; + FieldByName('SPcode').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; - finally - frmZDYHelp.Free; end; + finally + frmZDYHelp.Free; + end; end; -procedure TfrmSXCKInPut.v1Column8PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PBspec'; + flagname := ''; + if ShowModal = 1 then begin - flag:='PBspec'; - flagname:=''; - if ShowModal=1 then + with Self.CDS_Sub do begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPspec').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; + Edit; + FieldByName('SPspec').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; - finally - frmZDYHelp.Free; end; + finally + frmZDYHelp.Free; + end; end; -procedure TfrmSXCKInPut.v1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PBKF'; + flagname := 'ƺ'; + if ShowModal = 1 then begin - flag:='PBKF'; - flagname:='ƺ'; - if ShowModal=1 then + with Self.CDS_Sub do begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPCF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; + Edit; + FieldByName('SPCF').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; - finally - frmZDYHelp.Free; end; + finally + frmZDYHelp.Free; + end; end; -procedure TfrmSXCKInPut.v1Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PBMF'; + flagname := 'ŷ'; + if ShowModal = 1 then begin - flag:='PBMF'; - flagname:='ŷ'; - if ShowModal=1 then + with Self.CDS_Sub do begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPMF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; + Edit; + FieldByName('SPMF').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; - finally - frmZDYHelp.Free; end; + finally + frmZDYHelp.Free; + end; end; -procedure TfrmSXCKInPut.v1Column10PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSXCKInPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try - frmZDYHelp:=TfrmZDYHelp.Create(Application); - with frmZDYHelp do + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PBKZ'; + flagname := ''; + if ShowModal = 1 then begin - flag:='PBKZ'; - flagname:=''; - if ShowModal=1 then + with Self.CDS_Sub do begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('SPKZ').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; + Edit; + FieldByName('SPKZ').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; - finally - frmZDYHelp.Free; end; + finally + frmZDYHelp.Free; + end; end; -procedure TfrmSXCKInPut.v1Column5PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmSXCKInPut.v1Column5PropertiesEditValueChanged(Sender: TObject); var - fieldname:string; + fieldname: string; begin - fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; with CDS_Sub do begin Edit; - FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; - FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + FieldByName(Trim(fieldname)).Value := TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value := strtofloat(format('%.2f', [FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); Post; end; Tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmSXCKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmSXCKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin DoKc(); end; +procedure TfrmSXCKInPut.ToolButton1Click(Sender: TObject); +begin + try + frmClothContractList_CG_help := TfrmClothContractList_CG_help.Create(Application); + with frmClothContractList_CG_help do + begin + ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmClothContractList_CG_help.Order_Main.DisableControls; + with frmClothContractList_CG_help.Order_Main do + begin + First; +// while frmClothContractList_CG_help.Order_Main.Locate('SSel', True, []) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('SPID').Value := null; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('CGMainId').Value := Trim(frmClothContractList_CG_help.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGSubId').Value := Trim(frmClothContractList_CG_help.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CGConNo').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('ConNo').Value; + FieldByName('FactoryName').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNo').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('FactoryNo').Value; + + FieldByName('SPName').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('C_CodeName').Value; + FieldByName('SPCode').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('C_Code').Value; +// FieldByName('CPID').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('CPID').Value; + FieldByName('SPSpec').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('C_Spec').Value; +// FieldByName('SPCF').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('MFQty').Value; + FieldByName('SPKZ').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('KZQty').Value; + + FieldByName('QtyUnit').Value := frmClothContractList_CG_help.Order_Main.fieldbyname('C_Unit').Value; +// FieldByName('PiQty').Value := frmClothContractList_CG_help.CDS_Main.fieldbyname('MXKCPiQty').Value; +// FieldByName('Qty').Value := frmClothContractList_CG_help.CDS_Main.fieldbyname('MXKCQty').Value; + + end; + frmClothContractList_CG_help.Order_Main.Delete; + end; + end; + frmClothContractList_CG_help.Order_Main.EnableControls; + + end; + end; + finally + frmClothContractList_CG_help.Free; + end; +end; + end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas index 5cd2edf..b7ffe16 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -12,7 +12,20 @@ uses cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + 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 TfrmSXCKNewList = class(TForm) @@ -315,7 +328,7 @@ begin if ShowModal=1 then begin Self.InitGrid(); - end; + end; end; finally frmSXCKInPut.Free; diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dof b/基础资料维护(BaseInfo.dll)/BaseInfo.dof index c34e9e3..d56e2a9 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\Ŀ\D7wmguihua\ά(BaseInfo.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm index 1addf03..730d7ad 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm @@ -130,13 +130,20 @@ object frmZdyAttachPB: TfrmZdyAttachPB Caption = #20135#21697#32534#21495 end object Label2: TLabel - Left = 369 + Left = 649 Top = 13 Width = 24 Height = 12 Caption = #31867#22411 Visible = False end + object Label5: TLabel + Left = 368 + Top = 13 + Width = 48 + Height = 12 + Caption = #25104#21697#36135#21495 + end object ZdyName: TEdit Tag = 2 Left = 241 @@ -157,7 +164,7 @@ object frmZdyAttachPB: TfrmZdyAttachPB end object DEFstr5: TComboBox Tag = 1 - Left = 398 + Left = 678 Top = 8 Width = 81 Height = 20 @@ -171,6 +178,15 @@ object frmZdyAttachPB: TfrmZdyAttachPB #25104#21697 '') end + object CPhh: TEdit + Tag = 2 + Left = 418 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = ZdyNameChange + end end object cxGrid2: TcxGrid Left = 0 diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas index a2de6b4..2f2573f 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas @@ -3,25 +3,38 @@ unit U_ZdyAttachPB; 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, + 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; + 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; - FdDy=record - inc: integer; //ͻ׽־ - FDdys:string[32]; //ͻ׽ - FdDysName:string[32]; //ͻ׽ - end; TfrmZdyAttachPB = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; @@ -74,6 +87,8 @@ type cxButton2: TcxButton; v2Column16: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; + Label5: TLabel; + CPhh: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -92,9 +107,8 @@ type private { Private declarations } procedure InitGrid(); - public - fkhType:string; + fkhType: string; dFdDy: array[0..20] of FdDy; //ͻ end; @@ -102,65 +116,66 @@ var frmZdyAttachPB: TfrmZdyAttachPB; implementation + uses - U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputPB; + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInputPB; {$R *.dfm} - - procedure TfrmZdyAttachPB.InitGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do - begin - Filtered:=False; + begin + Filtered := False; Close; SQL.Clear; sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr1,DEFstr2,defNote1,Mrate,defNote2,defNote3,DEFstr3,DEFstr5,DEFstr4,'); sql.Add(' DEFstr6,DEFstr7,DEFstr8,Note,DEFstr4,DEFstr5,defflt1,CPhh,Filler,FillTime '); sql.Add(' from KH_Zdy_Attachment where Type=''CP'' and DEFstr5='''' '); - sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); // sql.Add(' order by zdyName '); Open; end; - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; end; end; - procedure TfrmZdyAttachPB.FormDestroy(Sender: TObject); begin - frmZdyAttachPB:=nil; + frmZdyAttachPB := nil; end; procedure TfrmZdyAttachPB.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmZdyAttachPB.TBCloseClick(Sender: TObject); begin - WriteCxGrid('Ʒ13',Tv2,'ͻԶ'); + WriteCxGrid('Ʒ13', Tv2, 'ͻԶ'); Close; end; + procedure TfrmZdyAttachPB.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 + 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_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); - sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy_Attachment where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); + sql.Add('delete KH_Zdy where ZdyNo=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); ExecSQL; end; end; @@ -169,7 +184,7 @@ end; procedure TfrmZdyAttachPB.FormShow(Sender: TObject); begin - ReadCxGrid('Ʒ13',Tv2,'ͻԶ'); + ReadCxGrid('Ʒ13', Tv2, 'ͻԶ'); InitGrid(); end; @@ -182,9 +197,9 @@ procedure TfrmZdyAttachPB.ToolButton2Click(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); end; end; @@ -193,23 +208,23 @@ begin ToolButton2.Click; end; - procedure TfrmZdyAttachPB.ToolButton1Click(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(self.Caption,cxgrid2); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); // SelExportData(Tv2,ADOQueryMain,'Ʒб'); end; procedure TfrmZdyAttachPB.ToolButton4Click(Sender: TObject); begin try - frmZdyAttInputPB:=TfrmZdyAttInputPB.Create(Application); + frmZdyAttInputPB := TfrmZdyAttInputPB.Create(Application); with frmZdyAttInputPB do begin - FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); - fkhType:=self.fkhType; - if ShowModal=1 then + FCYID := Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType := self.fkhType; + if ShowModal = 1 then begin TBRafresh.Click; end; @@ -222,12 +237,12 @@ end; procedure TfrmZdyAttachPB.ToolButton3Click(Sender: TObject); begin try - frmZdyAttInputPB:=TfrmZdyAttInputPB.Create(Application); + frmZdyAttInputPB := TfrmZdyAttInputPB.Create(Application); with frmZdyAttInputPB do begin - FCYID:=''; - fkhType:=self.fkhType; - if ShowModal=1 then + FCYID := ''; + fkhType := self.fkhType; + if ShowModal = 1 then begin TBRafresh.Click; end; @@ -239,99 +254,99 @@ end; procedure TfrmZdyAttachPB.ToolButton5Click(Sender: TObject); var - excelApp,WorkBook:Variant; - i,j,k,ExcelRowCount:integer; - maxId:string; + excelApp, WorkBook: Variant; + i, j, k, ExcelRowCount: integer; + maxId: string; begin try - ExcelApp := CreateOleObject('Excel.Application'); - openDialog1.Filter:='*.CSV;*.xls'; - if opendialog1.Execute then + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then begin - WorkBook :=ExcelApp.WorkBooks.Open(OpenDialog1.FileName); + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); end else exit; - ExcelApp.Visible := false; - ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; except - application.MessageBox('EXCEL','Ϣ',MB_ICONERROR); + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); exit; end; try - k:=0; - for i:=1 to 20 do + 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 + 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:='Ʒ'; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyCode'; + dFdDy[k].FdDysName := 'Ʒ'; end; - if trim(excelapp.Cells[1,i].value)='Ʒ' then + if trim(excelApp.Cells[1, i].value) = 'Ʒ' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='ZdyName'; - dFdDy[k].FdDysName:='Ʒ'; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'ZdyName'; + dFdDy[k].FdDysName := 'Ʒ'; end; - if trim(excelapp.Cells[1,i].value)='' then + if trim(excelApp.Cells[1, i].value) = '' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='defNote3'; - dFdDy[k].FdDysName:=''; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'defNote3'; + dFdDy[k].FdDysName := ''; end; - if trim(excelapp.Cells[1,i].value)='ɫ' then + if trim(excelApp.Cells[1, i].value) = 'ɫ' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='DEFstr3'; - dFdDy[k].FdDysName:='ɫ'; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr3'; + dFdDy[k].FdDysName := 'ɫ'; end; - if trim(excelapp.Cells[1,i].value)='ɫ' then + if trim(excelApp.Cells[1, i].value) = 'ɫ' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='DEFstr6'; - dFdDy[k].FdDysName:='ɫ'; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr6'; + dFdDy[k].FdDysName := 'ɫ'; end; - - if trim(excelapp.Cells[1,i].value)='' then + if trim(excelApp.Cells[1, i].value) = '' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='DEFstr5'; - dFdDy[k].FdDysName:=''; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr5'; + dFdDy[k].FdDysName := ''; end; - if trim(excelapp.Cells[1,i].value)='' then + if trim(excelApp.Cells[1, i].value) = '' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='DEFstr1'; - dFdDy[k].FdDysName:=''; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr1'; + dFdDy[k].FdDysName := ''; end; - if trim(excelapp.Cells[1,i].value)='ɷ' then + if trim(excelApp.Cells[1, i].value) = 'ɷ' then begin - dFdDy[k].inc:=i; - dFdDy[k].FDdys:='DEFstr2'; - dFdDy[k].FdDysName:='ɷ'; + dFdDy[k].inc := i; + dFdDy[k].FDdys := 'DEFstr2'; + dFdDy[k].FdDysName := 'ɷ'; end; - k:=k+1; + k := k + 1; end; except end; ADOQueryCmd.Connection.BeginTrans; try - for i := 2 to excelrowcount do + for i := 2 to ExcelRowCount do begin - if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; @@ -343,83 +358,84 @@ begin open; end; ADOQueryCmd.Append; - for j:=0 to k-1 do + for j := 0 to k - 1 do begin - ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value:=excelapp.Cells[i,dFdDy[j].inc].Value; + 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.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; + excelApp.Quit; + excelApp := Unassigned; WorkBook := Unassigned; ADOQueryCmd.Connection.CommitTrans; InitGrid(); except WorkBook.Close; - ExcelApp.Quit; - ExcelApp := Unassigned; + excelApp.Quit; + excelApp := Unassigned; WorkBook := Unassigned; - ADOQueryCmd.Connection.RollbackTrans; + ADOQueryCmd.Connection.RollbackTrans; end; end; procedure TfrmZdyAttachPB.cxButton2Click(Sender: TObject); begin - Panel2.Visible:=false; + Panel2.Visible := false; end; procedure TfrmZdyAttachPB.cxButton1Click(Sender: TObject); var - fPrintFile:string; - Txt,fImagePath:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin - IF CDS_HZ.IsEmpty then exit; - try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(CDS_HZ.fieldbyname('ZDYCODE').AsString); - fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath) then DeleteFile(fImagePath); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); - except - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); - exit; - end; + if CDS_HZ.IsEmpty then + exit; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_HZ.fieldbyname('ZDYCODE').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+trim(RadioGroup1.Items[RadioGroup1.ItemIndex])+'.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(RadioGroup1.Items[RadioGroup1.ItemIndex]) + '.rmf'; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); // Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); // RM1.ShowReport; RM1.PrintReport; end else - Application.MessageBox(PChar('ûҵļ'+fPrintFile),'ʾ',0); + Application.MessageBox(PChar('ûҵļ' + fPrintFile), 'ʾ', 0); end; procedure TfrmZdyAttachPB.ToolButton6Click(Sender: TObject); begin - Panel2.Left:=(self.Width-Panel2.Width) div 2; - Panel2.Top:=(self.Height-Panel2.Height) div 2 -100; - Panel2.Visible:=true; + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Top := (self.Height - Panel2.Height) div 2 - 100; + Panel2.Visible := true; end; end. -