Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-01-15 21:14:54 +08:00
parent f786431198
commit f15e9f0c85
7 changed files with 132 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
T05贸易门市管理/U_DataLink.pas
View File

@ -7,7 +7,7 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, dxCore, System.ImageList, U_BaseDataLink, dxCore,
cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer, cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer,
cxEdit, dxSkinsForm; cxEdit, dxSkinsForm, dxSkinsCore, dxSkinsDefaultPainters;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

119
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -67,7 +67,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitTop = 254
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -108,8 +107,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitTop = 284
ExplicitHeight = 581
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -118,7 +115,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 579
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -126,7 +122,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 565 Height = 565
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 577
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -329,7 +324,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 579
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -367,7 +361,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687 Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1 TabOrder = 1
ExplicitHeight = 536
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 23 Top = 23
@ -375,7 +368,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 499 Height = 499
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 511
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -448,6 +440,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 722 Left = 722
Top = 13 Top = 13
@ -514,15 +507,15 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object TMMNo: TcxTextEdit object TMMNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 7 Top = 9
TabOrder = 0 TabOrder = 0
Width = 150 Width = 200
end end
object TMMDate: TDateTimePicker object TMMDate: TDateTimePicker
Tag = 2 Tag = 2
Left = 806 Left = 806
Top = 9 Top = 9
Width = 150 Width = 200
Height = 29 Height = 29
BevelInner = bvNone BevelInner = bvNone
Date = 40916.000000000000000000 Date = 40916.000000000000000000
@ -534,7 +527,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 2 Tag = 2
Left = 461 Left = 461
Top = 9 Top = 9
Width = 150 Width = 200
Height = 29 Height = 29
BevelInner = bvNone BevelInner = bvNone
Date = 40916.000000000000000000 Date = 40916.000000000000000000
@ -547,66 +540,94 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 2 Tag = 2
Left = 112 Left = 112
Top = 126 Top = 126
Width = 842 Width = 894
Height = 58 Height = 58
Hint = 'OrdNote/'#22791#27880 Hint = 'OrdNote/'#22791#27880
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 3 TabOrder = 3
OnDblClick = PackNoteDblClick OnDblClick = PackNoteDblClick
end end
object CustName: TBtnEditC
Tag = 2
Left = 461
Top = 44
Width = 150
Height = 30
ReadOnly = True
TabOrder = 4
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object OurCoName: TBtnEditC
Tag = 2
Left = 114
Top = 45
Width = 150
Height = 30
ReadOnly = True
TabOrder = 5
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object CONTACT: TBtnEditC
Tag = 2
Left = 461
Top = 82
Width = 493
Height = 30
TabOrder = 6
end
object OrdType: TComboBox object OrdType: TComboBox
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 83 Top = 83
Width = 100 Width = 200
Height = 29 Height = 29
Style = csDropDownList Style = csDropDownList
Ctl3D = False Ctl3D = False
Enabled = False Enabled = False
ItemIndex = 0 ItemIndex = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 7 TabOrder = 4
Text = #27491#24120#21333 Text = #27491#24120#21333
Items.Strings = ( Items.Strings = (
#27491#24120#21333) #27491#24120#21333)
end end
object ShippingAddress: TBtnEditC object OurCoName: TcxButtonEdit
Tag = 2
Left = 112
Top = 44
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
OnDblClick = OurCoNameDblClick
Width = 200
end
object CustName: TcxButtonEdit
Tag = 2
Left = 461
Top = 44
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 6
OnDblClick = OurCoNameDblClick
Width = 200
end
object ShippingAddress: TcxButtonEdit
Tag = 2 Tag = 2
Left = 806 Left = 806
Top = 44 Top = 45
Width = 150 Hint = 'ShippingAddress/'#21457#36135#22320#22336
Height = 30 Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShippingAddressPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
OnDblClick = OurCoNameDblClick
Width = 200
end
object CONTACT: TcxButtonEdit
Tag = 2
Left = 461
Top = 83
Hint = 'CONTACT/'#32852#31995#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShippingAddressPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 8 TabOrder = 8
OnDblClick = OurCoNameDblClick
Width = 545
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

141
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -12,10 +12,10 @@ uses
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus, RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxDateRanges, dxBarBuiltInMenu, cxPC, dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
IdFTP, ShellAPI, dxScrollbarAnnotations, cxImageList; dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmTradeMarketInPut = class(TfrmBaseInput) TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -87,20 +87,18 @@ type
TMMDate: TDateTimePicker; TMMDate: TDateTimePicker;
DLYDate: TDateTimePicker; DLYDate: TDateTimePicker;
OrdNote: TMemo; OrdNote: TMemo;
CustName: TBtnEditC;
OurCoName: TBtnEditC;
CONTACT: TBtnEditC;
OrdType: TComboBox; OrdType: TComboBox;
ShippingAddress: TBtnEditC; OurCoName: TcxButtonEdit;
CustName: TcxButtonEdit;
ShippingAddress: TcxButtonEdit;
CONTACT: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject); procedure ScrollBox1Click(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject); procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
procedure HYTTBtnUpClick(Sender: TObject); procedure HYTTBtnUpClick(Sender: TObject);
@ -109,11 +107,7 @@ type
procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject); procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxDBImage1DblClick(Sender: TObject); procedure cxDBImage1DblClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnDnClick(Sender: TObject);
procedure TechnicsBtnUpClick(Sender: TObject); procedure TechnicsBtnUpClick(Sender: TObject);
procedure TechnicsBtnDnClick(Sender: TObject); procedure TechnicsBtnDnClick(Sender: TObject);
procedure PackNoteDblClick(Sender: TObject); procedure PackNoteDblClick(Sender: TObject);
@ -122,6 +116,10 @@ type
procedure QtyMXKeyPress(Sender: TObject; var Key: Char); procedure QtyMXKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure OurCoNameDblClick(Sender: TObject);
procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -224,8 +222,8 @@ begin
SCSHData(ADOTemp, ScrollBox1, 5); SCSHData(ADOTemp, ScrollBox1, 5);
SCSHData(ADOTemp, ScrollBox1, 9); SCSHData(ADOTemp, ScrollBox1, 9);
SCSHData(ADOTemp, ScrollBox1, 7); SCSHData(ADOTemp, ScrollBox1, 7);
OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString); OurCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
CustName.TxtCode := Trim(ADOTemp.FieldByName('CustNo').AsString); CustName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('CustNo').AsString);
with ADOTemp do with ADOTemp do
begin begin
Close; Close;
@ -345,8 +343,8 @@ begin
end; end;
RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2); RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2);
FieldByName('TMMID').Value := Trim(maxno); FieldByName('TMMID').Value := Trim(maxno);
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('CustNo').Value := Trim(CustName.TxtCode); FieldByName('CustNo').Value := Trim(CustName.Properties.LookupItems.Text);
Post; Post;
end; end;
@ -421,7 +419,6 @@ begin
// FieldByName('TPFId').Value := Trim(FTMMID); // FieldByName('TPFId').Value := Trim(FTMMID);
// Post; // Post;
// end; // end;
///////////////////// 保存加工厂 /////////////////////////// ///////////////////// 保存加工厂 ///////////////////////////
/// ///
/////////////// 保存打卷设置 /////////////// /////////////// 保存打卷设置 ///////////////
@ -444,7 +441,6 @@ begin
// FieldByName('RuleID').Value := Trim(FTMMID); // FieldByName('RuleID').Value := Trim(FTMMID);
// Post; // Post;
// end; // end;
/////////////// 保存打卷设置 /////////////// /////////////// 保存打卷设置 ///////////////
with ADOCmd do with ADOCmd do
@ -737,8 +733,8 @@ end;
procedure TfrmTradeMarketInPut.TechnicsBtnDnClick(Sender: TObject); procedure TfrmTradeMarketInPut.TechnicsBtnDnClick(Sender: TObject);
begin begin
TBtnEditC(Sender).Text := ''; TcxButtonEdit(Sender).Text := '';
TBtnEditC(Sender).TxtCode := ''; TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end; end;
procedure TfrmTradeMarketInPut.TechnicsBtnUpClick(Sender: TObject); procedure TfrmTradeMarketInPut.TechnicsBtnUpClick(Sender: TObject);
@ -765,7 +761,7 @@ begin
end; end;
procedure TfrmTradeMarketInPut.CustNameBtnUpClick(Sender: TObject); procedure TfrmTradeMarketInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);
@ -774,7 +770,7 @@ begin
FCoType := '客户'; FCoType := '客户';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.CustName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end; end;
end; end;
@ -784,12 +780,6 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketInPut.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject); procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
begin begin
if TcxDBImage(Sender).Picture.Height = 0 then if TcxDBImage(Sender).Picture.Height = 0 then
@ -839,6 +829,31 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end; end;
procedure TfrmTradeMarketInPut.OurCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeMarketInPut.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeMarketInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTradeMarketInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
mvalues: string; mvalues: string;
@ -963,12 +978,17 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketInPut.YCLFactoryBtnUpClick(Sender: TObject); procedure TfrmTradeMarketInPut.ScrollBox1Click(Sender: TObject);
begin
TMMDate.SetFocus;
end;
procedure TfrmTradeMarketInPut.ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
begin begin
fsj := Trim(TcxTextEdit(Sender).Hint); fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj); FWZ := Pos('/', fsj);
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -978,7 +998,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
@ -986,37 +1006,6 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketInPut.ScrollBox1Click(Sender: TObject);
begin
TMMDate.SetFocus;
end;
procedure TfrmTradeMarketInPut.OurCoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketInPut.OurCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeMarketInPut.PackNoteDblClick(Sender: TObject); procedure TfrmTradeMarketInPut.PackNoteDblClick(Sender: TObject);
var var
fsj: string; fsj: string;
@ -1121,30 +1110,6 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketInPut.SYRNameBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
fnote := True;
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradeMarketInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTradeMarketInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
inherited; inherited;

2
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -232,7 +232,9 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Width = 1536 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = False
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2

2
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations,
cxProgressBar, FrameDateSel; cxProgressBar, FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeMarketList = class(TfrmBaseList)

6
T05贸易门市管理/U_testdll.dfm
View File

@ -30,10 +30,9 @@ object Form1: TForm1
object Edit1: TcxTextEdit object Edit1: TcxTextEdit
Left = 0 Left = 0
Top = 0 Top = 0
Width = 81
Height = 22
TabOrder = 0 TabOrder = 0
Text = '1' Text = '1'
Width = 81
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 81 Left = 81
@ -52,9 +51,8 @@ object Form1: TForm1
object DllName: TcxTextEdit object DllName: TcxTextEdit
Left = 217 Left = 217
Top = 0 Top = 0
Width = 135
Height = 22
TabOrder = 1 TabOrder = 1
Width = 135
end end
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu

5
T05贸易门市管理/U_testdll.pas
View File

@ -5,7 +5,9 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB, Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB,
System.ImageList; System.ImageList, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxTextEdit;
type type
TForm1 = class(TForm) TForm1 = class(TForm)
@ -52,7 +54,6 @@ var
begin begin
//静态加载 //静态加载
//newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
//动态加载 //动态加载
// showMessage(intTostr(application.Handle)); // showMessage(intTostr(application.Handle));
Th := LoadLibrary('TradeMarket.dll'); Th := LoadLibrary('TradeMarket.dll');