From c4a251ad82fd7341cc44fc194e70b418190d8cbf Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 19 Jul 2025 11:39:53 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_GetDllForm.pas | 4 +- 打卷检验管理/U_MJManageNewFDNew.dfm | 453 +++++++++++++++++++++++++++- 打卷检验管理/U_MJManageNewFDNew.pas | 107 ++++++- 打卷检验管理/U_OrderInPut.dfm | 6 + 打卷检验管理/U_OrderInPut.pas | 18 +- 5 files changed, 565 insertions(+), 23 deletions(-) diff --git a/打卷检验管理/U_GetDllForm.pas b/打卷检验管理/U_GetDllForm.pas index d805430..962d2c4 100644 --- a/打卷检验管理/U_GetDllForm.pas +++ b/打卷检验管理/U_GetDllForm.pas @@ -111,7 +111,7 @@ begin //////////////////// ///////////////////// //ģ鴰 - case FormID of + case FormID of 201: //ָʾ begin if frmProductOrderNewList = nil then @@ -141,7 +141,7 @@ begin begin caption := Trim(Title); fdatabase := trim(DataBase); - // fdatabase:=trim('ѯ'); + // fdatabase:=trim('ѯ'); FormStyle := mstyle; windowState := mstate; BorderStyle := mborderstyle; diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index e0d5204..09db393 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,7 +1,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 322 Top = 165 - Width = 1366 + Width = 1534 Height = 754 Caption = #25104#21697#26816#39564 Color = clBtnFace @@ -125,7 +125,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ScrollBox1: TScrollBox Left = 633 Top = 87 - Width = 717 + Width = 885 Height = 628 Align = alClient Color = clWhite @@ -972,6 +972,410 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False OnClick = SpeedButton13Click end + object Panel1: TPanel + Left = -12 + Top = 91 + Width = 413 + Height = 483 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object SpeedButton48: TSpeedButton + Left = 249 + Top = 10 + Width = 69 + Height = 72 + Caption = 'D' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton58: TSpeedButton + Left = 330 + Top = 10 + Width = 70 + Height = 72 + Caption = 'E' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton67: TSpeedButton + Left = 168 + Top = 87 + Width = 70 + Height = 72 + Caption = 'H' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton76: TSpeedButton + Left = 6 + Top = 10 + Width = 69 + Height = 72 + Caption = 'A' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton83: TSpeedButton + Left = 86 + Top = 10 + Width = 70 + Height = 72 + Caption = 'B' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton84: TSpeedButton + Left = 168 + Top = 10 + Width = 70 + Height = 72 + Caption = 'C' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton86: TSpeedButton + Left = 87 + Top = 397 + Width = 150 + Height = 72 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton87: TSpeedButton + Tag = 9 + Left = 252 + Top = 397 + Width = 146 + Height = 69 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -28 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton87Click + end + object SpeedButton21: TSpeedButton + Left = 249 + Top = 87 + Width = 69 + Height = 72 + Caption = 'I' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton30: TSpeedButton + Left = 330 + Top = 87 + Width = 70 + Height = 72 + Caption = 'J' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton39: TSpeedButton + Left = 86 + Top = 165 + Width = 70 + Height = 72 + Caption = 'L' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton44: TSpeedButton + Left = 86 + Top = 242 + Width = 69 + Height = 72 + Caption = 'Q' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton85: TSpeedButton + Left = 168 + Top = 165 + Width = 70 + Height = 72 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton88: TSpeedButton + Left = 249 + Top = 165 + Width = 70 + Height = 72 + Caption = 'N' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton89: TSpeedButton + Left = 330 + Top = 165 + Width = 69 + Height = 72 + Caption = 'O' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton90: TSpeedButton + Left = 168 + Top = 242 + Width = 70 + Height = 72 + Caption = 'R' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton91: TSpeedButton + Left = 249 + Top = 242 + Width = 70 + Height = 72 + Caption = 'S' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton92: TSpeedButton + Left = 5 + Top = 320 + Width = 70 + Height = 72 + Caption = 'U' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton93: TSpeedButton + Left = 86 + Top = 320 + Width = 70 + Height = 72 + Caption = 'V' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton94: TSpeedButton + Left = 168 + Top = 320 + Width = 70 + Height = 72 + Caption = 'W' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton95: TSpeedButton + Left = 330 + Top = 242 + Width = 69 + Height = 72 + Caption = 'T' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton96: TSpeedButton + Left = 250 + Top = 320 + Width = 70 + Height = 72 + Caption = 'X' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton97: TSpeedButton + Left = 5 + Top = 87 + Width = 70 + Height = 72 + Caption = 'F' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton98: TSpeedButton + Left = 5 + Top = 242 + Width = 70 + Height = 72 + Caption = 'P' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton99: TSpeedButton + Left = 5 + Top = 165 + Width = 69 + Height = 72 + Caption = 'K' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton100: TSpeedButton + Left = 5 + Top = 397 + Width = 70 + Height = 72 + Caption = 'Z' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnDblClick = SpeedButton1Click + end + object SpeedButton101: TSpeedButton + Left = 330 + Top = 320 + Width = 69 + Height = 72 + Caption = 'Y' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton102: TSpeedButton + Left = 86 + Top = 87 + Width = 70 + Height = 72 + Caption = 'G' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + end end object Panel2: TPanel Left = 428 @@ -1674,6 +2078,29 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 20 OnClick = Button7Click end + object ComboBox3: TComboBox + Left = 153 + Top = 247 + Width = 45 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -28 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 21 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end end object MovePanel1: TMovePanel Left = 634 @@ -2258,9 +2685,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object SpeedButton49: TSpeedButton Tag = 9 Left = 278 - Top = 90 + Top = 168 Width = 70 - Height = 237 + Height = 159 Caption = #38544#34255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -2270,11 +2697,25 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False OnClick = SpeedButton49Click end + object SpeedButton19: TSpeedButton + Left = 277 + Top = 86 + Width = 71 + Height = 72 + Caption = #33521#25991 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton19Click + end end object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 + Width = 1518 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2462,7 +2903,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1350 + Width = 1518 Height = 57 Align = alTop BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index bff2c56..278e61f 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -1,7 +1,7 @@ unit U_MJManageNewFDNew; -interface - +interface + uses Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, @@ -10,7 +10,20 @@ uses cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, - MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI; + MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI, + 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 TfrmMJManageNewFDNewSF = class(TForm) @@ -249,6 +262,37 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + SpeedButton19: TSpeedButton; + Panel1: TPanel; + SpeedButton48: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton83: TSpeedButton; + SpeedButton84: TSpeedButton; + SpeedButton86: TSpeedButton; + SpeedButton87: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton85: TSpeedButton; + SpeedButton88: TSpeedButton; + SpeedButton89: TSpeedButton; + SpeedButton90: TSpeedButton; + SpeedButton91: TSpeedButton; + SpeedButton92: TSpeedButton; + SpeedButton93: TSpeedButton; + SpeedButton94: TSpeedButton; + SpeedButton95: TSpeedButton; + SpeedButton96: TSpeedButton; + SpeedButton97: TSpeedButton; + SpeedButton98: TSpeedButton; + SpeedButton99: TSpeedButton; + SpeedButton100: TSpeedButton; + SpeedButton101: TSpeedButton; + SpeedButton102: TSpeedButton; + ComboBox3: TComboBox; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -307,6 +351,8 @@ type procedure Timer1Timer(Sender: TObject); procedure TBCDClick(Sender: TObject); procedure Edit5Click(Sender: TObject); + procedure SpeedButton19Click(Sender: TObject); + procedure SpeedButton87Click(Sender: TObject); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; @@ -427,11 +473,11 @@ begin Exit; end; - if FileExists(fPrintFile) then + if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - RM2.DefaultCopies := 1; + RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1); //RM2.ShowReport; RM2.printReport; end; @@ -1568,13 +1614,13 @@ var begin with ADOCmd do begin - close; + close; sql.Clear; sql.Add('SELECT ISNULL(sum(mjlen) , 0) as cc,A.PRTOrderQty FROM WFB_MJJY b '); SQL.Add('RIGHT join JYOrder_Sub A on A.Subid= b.subid '); sql.Add('where a.Subid=''' + Trim(FSubId) + ''' '); SQL.Add('group by PRTOrderQty '); -// ShowMessage(SQL.Text ); +// ShowMessage(SQL.Text ); open; end; zc := strtofloatdef(Trim(ADOCmd.fieldbyname('cc').AsString), 0); @@ -1761,7 +1807,7 @@ var Txt, fImagePath: string; Moudle: THandle; Makebar: TMakebar; - Mixtext: TMixtext; + Mixtext: TMixtext; begin with ADOQueryPrint do @@ -2243,6 +2289,18 @@ begin end; end; end; + Panel1.Visible := false; + with Panel1 do + begin + for i := 0 to ControlCount - 1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); + + end; + end; + end; end; procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); @@ -2467,16 +2525,16 @@ begin FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat; FJC := ADOTmp.fieldbyname('jiachang').AsFloat; - FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0); + FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0); fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString); fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString); - if FDC <> 0 then + if FDC <> 0 then begin Edit12.Visible := True; Label51.Visible := True; Edit12.Text := ''; end - else + else begin Edit12.Visible := False; Label51.Visible := False; @@ -2504,7 +2562,7 @@ begin Exit; end; baoid.Text := FBaoID; - Edit3.Text := ''; + Edit3.Text := ''; Edit4.Text := ''; MJStr4.Text := Trim(ADOTmp.fieldbyname('PRTgh').AsString); end @@ -2580,6 +2638,18 @@ begin end; end; end; + Panel1.Visible := false; + with Panel1 do + begin + for i := 0 to ControlCount - 1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); + + end; + end; + end; end; procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject); @@ -2895,7 +2965,7 @@ begin begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - RM2.DefaultCopies := 1; + RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1); //RM2.ShowReport; RM2.printReport; end; @@ -2995,5 +3065,16 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.SpeedButton19Click(Sender: TObject); +begin + Panel3.Visible := False; + Panel1.Visible := True; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton87Click(Sender: TObject); +begin + Panel1.Visible := False; +end; + end. diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index fef9dab..07f21cb 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1849,6 +1849,12 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column8: TcxGridDBColumn + Caption = #23458#25143#32568#21495 + DataBinding.FieldName = 'KHGH' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 7569601..20c27e2 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -1,6 +1,6 @@ unit U_OrderInPut; -interface +interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, @@ -12,7 +12,20 @@ uses cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview, - RM_DsgGridReport, RM_e_Graphic, RM_e_bmp; + RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, 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 TfrmOrderInPut = class(TForm) @@ -185,6 +198,7 @@ type Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject);