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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\贝其\贝其贸易管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7wmbeiqi\贝其贸易管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

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

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

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

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

@ -117,6 +117,7 @@ type
TWc: TToolButton; TWc: TToolButton;
TCxwc: TToolButton; TCxwc: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: 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);

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

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

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

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

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

@ -325,13 +325,13 @@ begin
begin begin
Close; Close;
sql.Clear; 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; Open;
end; end;
if ADOCmd.RecordCount > 1 then if ADOCmd.RecordCount > 1 then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('坯布名称重复!', '提示', 0); Application.MessageBox('订单号坯布名称重复!', '提示', 0);
Exit; Exit;
end; end;
FMainId := Trim(maxNo); FMainId := Trim(maxNo);