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-07-21 17:21:17 +08:00
parent a5b135ceb3
commit e7b3893290
25 changed files with 138 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A09财务通用管理/Financial.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10myChangyou\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

3
A09财务通用管理/U_CollectInput.pas
View File

@ -88,7 +88,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
FFFID, FAuthority: string; FFFID, FAuthority, canshu4: string;
CopyFlag: Integer; CopyFlag: Integer;
end; end;
@ -569,6 +569,7 @@ begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('Store').Value := Trim(canshu4);
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text); FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text); FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text); FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);

11
A09财务通用管理/U_CollectList.dfm
View File

@ -291,12 +291,11 @@ inherited frmCollectList: TfrmCollectList
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1621 ExplicitWidth = 1621
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

8
A09财务通用管理/U_CollectList.pas
View File

@ -119,7 +119,7 @@ type
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
public public
FAuthority: string; FAuthority, canshu4: string;
end; end;
implementation implementation
@ -210,7 +210,7 @@ begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and isnull(A.Store,'''')=' + QuotedStr(Trim(canshu4));
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end; end;
@ -297,6 +297,7 @@ end;
procedure TfrmCollectList.FormShow(Sender: TObject); procedure TfrmCollectList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
canshu4 := Trim(Self.fParameters4);
ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí'); ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30; frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30;
@ -492,6 +493,7 @@ begin
with frmCollectInput do with frmCollectInput do
begin begin
FFFID := ''; FFFID := '';
canshu4 := Self.canshu4;
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -529,6 +531,7 @@ begin
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
CopyFlag := 99; CopyFlag := 99;
canshu4 := Self.canshu4;
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -677,6 +680,7 @@ begin
frmCollectInput := TfrmCollectInput.Create(Application); frmCollectInput := TfrmCollectInput.Create(Application);
with frmCollectInput do with frmCollectInput do
begin begin
canshu4 := Self.canshu4;
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then

11
A09财务通用管理/U_CustStatement.dfm
View File

@ -139,12 +139,11 @@ inherited frmCustStatement: TfrmCustStatement
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1432 ExplicitWidth = 1432
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

3
A09财务通用管理/U_CustStatement.pas
View File

@ -67,7 +67,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FAuthority: string; FAuthority, canshu4: string;
procedure InitGrid(); procedure InitGrid();
public public
fmanage, FZKType: string; fmanage, FZKType: string;
@ -141,6 +141,7 @@ procedure TfrmCustStatement.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
FAuthority := Trim(Self.fParameters1); FAuthority := Trim(Self.fParameters1);
canshu4 := Trim(Self.fParameters4);
end; end;
procedure TfrmCustStatement.TBCloseClick(Sender: TObject); procedure TfrmCustStatement.TBCloseClick(Sender: TObject);

3
A09财务通用管理/U_ExpenseInput.pas
View File

@ -77,7 +77,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
FFFID: string; FFFID, canshu4: string;
end; end;
var var
@ -455,6 +455,7 @@ begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('Store').Value := Trim(canshu4);
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text); FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text); FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('OurBankID').Value := Trim(OurBankName.Properties.LookupItems.Text); FieldByName('OurBankID').Value := Trim(OurBankName.Properties.LookupItems.Text);

11
A09财务通用管理/U_ExpenseList.dfm
View File

@ -238,12 +238,11 @@ inherited frmExpenseList: TfrmExpenseList
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1621 ExplicitWidth = 1621
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

12
A09财务通用管理/U_ExpenseList.pas
View File

@ -95,11 +95,12 @@ type
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject); procedure OppCoNamePropertiesChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
public public
FAuthority: string; FAuthority, canshu4: string;
end; end;
implementation implementation
@ -161,6 +162,7 @@ begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and isnull(A.Store,'''')=' + QuotedStr(Trim(canshu4));
// showmessage(SqlStr); // showmessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
@ -189,6 +191,12 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmExpenseList.FormCreate(Sender: TObject);
begin
inherited;
canshu4 := Trim(Self.fParameters4);
end;
procedure TfrmExpenseList.TBCloseClick(Sender: TObject); procedure TfrmExpenseList.TBCloseClick(Sender: TObject);
begin begin
@ -438,6 +446,7 @@ begin
with frmExpenseInput do with frmExpenseInput do
begin begin
FFFID := ''; FFFID := '';
canshu4 := Self.canshu4;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -493,6 +502,7 @@ begin
frmExpenseInput := TfrmExpenseInput.Create(Application); frmExpenseInput := TfrmExpenseInput.Create(Application);
with frmExpenseInput do with frmExpenseInput do
begin begin
canshu4 := Self.canshu4;
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin

14
A09财务通用管理/U_FtyStatement.dfm
View File

@ -112,6 +112,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 20 Left = 20
Top = 51 Top = 51
@ -144,14 +145,13 @@ inherited frmFtyStatement: TfrmFtyStatement
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1243 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

11
A09财务通用管理/U_GetDllForm.pas
View File

@ -72,17 +72,14 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
// server := '127.0.0.1';
// dtbase := 'xushangData';
// user := 'sa';
// pswd := 'rightsoft';
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
dtbase := 'changyoudata'; dtbase := 'gemeiData';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '管理'; Parameters1 := '管理';
Parameters1 := '低权限'; // Parameters1 := '低权限';
// Parameters1 := 'Íê³É'; // Parameters1 := 'Íê³É';
// Parameters1 := '¼Èë'; // Parameters1 := '¼Èë';
DCode := '005'; DCode := '005';

14
A09财务通用管理/U_InvoiceInList.dfm
View File

@ -145,6 +145,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 27 Left = 27
Top = 47 Top = 47
@ -233,14 +234,13 @@ inherited frmInvoiceInList: TfrmInvoiceInList
TabOrder = 5 TabOrder = 5
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1554 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

14
A09财务通用管理/U_PayList.dfm
View File

@ -160,6 +160,7 @@ inherited frmPayList: TfrmPayList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 28 Left = 28
Top = 48 Top = 48
@ -268,14 +269,13 @@ inherited frmPayList: TfrmPayList
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1536 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

14
A09财务通用管理/U_PayableList.dfm
View File

@ -160,6 +160,7 @@ inherited frmPayableList: TfrmPayableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 26 Left = 26
Top = 50 Top = 50
@ -273,14 +274,13 @@ inherited frmPayableList: TfrmPayableList
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1621 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
end end

3
A09财务通用管理/U_ReceivableInput.pas
View File

@ -109,7 +109,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
FFFID, FAuthority: string; FFFID, FAuthority, canshu4: string;
end; end;
var var
@ -503,6 +503,7 @@ begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('Store').Value := Trim(canshu4);
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text); FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text); FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text); FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);

36
A09财务通用管理/U_ReceivableList.dfm
View File

@ -2,13 +2,13 @@ inherited frmReceivableList: TfrmReceivableList
Left = 315 Left = 315
Top = 101 Top = 101
Caption = #24212#25910#27454#31649#29702 Caption = #24212#25910#27454#31649#29702
ClientHeight = 587 ClientHeight = 591
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 626 ExplicitHeight = 630
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -36,22 +36,22 @@ inherited frmReceivableList: TfrmReceivableList
ImageIndex = 1 ImageIndex = 1
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnAdd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = btnAddClick
end
object TBFind: TToolButton object TBFind: TToolButton
Left = 142 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
ImageIndex = 0 ImageIndex = 0
OnClick = TBFindClick OnClick = TBFindClick
end end
object btnAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = btnAddClick
end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 213 Left = 213
Top = 0 Top = 0
@ -277,12 +277,11 @@ inherited frmReceivableList: TfrmReceivableList
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1536 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited TimeType: TcxComboBox inherited lbl2: TLabel
ExplicitHeight = 29 Width = 16
end Height = 21
inherited jqModel: TcxCheckBox ExplicitWidth = 16
ExplicitWidth = 84 ExplicitHeight = 21
ExplicitHeight = 25
end end
end end
object OrderNo: TcxTextEdit object OrderNo: TcxTextEdit
@ -298,10 +297,11 @@ inherited frmReceivableList: TfrmReceivableList
Left = 0 Left = 0
Top = 179 Top = 179
Width = 1540 Width = 1540
Height = 408 Height = 412
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 185
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

8
A09财务通用管理/U_ReceivableList.pas
View File

@ -141,7 +141,7 @@ type
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
public public
FAuthority: string; FAuthority, canshu4: string;
end; end;
implementation implementation
@ -231,6 +231,9 @@ begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and isnull(A.Store,'''')=' + QuotedStr(Trim(canshu4));
// ShowMessage(SqlStr); // ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
@ -331,6 +334,7 @@ procedure TfrmReceivableList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí'); ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
canshu4 := Trim(Self.fParameters4);
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30; frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30;
SetStatus(); SetStatus();
@ -563,6 +567,7 @@ begin
with frmReceivableInput do with frmReceivableInput do
begin begin
FFFID := ''; FFFID := '';
canshu4 := Self.canshu4;
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -698,6 +703,7 @@ begin
frmReceivableInput := TfrmReceivableInput.Create(Application); frmReceivableInput := TfrmReceivableInput.Create(Application);
with frmReceivableInput do with frmReceivableInput do
begin begin
canshu4 := Self.canshu4;
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then

32
T02贸易汇总仓库/U_TradeXinYuOutList.dfm
View File

@ -94,7 +94,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 27
object Label3: TLabel object Label3: TLabel
Left = 24 Left = 24
Top = 51 Top = 51
@ -185,8 +184,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 149
ExplicitHeight = 445
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -201,6 +198,18 @@ inherited frmTradeMarketList: TfrmTradeMarketList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column15
end
item
Kind = skSum
Column = Tv1Column11
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True OptionsBehavior.CellHints = True
@ -362,6 +371,22 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Column15: TcxGridDBColumn
Caption = #20986#24211#21305#25968
DataBinding.FieldName = 'OutPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object Tv1Column14: TcxGridDBColumn
Caption = #20986#24211#25968#37327
DataBinding.FieldName = 'OutQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -382,7 +407,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
' '#24050#23436#25104' ' ' '#24050#23436#25104' '
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 115
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1985 ClientRectRight = 1985
ClientRectTop = 28 ClientRectTop = 28

2
T02贸易汇总仓库/U_TradeXinYuOutList.pas
View File

@ -83,6 +83,8 @@ type
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
TBFind: TToolButton; TBFind: TToolButton;
xxx1: TMenuItem; xxx1: TMenuItem;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

2
T02贸易汇总仓库/U_TradeXinYuStkList.dfm
View File

@ -167,8 +167,6 @@ inherited frmTradeXinYuStkList: TfrmTradeXinYuStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
ExplicitTop = 8
ExplicitHeight = 394
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

18
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -6,6 +6,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1459 ExplicitWidth = 1459
ExplicitHeight = 795 ExplicitHeight = 795
PixelsPerInch = 96 PixelsPerInch = 96
@ -569,7 +570,6 @@ inherited frmMachRollMain: TfrmMachRollMain
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1292
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -577,8 +577,6 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 421 Height = 421
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1290
ExplicitHeight = 450
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -742,7 +740,6 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 333 Height = 333
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1290
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Tag = 9999 Tag = 9999
Left = 1 Left = 1
@ -751,10 +748,6 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 301 Height = 301
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 487
ExplicitWidth = 1290
ExplicitHeight = 274
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -903,9 +896,6 @@ inherited frmMachRollMain: TfrmMachRollMain
ParentDoubleBuffered = False ParentDoubleBuffered = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitLeft = 5
ExplicitTop = 6
ExplicitWidth = 1288
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -938,7 +928,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 356 Left = 380
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -946,14 +936,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object Tlog: TToolButton object Tlog: TToolButton
Left = 459 Left = 483
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 30 ImageIndex = 30
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 530 Left = 554
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

2
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -428,7 +428,7 @@ begin
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId)); Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode))); Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
Sql.Add(' ,@DName=' + quotedstr(Trim(DName))); Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
showmessage(sql.Text); // showmessage(sql.Text);
open; open;
end; end;

1
T05贸易门市管理/U_GetDllForm.pas
View File

@ -76,6 +76,7 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限'; // DParameters1:='高权限';
// Parameters2 := '梭织'; // Parameters2 := '梭织';
Parameters4 := '新余';
DCode := 'ADMIN'; DCode := 'ADMIN';
DName := 'ADMIN'; DName := 'ADMIN';
end end

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

@ -93,7 +93,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitHeight = 443
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -102,7 +101,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 441
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -110,8 +108,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 486 Height = 486
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
ExplicitTop = -1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -376,7 +372,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 441
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -414,7 +409,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 = 398
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 23 Top = 23
@ -422,7 +416,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 420 Height = 420
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 373
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -495,7 +488,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 730 Left = 730
Top = 70 Top = 70

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

@ -510,10 +510,10 @@ inherited frmTradeMarketList: TfrmTradeMarketList
ExplicitTop = 346 ExplicitTop = 346
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 484 Left = 616
Top = 280 Top = 296
ExplicitLeft = 484 ExplicitLeft = 616
ExplicitTop = 280 ExplicitTop = 296
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery