~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
ee8bcc930c
commit
c4a251ad82
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user