diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 0d96049..21489fc 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -72,16 +72,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 58 OnClick = TBManageClick end - object ToolButton6: TToolButton + object ToolButton15: TToolButton Left = 252 Top = 0 AutoSize = True + Caption = ' '#36716' '#21333' ' + ImageIndex = 47 + OnClick = ToolButton15Click + end + object ToolButton6: TToolButton + Left = 339 + Top = 0 + AutoSize = True Caption = #20986#24211 ImageIndex = 16 OnClick = ToolButton6Click end object ToolButton10: TToolButton - Left = 315 + Left = 402 Top = 0 AutoSize = True Caption = #25195#25551#20986#24211 @@ -89,7 +97,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton10Click end object ToolButton7: TToolButton - Left = 402 + Left = 489 Top = 0 AutoSize = True Caption = #25764#38144#20986#24211 @@ -97,14 +105,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton7Click end object ToolButton11: TToolButton - Left = 489 + Left = 576 Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 608 + Left = 695 Top = 0 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 @@ -112,7 +120,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 719 + Left = 806 Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 @@ -120,7 +128,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 830 + Left = 917 Top = 0 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 @@ -129,7 +137,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 953 + Left = 1040 Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 @@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 1064 + Left = 1151 Top = 0 AutoSize = True Caption = #25171#21360#26631#31614 @@ -244,13 +252,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolButton12: TToolButton Left = 809 Top = 30 + AutoSize = True Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 928 + Left = 896 Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 @@ -258,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 1015 + Left = 983 Top = 30 AutoSize = True Caption = #23548#20986 @@ -266,7 +275,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBExportClick end object TBClose: TToolButton - Left = 1078 + Left = 1046 Top = 30 AutoSize = True Caption = #20851#38381 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 090efc3..a15b54d 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -222,6 +222,7 @@ type ToolButton14: TToolButton; Label37: TLabel; ComboBox4: TComboBox; + ToolButton15: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -284,6 +285,7 @@ type procedure Button14Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure ToolButton14Click(Sender: TObject); + procedure ToolButton15Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -309,7 +311,7 @@ var implementation uses - U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX; + U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX, U_ZDZSDXZ; {$R *.dfm} procedure TfrmJYOrderCDOne.JSbaoNum(); @@ -1646,7 +1648,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Print_CKMDYDL_WL_cS '); + sql.add('exec P_Print_CKMDYDL_WL_cS '); sql.add('@DName=' + quotedstr(Trim(DCode))); Open; end; @@ -2479,5 +2481,58 @@ begin Order_Main.EnableControls; end; +procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + frmZDZSD := TfrmZDZSD.Create(Application); + with frmZDZSD do + begin + if ShowModal = 1 then + begin + with self.Order_Main do + begin + First; + while not Eof do + begin + if self.Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ת'))); + sql.Add(',' + quotedstr(trim(':' + trim(self.Order_Main.FieldByName('MJID').AsString) + ' ԭ:' + trim(self.Order_Main.FieldByName('subID').AsString) + 'ת֮:' + trim(frmZDZSD.Order_Main.FieldByName('subid').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + + sql.Add('Update WFB_MJJY Set mainid=''' + frmZDZSD.Order_Main.fieldbyname('mainid').asstring + ''' '); + sql.Add(', subid=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' '); + sql.Add(', APID=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' '); + sql.Add('where MJID=''' + Trim(self.Order_Main.fieldbyname('MJID').AsString) + ''''); + + ExecSQL; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDZSD.Free; + end; +end; + end. diff --git a/检验管理/U_ZDZSDXZ.dfm b/检验管理/U_ZDZSDXZ.dfm new file mode 100644 index 0000000..bad0892 --- /dev/null +++ b/检验管理/U_ZDZSDXZ.dfm @@ -0,0 +1,405 @@ +object frmZDZSD: TfrmZDZSD + Left = 399 + Top = 293 + Width = 1305 + Height = 675 + Caption = #36716#21333#25351#31034#21333#36873#25321 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1289 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1289 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 18 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 311 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 483 + Top = 15 + Width = 65 + Height = 12 + Caption = #23458#25143#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 518 + Top = 123 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 207 + Top = 83 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 517 + Top = 147 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 670 + Top = 123 + Width = 52 + Height = 12 + Caption = #22383#24067#25209#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 670 + Top = 147 + Width = 52 + Height = 12 + Caption = #21697#21517#20013#25991 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 160 + Top = 16 + Width = 3 + Height = 13 + Caption = '-' + end + object BegDate: TDateTimePicker + Left = 71 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 167 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 352 + Top = 11 + Width = 77 + Height = 21 + TabOrder = 2 + OnChange = OrderNoChange + end + object KHorderNo: TEdit + Tag = 2 + Left = 547 + Top = 11 + Width = 76 + Height = 21 + TabOrder = 3 + OnChange = KHorderNoChange + end + object PBFactory: TEdit + Tag = 2 + Left = 561 + Top = 119 + Width = 76 + Height = 21 + TabOrder = 5 + end + object ConNo: TEdit + Tag = 2 + Left = 248 + Top = 79 + Width = 77 + Height = 21 + TabOrder = 4 + end + object RanFactory: TEdit + Tag = 2 + Left = 561 + Top = 143 + Width = 76 + Height = 21 + TabOrder = 7 + end + object Orddefstr5: TEdit + Tag = 2 + Left = 725 + Top = 119 + Width = 76 + Height = 21 + TabOrder = 6 + end + object PRTCodeName: TEdit + Tag = 2 + Left = 725 + Top = 143 + Width = 76 + Height = 21 + TabOrder = 8 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 72 + Width = 1289 + Height = 564 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object Tv1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #23458#25143#35746#21333#21495 + DataBinding.FieldName = 'KHorderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object Tv1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column4: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21697#21517#20013#25991 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column7: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ganghao' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 496 + Top = 184 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 404 + Top = 276 + end +end diff --git a/检验管理/U_ZDZSDXZ.pas b/检验管理/U_ZDZSDXZ.pas new file mode 100644 index 0000000..1a8538f --- /dev/null +++ b/检验管理/U_ZDZSDXZ.pas @@ -0,0 +1,172 @@ +unit U_ZDZSDXZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxGraphics, cxControls, cxLookAndFeels, + cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, + cxEdit, cxNavigator, DB, cxDBData, cxCheckBox, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, DBClient, ADODB, cxGridLevel, cxClasses, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, 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 + TfrmZDZSD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + KHorderNo: TEdit; + PBFactory: TEdit; + ConNo: TEdit; + RanFactory: TEdit; + Orddefstr5: TEdit; + PRTCodeName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + Tv1Column8: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure KHorderNoChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmZDZSD: TfrmZDZSD; + +implementation + +uses + U_DataLink, U_Fun; +{$R *.dfm} + +procedure TfrmZDZSD.InitGrid(); +var + strwhere: string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered := False; + sql.Clear; + sql.add('select A.*,B.* from JYOrder_Main A '); + sql.add('inner join JYOrder_Sub B on A.mainid=B.mainid'); + sql.Add('where A.FillTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' '); + sql.Add('and A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZDZSD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZDZSD.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; +end; + +procedure TfrmZDZSD.FormDestroy(Sender: TObject); +begin + frmZDZSD := nil; +end; + +procedure TfrmZDZSD.FormShow(Sender: TObject); +begin + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmZDZSD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZDZSD.OrderNoChange(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 TfrmZDZSD.KHorderNoChange(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 TfrmZDZSD.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmZDZSD.ToolButton3Click(Sender: TObject); +begin + ModalResult := 1; +end; + +end. +