Group_99/D10szXIANGYING
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
a944322fac
D10szXIANGYING/E04梭织坯布仓库/U_TatClothRKHZList.pas

466 lines
13 KiB
ObjectPascal
Raw Normal View History

12345
2025-11-14 15:11:06 +08:00
unit U_TatClothRKHZList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils, dxScrollbarAnnotations;
type
TfrmTatClothRKHZList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
12.9
2025-12-09 17:30:02 +08:00
Label1: TLabel;
C_Width: TEdit;
Label3: TLabel;
C_GramWeight: TEdit;
Tv1IOType: TcxGridDBColumn;
IOType: TComboBox;
Label4: TLabel;
Label6: TLabel;
PCID: TEdit;
12.13 17.34
2025-12-13 17:34:42 +08:00
Tv1issp: TcxGridDBColumn;
Tv1YdPF: TcxGridDBColumn;
Tv1edPF: TcxGridDBColumn;
Tv1xjPF: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn;
Tv1csPF: TcxGridDBColumn;
cai 1.14
2026-01-14 17:31:53 +08:00
N2: TMenuItem;
N3: TMenuItem;
12345
2025-11-14 15:11:06 +08:00
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
12.9
2025-12-09 17:30:02 +08:00
procedure IOTypeChange(Sender: TObject);
cai 1.14
2026-01-14 17:31:53 +08:00
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
12345
2025-11-14 15:11:06 +08:00
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
cai 1.14
2026-01-14 17:31:53 +08:00
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
12345
2025-11-14 15:11:06 +08:00
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
cai 1.14
2026-01-14 17:31:53 +08:00
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothRKHZList2;
12345
2025-11-14 15:11:06 +08:00
{$R *.dfm}
procedure TfrmTatClothRKHZList.SetStatus();
begin
end;
procedure TfrmTatClothRKHZList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothRKHZList.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothRKHZList.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
cai 1.14
2026-01-14 17:31:53 +08:00
// sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType ');
sql.Add('select C_NAME,C_GramWeight,IOType ');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ŵ<EFBFBD>Ʒ'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ŵ<EFBFBD>Ʒ'' THEN meter ELSE 0 END )AS Ydqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ŵ<EFBFBD>Ʒ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>Ʒ'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>Ʒ'' THEN meter ELSE 0 END )AS edqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>Ʒ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''С<><D0A1>'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN GRADE=''С<><D0A1>'' THEN meter ELSE 0 END )AS xjqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''С<><D0A1>'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ϲ<EFBFBD>'' THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ϲ<EFBFBD>'' THEN meter ELSE 0 END )AS fbqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27>ϲ<EFBFBD>'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN meter ELSE 0 END )AS fqqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
12345
2025-11-14 15:11:06 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''ѭ<><D1AD><EFBFBD><EFBFBD>'' THEN 1 ELSE 0 END )AS xhJS');
SQL.Add(',SUM(CASE WHEN GRADE=''ѭ<><D1AD><EFBFBD><EFBFBD>'' THEN meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN meter ELSE 0 END )AS csqty');
12.13 17.34
2025-12-13 17:34:42 +08:00
SQL.Add(',SUM(CASE WHEN GRADE=''<27><><EFBFBD><EFBFBD>'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
12345
2025-11-14 15:11:06 +08:00
cai 1.14
2026-01-14 17:31:53 +08:00
sql.Add(',issp=isnull(A.issp,'''') ');
12.9
2025-12-09 17:30:02 +08:00
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''<27><><EFBFBD><EFBFBD>'' ) ' + WSql);
12345
2025-11-14 15:11:06 +08:00
cai 1.14
2026-01-14 17:31:53 +08:00
// sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,isnull(A.issp,'''')');
sql.Add('group by C_NAME, IOType,C_GramWeight,isnull(A.issp,'''')');
// sql.Add('Order by C_NAME, C_width,C_GramWeight ');
sql.Add('Order by C_NAME, IOType,C_GramWeight ');
12345
2025-11-14 15:11:06 +08:00
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
12.9
2025-12-09 17:30:02 +08:00
procedure TfrmTatClothRKHZList.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatClothRKHZList.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothRKHZList.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothRKHZList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothRKHZList.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothRKHZList.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothRKHZList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothRKHZList.FormShow(Sender: TObject);
begin
inherited;
12.13 17.34
2025-12-13 17:34:42 +08:00
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
12345
2025-11-14 15:11:06 +08:00
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
12.9
2025-12-09 17:30:02 +08:00
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
12345
2025-11-14 15:11:06 +08:00
SetStatus();
12.9
2025-12-09 17:30:02 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
end;
procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
cai 1.14
2026-01-14 17:31:53 +08:00
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
12345
2025-11-14 15:11:06 +08:00
TcxGridToExcel(Self.Caption, cxGrid1);
cai 1.14
2026-01-14 17:31:53 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
end;
procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothRKHZList.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothRKHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
cai 1.14
2026-01-14 17:31:53 +08:00
procedure TfrmTatClothRKHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothRKHZList2 := TfrmTatClothRKHZList2.Create(Application);
with frmTatClothRKHZList2 do
begin
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
fioType := Self.CDS_1.FieldByName('ioType').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothRKHZList2.Free;
end;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatClothRKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothRKHZList.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
cai 1.14
2026-01-14 17:31:53 +08:00
procedure TfrmTatClothRKHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothRKHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// <20><><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD>еĻ<D0B5><C4BB><EFBFBD><EFBFBD><EFBFBD>
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('δ<>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>еĻ<D0B5><C4BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatClothRKHZList.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothRKHZList.ToolButton4Click(Sender: TObject);
begin
12.13 17.34
2025-12-13 17:34:42 +08:00
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
12345
2025-11-14 15:11:06 +08:00
end;
end.
Reference in New Issue Copy Permalink