11.11cxz
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
e3ac070cc8
commit
674ef6ea9f
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\凌志超开发代码\项目代码\宇尚\合同管理(ContractManagement.dll)\testDll.exe
|
||||
HostApplication=D:\Project\D7gmYushang\合同管理(ContractManagement.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = testDll.exe ProductPrice.dll
|
||||
PROJECTS = testDll.exe ContractManagement.dll
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
|
@ -17,7 +17,7 @@ default: $(PROJECTS)
|
|||
testDll.exe: testDll.dpr
|
||||
$(DCC)
|
||||
|
||||
ProductPrice.dll: ProductPrice.dpr
|
||||
ContractManagement.dll: ContractManagement.dpr
|
||||
$(DCC)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmContractListNX: TfrmContractListNX
|
||||
Left = 115
|
||||
Top = 42
|
||||
Left = 534
|
||||
Top = 260
|
||||
Width = 1382
|
||||
Height = 754
|
||||
Caption = #20869#38144#21512#21516
|
||||
|
|
@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -149,20 +149,20 @@ object frmContractListNX: TfrmContractListNX
|
|||
AutoSize = True
|
||||
Caption = #25764#38144#23457#26680
|
||||
ImageIndex = 52
|
||||
Wrap = True
|
||||
Visible = False
|
||||
OnClick = TnochkClick
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 0
|
||||
Top = 30
|
||||
Left = 1014
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #35843#24230#23457#26680
|
||||
ImageIndex = 31
|
||||
Wrap = True
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 87
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #35843#24230#25764#38144#23457#26680
|
||||
|
|
@ -170,13 +170,21 @@ object frmContractListNX: TfrmContractListNX
|
|||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 198
|
||||
Left = 111
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #35843#24230#22791#27880
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 198
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #23376#34920#22791#27880
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton10Click
|
||||
end
|
||||
object btnSXChk: TToolButton
|
||||
Left = 285
|
||||
Top = 30
|
||||
|
|
@ -245,7 +253,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 177
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 278
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
|
|
@ -449,7 +457,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 71
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -779,7 +787,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 133
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -797,13 +805,13 @@ object frmContractListNX: TfrmContractListNX
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectRight = 1374
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 707
|
||||
Width = 1366
|
||||
Top = 715
|
||||
Width = 1374
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
|
|
@ -811,8 +819,8 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 455
|
||||
Width = 1366
|
||||
Height = 252
|
||||
Width = 1374
|
||||
Height = 260
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object TV2: TcxGridDBTableView
|
||||
|
|
@ -1087,7 +1095,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
object cxTabControl2: TcxTabControl
|
||||
Left = 0
|
||||
Top = 155
|
||||
Width = 1366
|
||||
Width = 1374
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 7
|
||||
|
|
@ -1104,7 +1112,7 @@ object frmContractListNX: TfrmContractListNX
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl2Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectRight = 1374
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object Panel2: TPanel
|
||||
|
|
@ -1461,6 +1469,88 @@ object frmContractListNX: TfrmContractListNX
|
|||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel
|
||||
Left = 548
|
||||
Top = 234
|
||||
Width = 225
|
||||
Height = 191
|
||||
Color = clSkyBlue
|
||||
TabOrder = 11
|
||||
Visible = False
|
||||
object Label21: TLabel
|
||||
Left = 24
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#32534#21495
|
||||
end
|
||||
object Label23: TLabel
|
||||
Left = 24
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
end
|
||||
object Label24: TLabel
|
||||
Left = 24
|
||||
Top = 58
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Button12: TButton
|
||||
Left = 32
|
||||
Top = 156
|
||||
Width = 60
|
||||
Height = 22
|
||||
Caption = #30830#23450
|
||||
TabOrder = 0
|
||||
OnClick = Button12Click
|
||||
end
|
||||
object Button13: TButton
|
||||
Left = 128
|
||||
Top = 156
|
||||
Width = 60
|
||||
Height = 21
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button13Click
|
||||
end
|
||||
object mmo1: TMemo
|
||||
Left = 20
|
||||
Top = 76
|
||||
Width = 185
|
||||
Height = 65
|
||||
TabOrder = 2
|
||||
end
|
||||
object Edit7: TEdit
|
||||
Tag = 2
|
||||
Left = 77
|
||||
Top = 7
|
||||
Width = 124
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object Edit8: TEdit
|
||||
Tag = 2
|
||||
Left = 77
|
||||
Top = 30
|
||||
Width = 124
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object Edit9: TEdit
|
||||
Tag = 2
|
||||
Left = 77
|
||||
Top = 53
|
||||
Width = 124
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 5
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxBarBuiltInMenu;
|
||||
dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmContractListNX = class(TForm)
|
||||
|
|
@ -176,6 +189,17 @@ type
|
|||
TV2Column2: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
ToolButton10: TToolButton;
|
||||
Panel6: TPanel;
|
||||
Label21: TLabel;
|
||||
Button12: TButton;
|
||||
Button13: TButton;
|
||||
mmo1: TMemo;
|
||||
Edit7: TEdit;
|
||||
Label23: TLabel;
|
||||
Edit8: TEdit;
|
||||
Label24: TLabel;
|
||||
Edit9: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -225,6 +249,9 @@ type
|
|||
procedure Button11Click(Sender: TObject);
|
||||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure ComboBox4Change(Sender: TObject);
|
||||
procedure ToolButton10Click(Sender: TObject);
|
||||
procedure Button12Click(Sender: TObject);
|
||||
procedure Button13Click(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure InitForm();
|
||||
|
|
@ -288,6 +315,7 @@ begin
|
|||
ToolButton7.Visible := False;
|
||||
ToolButton8.Visible := False;
|
||||
ToolButton9.Visible := False;
|
||||
ToolButton10.Visible := False;
|
||||
if Trim(canshu1) = '¼Èë' then
|
||||
begin
|
||||
ToolButton2.Visible := true;
|
||||
|
|
@ -411,7 +439,7 @@ begin
|
|||
if Trim(canshu1) = 'ÏúÊÛÉóºË' then
|
||||
begin
|
||||
TBAdd.Visible := true;
|
||||
|
||||
ToolButton10.Visible := True;
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
|
|
@ -445,6 +473,7 @@ begin
|
|||
begin
|
||||
TBAdd.Visible := true;
|
||||
ToolButton6.Visible := True;
|
||||
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
|
|
@ -1616,5 +1645,54 @@ begin
|
|||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmContractListNX.ToolButton10Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Sub.IsEmpty then
|
||||
exit;
|
||||
edit7.Text := trim(CDS_Sub.FieldByName('SCSCode').AsString);
|
||||
edit8.Text := trim(CDS_Sub.FieldByName('SCSName').AsString);
|
||||
edit9.Text := trim(CDS_Sub.FieldByName('SCSColor').AsString);
|
||||
mmo1.Text := trim(CDS_Sub.FieldByName('SCSNote').AsString);
|
||||
|
||||
Panel6.Visible := True;
|
||||
end;
|
||||
|
||||
procedure TfrmContractListNX.Button12Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Sub.IsEmpty then
|
||||
exit;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update SalesContract_sub SET ');
|
||||
sql.Add('SCSNote=' + quotedstr(trim(Mmo1.Text)));
|
||||
sql.Add('where SubId=' + quotedstr(trim(CDS_Sub.fieldbyname('SubId').AsString)));
|
||||
|
||||
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(CDS_Sub.FieldByName('SubId').AsString))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
execsql;
|
||||
end;
|
||||
application.MessageBox('备注成功！', '提示信息');
|
||||
TBRafresh.Click;
|
||||
except
|
||||
application.MessageBox('备注失败！', '提示信息', 0);
|
||||
end;
|
||||
Panel6.Visible := False;
|
||||
end;
|
||||
|
||||
procedure TfrmContractListNX.Button13Click(Sender: TObject);
|
||||
begin
|
||||
Panel6.Visible := False;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -4,7 +4,21 @@ interface
|
|||
|
||||
uses
|
||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
|
||||
var
|
||||
DConString:String; {全局连接字符串}
|
||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -68,20 +68,22 @@ begin
|
|||
SetLength(dtbase, 255);
|
||||
SetLength(user, 255);
|
||||
SetLength(pswd, 255);
|
||||
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '47.103.192.8,7781';
|
||||
// server := '.';
|
||||
dtbase := 'yushangdata';
|
||||
user := 'yushangsa';
|
||||
// user := 'sa';
|
||||
pswd := 'rightsoft@7112';
|
||||
// pswd := 'rightsoft';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
DConString := DataBaseStr;
|
||||
// DName:='³ÂÇí';
|
||||
// DParameters1:='高权限';
|
||||
DParameters1:='高权限';
|
||||
//DParameters3:='1';
|
||||
end
|
||||
else
|
||||
begin
|
||||
DConString := DataBaseStr;
|
||||
end;
|
||||
|
||||
if not ConnData() then
|
||||
begin
|
||||
result := 0;
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = testDll.exe ProductPrice.dll
|
||||
PROJECTS = testDll.exe YPGL.dll
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
|
@ -17,7 +17,7 @@ default: $(PROJECTS)
|
|||
testDll.exe: testDll.dpr
|
||||
$(DCC)
|
||||
|
||||
ProductPrice.dll: ProductPrice.dpr
|
||||
YPGL.dll: YPGL.dpr
|
||||
$(DCC)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmCPManage: TfrmCPManage
|
||||
Left = 160
|
||||
Top = 146
|
||||
Left = 444
|
||||
Top = 159
|
||||
Width = 1504
|
||||
Height = 664
|
||||
Caption = #20135#21697#26723#26696
|
||||
|
|
@ -20,7 +20,7 @@ object frmCPManage: TfrmCPManage
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1488
|
||||
Width = 1496
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -144,7 +144,8 @@ object frmCPManage: TfrmCPManage
|
|||
Text = #26679#21697#26631#31614
|
||||
Items.Strings = (
|
||||
#26679#21697#26631#31614
|
||||
#26679#21697#26631#31614'1')
|
||||
#26679#21697#26631#31614'1'
|
||||
#26679#24067#26631#31614)
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 819
|
||||
|
|
@ -175,14 +176,14 @@ object frmCPManage: TfrmCPManage
|
|||
Left = 220
|
||||
Top = 105
|
||||
Width = 8
|
||||
Height = 520
|
||||
Height = 528
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
Control = Panel5
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1488
|
||||
Width = 1496
|
||||
Height = 74
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -428,7 +429,7 @@ object frmCPManage: TfrmCPManage
|
|||
Left = 0
|
||||
Top = 105
|
||||
Width = 220
|
||||
Height = 520
|
||||
Height = 528
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -437,7 +438,7 @@ object frmCPManage: TfrmCPManage
|
|||
Left = 2
|
||||
Top = 2
|
||||
Width = 216
|
||||
Height = 516
|
||||
Height = 524
|
||||
Align = alClient
|
||||
Bands = <
|
||||
item
|
||||
|
|
@ -470,8 +471,8 @@ object frmCPManage: TfrmCPManage
|
|||
object Panel3: TPanel
|
||||
Left = 228
|
||||
Top = 105
|
||||
Width = 1260
|
||||
Height = 520
|
||||
Width = 1268
|
||||
Height = 528
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -480,8 +481,8 @@ object frmCPManage: TfrmCPManage
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1256
|
||||
Height = 321
|
||||
Width = 1264
|
||||
Height = 329
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
|
|
@ -740,8 +741,8 @@ object frmCPManage: TfrmCPManage
|
|||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 2
|
||||
Top = 323
|
||||
Width = 1256
|
||||
Top = 331
|
||||
Width = 1264
|
||||
Height = 195
|
||||
Align = alBottom
|
||||
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
|
||||
|
|
@ -749,7 +750,7 @@ object frmCPManage: TfrmCPManage
|
|||
object ScrollBox1: TScrollBox
|
||||
Left = 2
|
||||
Top = 14
|
||||
Width = 1252
|
||||
Width = 1260
|
||||
Height = 179
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
|
|
|
|||
|
|
@ -13,7 +13,20 @@ uses
|
|||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, jpeg, U_SLT, ComObj, Menus,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
|
||||
cxTextEdit;
|
||||
cxTextEdit, 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
|
||||
|
|
@ -525,6 +538,11 @@ begin
|
|||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
if trim(ComboBox1.Text) = 'Ñù²¼±êÇ©' then
|
||||
begin
|
||||
Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString);
|
||||
end
|
||||
else
|
||||
Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
|
||||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
|
|
@ -861,6 +879,11 @@ begin
|
|||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
if trim(ComboBox1.Text) = 'Ñù²¼±êÇ©' then
|
||||
begin
|
||||
Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString);
|
||||
end
|
||||
else
|
||||
Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
|
||||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@ object frmCPType: TfrmCPType
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 981
|
||||
Width = 989
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -77,15 +77,15 @@ object frmCPType: TfrmCPType
|
|||
Left = 0
|
||||
Top = 33
|
||||
Width = 249
|
||||
Height = 497
|
||||
Height = 504
|
||||
Align = alLeft
|
||||
Bands = <
|
||||
item
|
||||
end>
|
||||
BufferedPaint = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.ParentField = 'CPParent'
|
||||
DataController.KeyField = 'CPID'
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OptionsBehavior.ExpandOnDblClick = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.CellAutoHeight = True
|
||||
|
|
@ -99,9 +99,11 @@ object frmCPType: TfrmCPType
|
|||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
DataBinding.FieldName = 'CPName'
|
||||
Width = 210
|
||||
Position.ColIndex = 1
|
||||
Position.ColIndex = 0
|
||||
Position.RowIndex = 0
|
||||
Position.BandIndex = 0
|
||||
Summary.FooterSummaryItems = <>
|
||||
Summary.GroupFooterSummaryItems = <>
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
|
|
|
|||
|
|
@ -6,7 +6,21 @@ uses
|
|||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
|
||||
StdCtrls, ExtCtrls, DBClient;
|
||||
StdCtrls, ExtCtrls, DBClient, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxTLdxBarBuiltInMenu, 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;
|
||||
|
||||
type
|
||||
TfrmCPType = class(TForm)
|
||||
|
|
@ -55,7 +69,7 @@ var
|
|||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun;
|
||||
U_DataLink, U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
|
|
|||
|
|
@ -4,7 +4,21 @@ interface
|
|||
|
||||
uses
|
||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
|
||||
var
|
||||
DConString:String; {全局连接字符串}
|
||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -65,17 +65,19 @@ begin
|
|||
SetLength(user, 255);
|
||||
SetLength(pswd, 255);
|
||||
|
||||
if Trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '47.103.192.8,7781';
|
||||
// server := '.';
|
||||
dtbase := 'yushangdata';
|
||||
user := 'yushangsa';
|
||||
// user := 'sa';
|
||||
pswd := 'rightsoft@7112';
|
||||
// pswd := 'rightsoft';
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
end
|
||||
else
|
||||
begin
|
||||
DConString := DataBaseStr;
|
||||
// DParameters1:='高权限';
|
||||
// DName := '王俊佑';
|
||||
end;
|
||||
|
||||
if not ConnData() then
|
||||
begin
|
||||
result := 0;
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\凌志超开发代码\项目代码\宇尚\样品(YPGL.dll)\testDll.exe
|
||||
HostApplication=D:\Project\D7gmYushang\ÑùÆ·(YPGL.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -11,15 +11,15 @@ uses
|
|||
U_iniParam in 'U_iniParam.pas',
|
||||
U_CPType in 'U_CPType.pas' {frmCPType},
|
||||
U_CPAddPN in 'U_CPAddPN.pas' {frmCPAddPN},
|
||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
||||
U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
||||
U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
||||
U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
||||
U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
||||
U_ZDYHelp in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
||||
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
|
||||
U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas',
|
||||
U_CPManage in 'U_CPManage.pas' {frmCPManage},
|
||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
||||
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
|
||||
U_SLT in 'U_SLT.pas' {frmSLT: TFrame},
|
||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS} ;
|
||||
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user