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-11-21 09:37:23 +08:00
parent 0ba0b75c88
commit e11c0d4666
5 changed files with 931 additions and 770 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
贝其贸易管理/U_ClothContractList.dfm
View File

@ -1,6 +1,6 @@
object frmClothContractList: TfrmClothContractList object frmClothContractList: TfrmClothContractList
Left = 109 Left = 348
Top = 139 Top = 303
Width = 1171 Width = 1171
Height = 571 Height = 571
Caption = #22383#24067#37319#36141#21512#21516 Caption = #22383#24067#37319#36141#21512#21516
@ -78,16 +78,32 @@ object frmClothContractList: TfrmClothContractList
ImageIndex = 17 ImageIndex = 17
OnClick = TBDelClick OnClick = TBDelClick
end end
object Tchk: TToolButton object TReview: TToolButton
Left = 315 Left = 315
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680
ImageIndex = 41
OnClick = TReviewClick
end
object TnoReview: TToolButton
Left = 378
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 129
OnClick = TnoReviewClick
end
object Tchk: TToolButton
Left = 465
Top = 0
AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
ImageIndex = 41 ImageIndex = 41
OnClick = TchkClick OnClick = TchkClick
end end
object TNochk: TToolButton object TNochk: TToolButton
Left = 378 Left = 528
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -95,7 +111,7 @@ object frmClothContractList: TfrmClothContractList
OnClick = TNochkClick OnClick = TNochkClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 465 Left = 615
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -103,7 +119,7 @@ object frmClothContractList: TfrmClothContractList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 528 Left = 678
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -111,7 +127,7 @@ object frmClothContractList: TfrmClothContractList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 591 Left = 741
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #37319#36141#38468#20214 Caption = #37319#36141#38468#20214
@ -119,7 +135,7 @@ object frmClothContractList: TfrmClothContractList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 678 Left = 828
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -307,7 +323,7 @@ object frmClothContractList: TfrmClothContractList
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick OnCellClick = Tv1CellClick
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell OnCustomDrawCell = Tv1CustomDrawCell
@ -415,14 +431,14 @@ object frmClothContractList: TfrmClothContractList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Style = 9
TabIndex = 0
TabOrder = 3 TabOrder = 3
Tabs.Strings = ( Properties.CustomButtons.Buttons = <>
#26410#23436#25104 Properties.Style = 9
#23436#25104 Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096) #20840#37096)
Visible = False
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1155 ClientRectRight = 1155
@ -430,13 +446,13 @@ object frmClothContractList: TfrmClothContractList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 356 Top = 355
Width = 1155 Width = 1155
Height = 177 Height = 177
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DSsub DataController.DataSource = DSsub
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -585,7 +601,7 @@ object frmClothContractList: TfrmClothContractList
DataBinding.FieldName = 'Sdefstr5' DataBinding.FieldName = 'Sdefstr5'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True VisibleForCustomization = False
Width = 80 Width = 80
end end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
@ -608,7 +624,7 @@ object frmClothContractList: TfrmClothContractList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 348 Top = 347
Width = 1155 Width = 1155
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'

263
贝其贸易管理/U_ClothContractList.pas
View File

@ -6,11 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC,
cxTextEdit, cxPC, cxDropDownEdit; cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator, dxBarBuiltInMenu;
type type
TfrmClothContractList = class(TForm) TfrmClothContractList = class(TForm)
@ -100,6 +113,8 @@ type
Image2: TImage; Image2: TImage;
Button1: TButton; Button1: TButton;
RadioGroup1: TRadioGroup; RadioGroup1: TRadioGroup;
TReview: TToolButton;
TnoReview: TToolButton;
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);
@ -113,38 +128,26 @@ type
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject); procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
ANewItemRecordFocusingChanged: Boolean); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer); procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv2CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure v2Column3PropertiesButtonClick(Sender: TObject; procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure conPress(Sender: TObject; var Key: Char); procedure conPress(Sender: TObject; var Key: Char);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TchkClick(Sender: TObject); procedure TchkClick(Sender: TObject);
procedure TNochkClick(Sender: TObject); procedure TNochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(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 Image2Click(Sender: TObject); procedure Image2Click(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure SQNOKeyPress(Sender: TObject; var Key: Char); procedure SQNOKeyPress(Sender: TObject; var Key: Char);
procedure TReviewClick(Sender: TObject);
procedure TnoReviewClick(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); procedure InitGrid();
@ -162,6 +165,7 @@ var
frmClothContractList: TfrmClothContractList; frmClothContractList: TfrmClothContractList;
implementation implementation
uses uses
U_DataLink, U_ClothContractInPutPB, U_Fun, U_ProductOrderList, U_ZDYHelp, U_DataLink, U_ClothContractInPutPB, U_Fun, U_ProductOrderList, U_ZDYHelp,
U_FjList_RZ; U_FjList_RZ;
@ -170,7 +174,8 @@ uses
procedure TfrmClothContractList.InitSub(); procedure TfrmClothContractList.InitSub();
begin begin
ADOQuerySub.Close; ADOQuerySub.Close;
IF Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
with ADOQuerySub do with ADOQuerySub do
begin begin
close; close;
@ -186,33 +191,52 @@ begin
TBAdd.Visible := false; TBAdd.Visible := false;
tchk.Visible := false; tchk.Visible := false;
tnochk.Visible := false; tnochk.Visible := false;
TReview.Visible := false;
tnoReview.Visible := false;
tbedit.Visible := false; tbedit.Visible := false;
tbdel.Visible := false; tbdel.Visible := false;
IF FType=''then if FType = '' then
begin
if Trim(DParameters1) = '高权限' then
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0:begin 0:
// tchk.Visible:=true; begin
TReview.Visible := true;
tbedit.Visible := true; tbedit.Visible := true;
tbdel.Visible := true; tbdel.Visible := true;
TBAdd.Visible := true; TBAdd.Visible := true;
end; end;
1:begin 1:
// tnochk.Visible:=true; begin
tnoReview.Visible := true;
end; end;
2:begin end;
end
else
begin
case cxTabControl1.TabIndex of
0:
begin
tbedit.Visible := true;
tbdel.Visible := true;
TBAdd.Visible := true;
end;
1:
begin
end; end;
end; end;
end; end;
IF FType='查询' then
end;
if FType = '查询' then
begin begin
Tbadd.Visible := false; Tbadd.Visible := false;
TBPrint.Visible := false; TBPrint.Visible := false;
//v1Price.Visible:=false; //v1Price.Visible:=false;
// v1PriceUnit.Visible:=false; // v1PriceUnit.Visible:=false;
// v1Money.Visible:=false; // v1Money.Visible:=false;
// v1Price.Hidden:=true; // v1Price.Hidden:=true;
// v1PriceUnit.Hidden:=true; // v1PriceUnit.Hidden:=true;
// v1Money.Hidden:=true; // v1Money.Hidden:=true;
@ -226,8 +250,7 @@ begin
frmClothContractList := nil; frmClothContractList := nil;
end; end;
procedure TfrmClothContractList.FormClose(Sender: TObject; procedure TfrmClothContractList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action := caFree; Action := caFree;
end; end;
@ -245,15 +268,18 @@ begin
end; end;
procedure TfrmClothContractList.InitGrid(); procedure TfrmClothContractList.InitGrid();
var strwhere: string; var
strwhere: string;
begin begin
strwhere:=' where QDTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' strwhere := ' where QDTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and QDTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''' + ' and HTType=''采购合同''';
+' and QDTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' // if cxTabControl1.TabIndex = 0 then
+' and HTType=''采购合同'''; // strwhere := strwhere + ' and isnull(C_status,''0'')=''0'' ';
IF cxTabControl1.TabIndex=0 then // if cxTabControl1.TabIndex = 1 then
strwhere:=strwhere+' and isnull(C_status,''0'')=''0'' '; // strwhere := strwhere + ' and isnull(C_status,''0'')=''1'' ';
IF cxTabControl1.TabIndex=1 then // if cxTabControl1.TabIndex < 2 then
strwhere:=strwhere+' and isnull(C_status,''0'')=''1'' '; // begin
// strwhere := strwhere + ' and isnull(A.ChkStatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
// end;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
@ -266,10 +292,10 @@ begin
sql.Add(' where QDTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); sql.Add(' where QDTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(' and QDTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''' '); sql.Add(' and QDTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''' ');
sql.Add(' and HTType=''采购合同'' '); sql.Add(' and HTType=''采购合同'' ');
// IF cxTabControl1.TabIndex=0 then if cxTabControl1.TabIndex = 0 then
// sql.Add(' and isnull(C_status,''0'')=''0'' '); sql.Add(' and isnull(A.ChkStatus,''0'')=''0'' ');
// IF cxTabControl1.TabIndex=1 then if cxTabControl1.TabIndex = 1 then
// sql.Add(' and isnull(C_status,''0'')=''1'' '); sql.Add(' and isnull(A.ChkStatus,''0'')=''1'' ');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -288,7 +314,8 @@ begin
if Trim(DParameters1) = '1' then if Trim(DParameters1) = '1' then
begin begin
TBPrint.Visible := False; TBPrint.Visible := False;
end else end
else
begin begin
// v1Column1.Visible:=True; // v1Column1.Visible:=True;
// v1Column1.Hidden:=False; // v1Column1.Hidden:=False;
@ -305,7 +332,8 @@ end;
procedure TfrmClothContractList.TBFindClick(Sender: TObject); procedure TfrmClothContractList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -313,7 +341,8 @@ end;
procedure TfrmClothContractList.TBEditClick(Sender: TObject); procedure TfrmClothContractList.TBEditClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application);
with frmClothContractInPutPB do with frmClothContractInPutPB do
@ -333,13 +362,15 @@ end;
procedure TfrmClothContractList.TBDelClick(Sender: TObject); procedure TfrmClothContractList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if ClientDataSet2.IsEmpty = false then if ClientDataSet2.IsEmpty = false then
begin begin
Application.MessageBox('已到坯，不能删除坯布合同！', '提示', 0); Application.MessageBox('已到坯，不能删除坯布合同！', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
//TBRafresh.Click; //TBRafresh.Click;
@ -374,16 +405,17 @@ end;
procedure TfrmClothContractList.TBExportClick(Sender: TObject); procedure TfrmClothContractList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布合同订单列表', cxGrid1); TcxGridToExcel('坯布合同订单列表', cxGrid1);
end; end;
procedure TfrmClothContractList.TBPrintClick(Sender: TObject); procedure TfrmClothContractList.TBPrintClick(Sender: TObject);
var var
fPrintFile, FConNoM: string; fPrintFile, FConNoM: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
Panel4.Left := (self.Width - Panel4.Width) div 2; Panel4.Left := (self.Width - Panel4.Width) div 2;
Panel4.Visible := true; Panel4.Visible := true;
@ -443,7 +475,8 @@ end;
procedure TfrmClothContractList.ConNoChange(Sender: TObject); procedure TfrmClothContractList.ConNoChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -455,10 +488,7 @@ begin
SetStatus(); SetStatus();
end; end;
procedure TfrmClothContractList.Tv1FocusedRecordChanged( procedure TfrmClothContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin begin
{ with ADOQueryTemp do { with ADOQueryTemp do
begin begin
@ -487,28 +517,22 @@ begin
SInitCDSData20(ADOQueryTemp,ClientDataSet3); } SInitCDSData20(ADOQueryTemp,ClientDataSet3); }
end; end;
procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FInt := 2; FInt := 2;
end; end;
procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FInt := 1; FInt := 1;
end; end;
procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FInt := 3; FInt := 3;
end; end;
procedure TfrmClothContractList.Tv2CellClick( procedure TfrmClothContractList.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -532,8 +556,7 @@ begin
end; end;
procedure TfrmClothContractList.v2Column3PropertiesButtonClick( procedure TfrmClothContractList.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -555,8 +578,7 @@ begin
end; end;
end; end;
procedure TfrmClothContractList.conPress(Sender: TObject; procedure TfrmClothContractList.conPress(Sender: TObject; var Key: Char);
var Key: Char);
begin begin
{if Key=#13 then {if Key=#13 then
begin begin
@ -581,13 +603,11 @@ begin
end; } end; }
end; end;
procedure TfrmClothContractList.Tv1CellDblClick( procedure TfrmClothContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
If Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application);
with frmClothContractInPutPB do with frmClothContractInPutPB do
@ -610,7 +630,8 @@ end;
procedure TfrmClothContractList.TchkClick(Sender: TObject); procedure TfrmClothContractList.TchkClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -629,7 +650,8 @@ end;
procedure TfrmClothContractList.TNochkClick(Sender: TObject); procedure TfrmClothContractList.TNochkClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -652,9 +674,7 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmClothContractList.Tv1CustomDrawCell( procedure TfrmClothContractList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
{ if cxTabControl1.TabIndex=0 then { if cxTabControl1.TabIndex=0 then
begin begin
@ -678,7 +698,8 @@ end;
procedure TfrmClothContractList.ToolButton1Click(Sender: TObject); procedure TfrmClothContractList.ToolButton1Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmFjList_RZ := TfrmFjList_RZ.Create(Application); frmFjList_RZ := TfrmFjList_RZ.Create(Application);
with frmFjList_RZ do with frmFjList_RZ do
@ -697,10 +718,7 @@ begin
end; end;
end; end;
procedure TfrmClothContractList.Tv1CellClick( procedure TfrmClothContractList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
InitSub(); InitSub();
end; end;
@ -713,9 +731,9 @@ end;
procedure TfrmClothContractList.Button1Click(Sender: TObject); procedure TfrmClothContractList.Button1Click(Sender: TObject);
var var
fPrintFile, FConNoM: string; fPrintFile, FConNoM: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
// fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\坯布订购合同.rmf' ; // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\坯布订购合同.rmf' ;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]) + '.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]) + '.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -724,8 +742,7 @@ begin
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
sql.Add('exec ClothContract_QryList :MainId,:WSql'); sql.Add('exec ClothContract_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString);
Parameters.ParamByName('WSql').Value := ''; Parameters.ParamByName('WSql').Value := '';
Open; Open;
@ -737,20 +754,21 @@ 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 TfrmClothContractList.SQNOKeyPress(Sender: TObject; procedure TfrmClothContractList.SQNOKeyPress(Sender: TObject; var Key: Char);
var Key: Char);
begin begin
IF key=#13 then if Key = #13 then
begin begin
IF trim(SQNo.Text)='' then exit; if trim(SQNo.Text) = '' then
exit;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
@ -767,4 +785,45 @@ begin
end; end;
end; end;
procedure TfrmClothContractList.TReviewClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_Main SET ChkStatus=''1'',chktime=getdate(),chker=' + quotedstr(trim(Dname)));
sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString)));
execsql;
end;
application.MessageBox('坯布采购审核成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('坯布采购审核失败！', '提示信息', 0);
end;
end;
procedure TfrmClothContractList.TnoReviewClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Contract_Main SET ChkStatus=''0'',chktime=null,chker='''' ');
sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString)));
execsql;
end;
application.MessageBox('坯布采购撤销审核成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('坯布采购撤销审核失败！', '提示信息', 0);
end;
end;
end. end.

86
贝其贸易管理/U_ClothContractListHZ.dfm
View File

@ -22,7 +22,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Width = 1366 Width = 1366
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -69,16 +69,34 @@ object frmClothContractListHZ: TfrmClothContractListHZ
ImageIndex = 54 ImageIndex = 54
OnClick = TBEditClick OnClick = TBEditClick
end end
object ToolButton1: TToolButton object TCK: TToolButton
Left = 252 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#23457#26680' '
ImageIndex = 41
Visible = False
OnClick = TCKClick
end
object TnoCK: TToolButton
Left = 327
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 129
Visible = False
OnClick = TnoCKClick
end
object ToolButton1: TToolButton
Left = 414
Top = 0
AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
ImageIndex = 58 ImageIndex = 58
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 315 Left = 477
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -86,7 +104,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 378 Left = 540
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -95,7 +113,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 441 Left = 603
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -103,14 +121,15 @@ object frmClothContractListHZ: TfrmClothContractListHZ
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 504 Left = 666
Top = 0 Top = 0
Caption = #38468#20214 AutoSize = True
Caption = ' '#38468#20214' '
ImageIndex = 57 ImageIndex = 57
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 563 Left = 741
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -933,9 +952,9 @@ object frmClothContractListHZ: TfrmClothContractListHZ
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 86 Top = 109
Width = 1366 Width = 1366
Height = 629 Height = 606
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -957,8 +976,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False OptionsData.Deleting = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManage.SHuangSe Styles.Inactive = DataLink_TradeManage.SHuangSe
@ -968,6 +986,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #32433#32447#36141#38144#21512#21516 Caption = #32433#32447#36141#38144#21512#21516
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 84 Width = 84
end end
@ -975,6 +994,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName' DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 108 Width = 108
end end
@ -985,6 +1005,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 82 Width = 82
end end
@ -992,6 +1013,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #31614#35746#26085#26399 Caption = #31614#35746#26085#26399
DataBinding.FieldName = 'QDTime' DataBinding.FieldName = 'QDTime'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 89 Width = 89
end end
@ -999,6 +1021,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'FactoryNoName' DataBinding.FieldName = 'FactoryNoName'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 134 Width = 134
end end
@ -1006,6 +1029,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 66 Width = 66
end end
@ -1014,6 +1038,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
DataBinding.FieldName = 'Qty1' DataBinding.FieldName = 'Qty1'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
VisibleForCustomization = False VisibleForCustomization = False
Width = 46 Width = 46
@ -1022,6 +1047,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'C_Qty' DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 58 Width = 58
end end
@ -1029,6 +1055,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'C_Unit' DataBinding.FieldName = 'C_Unit'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 47 Width = 47
end end
@ -1036,6 +1063,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 57 Width = 57
end end
@ -1043,6 +1071,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'PriceUnit' DataBinding.FieldName = 'PriceUnit'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 61 Width = 61
end end
@ -1050,6 +1079,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #24635#20215 Caption = #24635#20215
DataBinding.FieldName = 'Money' DataBinding.FieldName = 'Money'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 58 Width = 58
end end
@ -1057,6 +1087,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'C_Note' DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 68 Width = 68
end end
@ -1064,13 +1095,41 @@ object frmClothContractListHZ: TfrmClothContractListHZ
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'XSconNo' DataBinding.FieldName = 'XSconNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
end end
end end
object cxTabControl1: TcxTabControl
Left = 0
Top = 86
Width = 1366
Height = 23
Align = alTop
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 23
ClientRectRight = 1366
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
@ -1079,7 +1138,8 @@ object frmClothContractListHZ: TfrmClothContractListHZ
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink Connection = DataLink_TradeManage.ADOLink
Parameters = <> Parameters = <>
Left = 936 Left = 976
Top = 80
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink Connection = DataLink_TradeManage.ADOLink

464
贝其贸易管理/U_ClothContractListHZ.pas
View File

@ -6,12 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC,
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
dxBarBuiltInMenu, cxNavigator; 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, cxCheckBox;
type type
TfrmClothContractListHZ = class(TForm) TfrmClothContractListHZ = class(TForm)
@ -149,6 +161,10 @@ type
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
ToolButton2: TToolButton; ToolButton2: TToolButton;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
TCK: TToolButton;
TnoCK: TToolButton;
cxTabControl1: TcxTabControl;
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 TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -165,10 +181,14 @@ type
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure TCKClick(Sender: TObject);
procedure TnoCKClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
procedure SetStatus();
function DelData(): Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
@ -179,9 +199,11 @@ var
frmClothContractListHZ: TfrmClothContractListHZ; frmClothContractListHZ: TfrmClothContractListHZ;
implementation implementation
uses uses
U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ClothContractInPutSXMX U_DataLink, U_ClothContractInPutSX, U_Fun, U_ProductOrderList, U_ZDYHelp,
,U_ClothContractInPutHZ,U_ClothContractInPutPB, U_FjList_RZ; U_ClothContractInPutSXMX, U_ClothContractInPutHZ, U_ClothContractInPutPB,
U_FjList_RZ;
{$R *.dfm} {$R *.dfm}
@ -190,8 +212,7 @@ begin
frmClothContractListHZ := nil; frmClothContractListHZ := nil;
end; end;
procedure TfrmClothContractListHZ.FormClose(Sender: TObject; procedure TfrmClothContractListHZ.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action := caFree; Action := caFree;
end; end;
@ -207,9 +228,19 @@ begin
end; end;
procedure TfrmClothContractListHZ.InitGrid(); procedure TfrmClothContractListHZ.InitGrid();
var
strwhere: string;
begin begin
if cxPageControl1.ActivePageIndex=0 then strwhere := '';
// if Trim(DParameters1) <> '高权限' then
// strwhere := strwhere + ' and Filler=''' + Trim(DName) + '''';
strwhere := strwhere + ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
if cxTabControl1.TabIndex < 2 then
begin begin
strwhere := strwhere + ' and isnull(OM.ChkStatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
end;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
@ -218,8 +249,8 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' Parameters.ParamByName('WSql').Value := strwhere;
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; // Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -227,111 +258,6 @@ begin
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end else
if cxPageControl1.ActivePageIndex=1 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
SQL.Add(' and A.ConType=''纱线前加工'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end else
if cxPageControl1.ActivePageIndex=2 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
SQL.Add(' and A.ConType=''纱线加工'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end else
if cxPageControl1.ActivePageIndex=3 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('exec ClothContract_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end else
if cxPageControl1.ActivePageIndex=4 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
SQL.Add(' and A.ConType=''染色加工'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end else
if cxPageControl1.ActivePageIndex=5 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
SQL.Add(' and A.ConType=''后加工'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
end; end;
@ -342,33 +268,38 @@ begin
ReadCxGrid('坯布采购合同', Tv3, '指示单管理'); ReadCxGrid('坯布采购合同', Tv3, '指示单管理');
ReadCxGrid('染色合同', Tv4, '指示单管理'); ReadCxGrid('染色合同', Tv4, '指示单管理');
ReadCxGrid('后加工合同', Tv5, '指示单管理'); ReadCxGrid('后加工合同', Tv5, '指示单管理');
if Trim(DParameters1)='1' then // if Trim(DParameters1) = '1' then
begin // begin
TBPrint.Visible:=False; // TBPrint.Visible := False;
v1Column1.Visible:=False; // v1Column1.Visible := False;
v1Column1.Hidden:=True; // v1Column1.Hidden := True;
v1PRTUnit.Visible:=False; // v1PRTUnit.Visible := False;
v1PRTUnit.Hidden:=True; // v1PRTUnit.Hidden := True;
v1PRTQty.Visible:=False; // v1PRTQty.Visible := False;
v1PRTQty.Hidden:=True; // v1PRTQty.Hidden := True;
end else // end
begin // else
v1Column1.Visible:=True; // begin
v1Column1.Hidden:=False; // v1Column1.Visible := True;
v1PRTUnit.Visible:=True; // v1Column1.Hidden := False;
v1PRTUnit.Hidden:=False; // v1PRTUnit.Visible := True;
v1PRTQty.Visible:=True; // v1PRTUnit.Hidden := False;
v1PRTQty.Hidden:=False; // v1PRTQty.Visible := True;
TBPrint.Visible:=True; // v1PRTQty.Hidden := False;
end; // TBPrint.Visible := True;
// end;
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp); EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
SetStatus();
InitGrid(); InitGrid();
end; end;
procedure TfrmClothContractListHZ.TBFindClick(Sender: TObject); procedure TfrmClothContractListHZ.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -376,7 +307,8 @@ end;
procedure TfrmClothContractListHZ.TBEditClick(Sender: TObject); procedure TfrmClothContractListHZ.TBEditClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if cxPageControl1.ActivePageIndex = 0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
try try
@ -394,8 +326,8 @@ begin
finally finally
frmClothContractInPutSXMX.Free; frmClothContractInPutSXMX.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -419,8 +351,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -444,8 +376,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
try try
frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application);
@ -462,8 +394,8 @@ begin
finally finally
frmClothContractInPutPB.Free; frmClothContractInPutPB.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -487,8 +419,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=5 then else if cxPageControl1.ActivePageIndex = 5 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -518,7 +450,8 @@ end;
procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject); procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if cxPageControl1.ActivePageIndex = 0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
@ -535,17 +468,19 @@ begin
Application.MessageBox('已经产生到货数据不能删除!', '提示', 0); Application.MessageBox('已经产生到货数据不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
//TBRafresh.Click; //TBRafresh.Click;
//TBFind.Click; //TBFind.Click;
Order_Main.Delete; Order_Main.Delete;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -571,10 +506,11 @@ begin
end; end;
end; end;
Order_Main.Delete; Order_Main.Delete;
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -600,8 +536,8 @@ begin
end; end;
end; end;
Order_Main.Delete; Order_Main.Delete;
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -616,7 +552,8 @@ begin
Application.MessageBox('已经产生到货数据不能删除!', '提示', 0); Application.MessageBox('已经产生到货数据不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -652,10 +589,11 @@ begin
end; end;
end; end;
Order_Main.Delete; Order_Main.Delete;
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -681,10 +619,11 @@ begin
end; end;
end; end;
Order_Main.Delete; Order_Main.Delete;
end else end
if cxPageControl1.ActivePageIndex=5 then else if cxPageControl1.ActivePageIndex = 5 then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -764,16 +703,17 @@ end;
procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject); procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布合同订单列表', cxGrid1); TcxGridToExcel('坯布合同订单列表', cxGrid1);
end; end;
procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject); procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject);
var var
fPrintFile, FConNoM: string; fPrintFile, FConNoM: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if cxPageControl1.ActivePageIndex = 0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线订购合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线订购合同.rmf';
@ -783,8 +723,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString);
Parameters.ParamByName('WSql').Value := ''; Parameters.ParamByName('WSql').Value := '';
Open; Open;
@ -792,8 +731,8 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线前加工合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线前加工合同.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -808,8 +747,8 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString);
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线加工合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线加工合同.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -824,8 +763,8 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString);
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布订购合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布订购合同.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -834,8 +773,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec ClothContract_QryList :MainId,:WSql'); sql.Add('exec ClothContract_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString);
Parameters.ParamByName('WSql').Value := ''; Parameters.ParamByName('WSql').Value := '';
Open; Open;
@ -843,8 +781,8 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\染色合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\染色合同.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -859,8 +797,8 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString);
end else end
if cxPageControl1.ActivePageIndex=5 then else if cxPageControl1.ActivePageIndex = 5 then
begin begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\后加工合同.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\后加工合同.rmf';
with ADOQueryTemp do with ADOQueryTemp do
@ -877,7 +815,6 @@ begin
FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString);
end; end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
//RMVariables['begindate']:=begindate.DateTime; //RMVariables['begindate']:=begindate.DateTime;
@ -886,7 +823,8 @@ begin
//RMVariables['printer']:=Trim(gUserName); //RMVariables['printer']:=Trim(gUserName);
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\相对应的合同报表.rmf'), '提示', 0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\相对应的合同报表.rmf'), '提示', 0);
end; end;
@ -916,8 +854,8 @@ begin
finally finally
frmClothContractInPutSXMX.Free; frmClothContractInPutSXMX.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -940,8 +878,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -964,8 +902,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
try try
frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application);
@ -981,8 +919,8 @@ begin
finally finally
frmClothContractInPutPB.Free; frmClothContractInPutPB.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1005,8 +943,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=5 then else if cxPageControl1.ActivePageIndex = 5 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1035,7 +973,8 @@ end;
procedure TfrmClothContractListHZ.ConNoMChange(Sender: TObject); procedure TfrmClothContractListHZ.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -1046,12 +985,12 @@ begin
InitForm(); InitForm();
end; end;
procedure TfrmClothContractListHZ.conPress(Sender: TObject; procedure TfrmClothContractListHZ.conPress(Sender: TObject; var Key: Char);
var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Length(Trim(ConNoM.Text))<3 then Exit; if Length(Trim(ConNoM.Text)) < 3 then
Exit;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
@ -1064,25 +1003,25 @@ begin
begin begin
sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + ''''; Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + '''';
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + '''');
sql.Add(' and A.ConType=''纱线加工'''); sql.Add(' and A.ConType=''纱线加工''');
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
sql.Add('exec ClothContract_QryList :MainId,:WSql'); sql.Add('exec ClothContract_QryList :MainId,:WSql');
Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + ''''; Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + '''';
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + '''');
sql.Add(' and A.ConType=''染色加工'''); sql.Add(' and A.ConType=''染色加工''');
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + '''');
@ -1106,7 +1045,8 @@ end;
procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject); procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if cxPageControl1.ActivePageIndex = 0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
try try
@ -1125,8 +1065,8 @@ begin
finally finally
frmClothContractInPutSXMX.Free; frmClothContractInPutSXMX.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1151,8 +1091,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=2 then else if cxPageControl1.ActivePageIndex = 2 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1177,8 +1117,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=3 then else if cxPageControl1.ActivePageIndex = 3 then
begin begin
try try
frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application);
@ -1196,8 +1136,8 @@ begin
finally finally
frmClothContractInPutPB.Free; frmClothContractInPutPB.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=4 then else if cxPageControl1.ActivePageIndex = 4 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1222,8 +1162,8 @@ begin
finally finally
frmClothContractInPutHZ.Free; frmClothContractInPutHZ.Free;
end; end;
end else end
if cxPageControl1.ActivePageIndex=5 then else if cxPageControl1.ActivePageIndex = 5 then
begin begin
try try
frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application);
@ -1253,7 +1193,8 @@ end;
procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject); procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
try try
frmFjList_RZ := TfrmFjList_RZ.Create(Application); frmFjList_RZ := TfrmFjList_RZ.Create(Application);
with frmFjList_RZ do with frmFjList_RZ do
@ -1272,4 +1213,89 @@ begin
end; end;
end; end;
procedure TfrmClothContractListHZ.TCKClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update ContractSX_Main SET ChkStatus=''1'',chktime=getdate(),chker='+quotedstr(trim(Dname)));
sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString)));
execsql;
end;
application.MessageBox('纱线采购审核成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('纱线采购审核失败！', '提示信息', 0);
end;
end;
procedure TfrmClothContractListHZ.TnoCKClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update ContractSX_Main SET ChkStatus=''0'',chktime=null,Chker='''' ');
sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString)));
execsql;
end;
application.MessageBox('纱线采购撤销审核成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('纱线采购撤销审核失败！', '提示信息', 0);
end;
end;
procedure TfrmClothContractListHZ.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmClothContractListHZ.SetStatus();
begin
tbedit.Visible := false;
tbdel.Visible := false;
TCK.Visible := false;
TnoCK.Visible := false;
if Trim(DParameters1) = '高权限' then
begin
case cxTabControl1.TabIndex of
0:
begin
tbedit.Visible := true;
tbdel.Visible := true;
TCK.Visible := true;
end;
1:
begin
TnoCK.Visible := true;
end;
end;
end
else
begin
case cxTabControl1.TabIndex of
0:
begin
tbedit.Visible := true;
tbdel.Visible := true;
end;
1:
begin
end;
end;
end;
end;
end. end.