Group_01/D7wmbeiqi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

采购报价

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-23 10:12:41 +08:00
parent 500a04d339
commit 05c7c64d72
8 changed files with 159 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
贝其贸易管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\贝其\贝其贸易管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7wmbeiqi\贝其贸易管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

66
贝其贸易管理/U_FrmCgBJList.pas
View File

@ -4,14 +4,26 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, cxPC, ExtCtrls, StdCtrls, DBClient, cxCalendar,
RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport,
cxDropDownEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, ComCtrls,
ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxPC, ExtCtrls,
StdCtrls, DBClient, cxCalendar, RM_Dataset, RM_Common, RM_Class, RM_e_Xls,
RM_System, RM_GridReport, cxDropDownEdit, cxSplitter, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, 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
TFrmCgBJList = class(TForm)
@ -115,9 +127,7 @@ type
procedure PONoChange(Sender: TObject);
procedure TglvClick(Sender: TObject);
procedure TPrintClick(Sender: TObject);
procedure TV1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBCopyClick(Sender: TObject);
procedure ordernoChange(Sender: TObject);
private
@ -135,13 +145,15 @@ var
implementation
uses U_DataLink,U_Fun,U_frmCgBjPut;
uses
U_DataLink, U_Fun, U_frmCgBjPut;
{$R *.dfm}
procedure TFrmCgBJList.InitSub();
begin
ADOQuerySub.Close;
IF cds_Main.IsEmpty then exit;
if cds_Main.IsEmpty then
exit;
with ADOQuerySub do
begin
close;
@ -220,7 +232,7 @@ end;
procedure TFrmCgBJList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// writeCxGrid(self.Caption+tv1.Name,Tv1);
action:=cafree;
Action := cafree;
end;
procedure TFrmCgBJList.TaddClick(Sender: TObject);
@ -286,7 +298,8 @@ begin
with frmCgBjPut do
begin
PState := 1;
FMainId:=Trim(Self.cds_Main.fieldbyname('MainId').AsString);;
FMainId := Trim(Self.cds_Main.fieldbyname('MainId').AsString);
;
if showmodal = 1 then
begin
initData();
@ -309,8 +322,10 @@ end;
procedure TFrmCgBJList.TdelClick(Sender: TObject);
begin
if cds_Main.IsEmpty then exit;
if application.MessageBox('È·¶¨ÒªÉ¾³ýÂð£¿','Ìáʾ',1)=2 then exit;
if cds_Main.IsEmpty then
exit;
if application.MessageBox('È·¶¨ÒªÉ¾³ýÂð£¿', 'Ìáʾ', 1) = 2 then
exit;
try
with ADOQueryDel do
begin
@ -343,7 +358,8 @@ end;
procedure TFrmCgBJList.TchkClick(Sender: TObject);
begin
if cds_Main.IsEmpty then exit;
if cds_Main.IsEmpty then
exit;
try
with ADOQueryTmp do
begin
@ -362,7 +378,8 @@ end;
procedure TFrmCgBJList.TNochkClick(Sender: TObject);
begin
if cds_Main.IsEmpty then exit;
if cds_Main.IsEmpty then
exit;
try
{ with ADOQueryTmp do
begin
@ -410,7 +427,8 @@ procedure TFrmCgBJList.TPrintClick(Sender: TObject);
var
fPrintFile: string;
begin
if cds_Main.IsEmpty then exit;
if cds_Main.IsEmpty then
exit;
with ADOQueryPrint do
begin
close;
@ -439,15 +457,14 @@ begin
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
end
else
begin
Application.MessageBox(PChar('ûÓÐÕÒ' + trim(fPrintFile)), 'Ìáʾ', 0);
end;
end;
procedure TFrmCgBJList.TV1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TFrmCgBJList.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
initsub();
end;
@ -499,3 +516,4 @@ begin
end;
end.

10
贝其贸易管理/U_ProductOrderNewList.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList
Left = 145
Top = 196
Left = 241
Top = 195
Width = 1378
Height = 753
Caption = #29983#20135#25351#31034#21333
@ -534,6 +534,12 @@ object frmProductOrderNewList: TfrmProductOrderNewList
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'CustomerNo'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

1
贝其贸易管理/U_ProductOrderNewList.pas
View File

@ -117,6 +117,7 @@ type
TWc: TToolButton;
TCxwc: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

10
贝其贸易管理/U_ProductOrderNewList_JD10.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList_JD10: TfrmProductOrderNewList_JD10
Left = 704
Top = 329
Left = 392
Top = 310
Width = 1382
Height = 754
Caption = #29983#20135#25351#31034#21333
@ -866,6 +866,12 @@ object frmProductOrderNewList_JD10: TfrmProductOrderNewList_JD10
Styles.Header = DataLink_TradeManage.Default
Width = 94
end
object Tv1Column1: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'CustomerNo'
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1MPRTCodeName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MPRTCodeName'

17
贝其贸易管理/U_ProductOrderNewList_JD10.pas
View File

@ -11,7 +11,21 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxCurrencyEdit,
Mask, DBCtrls, cxContainer, cxTextEdit, cxDBEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu;
cxLookAndFeelPainters, cxNavigator, 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
TfrmProductOrderNewList_JD10 = class(TForm)
@ -274,6 +288,7 @@ type
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
v1Column44: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

4
贝其贸易管理/U_frmCgBjPut.pas
View File

@ -325,13 +325,13 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from CGBJ_Main where PBName=''' + Trim(PBName.Text) + '''');
sql.Add('select * from CGBJ_Main where PBName=''' + Trim(PBName.Text) + ''' and orderno=''' + Trim(orderno.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('坯布名称重复!', '提示', 0);
Application.MessageBox('订单号坯布名称重复!', '提示', 0);
Exit;
end;
FMainId := Trim(maxNo);