Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myYunxiang/云翔生产管理(MYSC.dll)/U_MPDRKList.pas

517 lines
14 KiB
ObjectPascal
Raw Permalink Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_MPDRKList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
1
2025-07-08 09:22:54 +08:00
IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters,
Apply new .gitignore
2025-07-19 16:54:23 +08:00
dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter,
1
2025-07-08 09:22:54 +08:00
cxNavigator;
1
2025-01-20 13:04:03 +08:00
type
TfrmMPDRKList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
Order_Main: TClientDataSet;
Panel1: TPanel;
v1Column1: TcxGridDBColumn;
Label34: TLabel;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
KHNameJC: TEdit;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ToolButton4: TToolButton;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport2: TRMXLSExport;
CDS_PRT: TClientDataSet;
v1Column17: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
labMYType: TLabel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
CheckBox1: TCheckBox;
Button2: TButton;
v1MYMDMoney: TcxGridDBColumn;
v1JCDanWeiJC: TcxGridDBColumn;
Label3: TLabel;
JCDanWeiJC: TEdit;
Button1: TButton;
Label4: TLabel;
filler: TEdit;
v1filler: TcxGridDBColumn;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
N3: TMenuItem;
MenuItem2: TMenuItem;
N4: TMenuItem;
Label2: TLabel;
Label1: TLabel;
MYName: TEdit;
Note: TEdit;
Button3: TButton;
ImageList1: TImageList;
v1RKNo: TcxGridDBColumn;
v1editer: TcxGridDBColumn;
KHNo: TEdit;
JCKHNo: TEdit;
Label5: TLabel;
CGName: TEdit;
v1MYName: TcxGridDBColumn;
v1MYMF: TcxGridDBColumn;
v1MYKZ: TcxGridDBColumn;
N5: TMenuItem;
N6: TMenuItem;
Label6: TLabel;
Label7: TLabel;
MYMF: TEdit;
MYKZ: TEdit;
v1MYMDPrice: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
canshu1:string;
DQdate:TDateTime;
procedure InitGrid();
procedure InitForm();
function DelData():Boolean;
{ Private declarations }
public
FFInt,FCloth:Integer;
{ Public declarations }
end;
var
frmMPDRKList: TfrmMPDRKList;
implementation
uses
U_DataLink,U_RTFun, U_QCRKInPut,U_ZDYHelp,U_LLRKInPut,U_GYSList,U_LLRKInPutMH_MCG,
U_LLRKInPutMH,U_LLRKInPutX,U_LLRKInPut_CG,U_LLRKInPutMH_CG,U_BPZdy_LRM,U_LLRKInPutMH_MTHCK
,U_LLRKInPutMH_MPD;
{$R *.dfm}
procedure TfrmMPDRKList.FormDestroy(Sender: TObject);
begin
frmMPDRKList:=nil;
end;
procedure TfrmMPDRKList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmMPDRKList.FormCreate(Sender: TObject);
begin
cxgrid1.Align:=alClient;
canshu1:=Trim(DParameters1);
end;
procedure TfrmMPDRKList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmMPDRKList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.*');
sql.add(',IFFZ=(select Count(B.WBID) from TP_File B where B.WBID=A.RKNo and B.TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD>'')');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.KHName)');
sql.Add(',JCDanWeiJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.JCDanWei)');
sql.Add(',KHNo=(select Top 1 B.KHNo from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.KHName)');
sql.Add(',JCKHNo=(select Top 1 B.KHNo from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.JCDanWei)');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' where 1=1 ');
if CheckBox1.Checked=False then
begin
sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',now))+'''');
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',now+1))+'''');
BegDate.Visible:=false;
EndDate.Visible:=false;
end
else
begin
sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
BegDate.Visible:=true;
EndDate.Visible:=true;
end;
sql.Add(' and isnull(CRType,'''')=''<27>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>'' and isnull(MYType,'''')=''<27>̵<EFBFBD><CCB5><EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmMPDRKList.InitForm();
begin
BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp);
EndDate.Date:=SGetServerDate(ADOQueryTemp);
ReadCxGrid('<27><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
v1MYMDPrice.Visible:=false;
if canshu1='<27><>Ȩ<EFBFBD><C8A8>' then
begin
v1MYMDPrice.Visible:=true;
end;
InitGrid();
end;
procedure TfrmMPDRKList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
end;
function TfrmMPDRKList.DelData():Boolean;
begin
try
Result:=false;
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
//First;
// while Order_Main.Locate('SSel',True,[]) do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' insert into CK_MYSC_CR_Log ');
sql.Add(' select * from CK_MYSC_CR where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+'''');
sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+'''');
sql.Add(' where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+'''');
sql.Add(' Delete from CK_MYSC_CR where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+'''');
ExecSQL;
end;
Order_Main.Delete;
end;
end;
Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
procedure TfrmMPDRKList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
TcxGridToExcel(Self.Caption,cxGrid1);
end;
procedure TfrmMPDRKList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
end;
procedure TfrmMPDRKList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmMPDRKList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMPDRKList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmMPDRKList.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
end;
procedure TfrmMPDRKList.N2Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
if Trim(DParameters1)<>'<27><>Ȩ<EFBFBD><C8A8>' then
begin
if Order_Main.FieldByName('filltime').AsDateTime+1<Now then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>һ<EFBFBD>첻<EFBFBD><ECB2BB>ɾ<EFBFBD><C9BE>','<27><>ʾ');
Exit;
end;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
if DelData() then
begin
//Order_Main.Delete;
end;
end;
procedure TfrmMPDRKList.N1Click(Sender: TObject);
var
FFMYType:String;
begin
if Order_Main.IsEmpty then Exit;
if Trim(canshu1)<>'<27><>Ȩ<EFBFBD><C8A8>' then
begin
if Order_Main.FieldByName('filltime').AsDateTime+1<Now then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>һ<EFBFBD>첻<EFBFBD><ECB2BB><EFBFBD>޸<EFBFBD>','<27><>ʾ');
Exit;
end;
end;
if Trim(Order_Main.fieldbyname('CRType').AsString)='<27>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>' then
begin
try
frmLLRKInPutMH_MPD:=TfrmLLRKInPutMH_MPD.Create(Application);
with frmLLRKInPutMH_MPD do
begin
PState:=1;
FMainId:=Trim(Self.Order_Main.fieldbyname('RKNo').AsString);
FSubid:=Trim(Self.Order_Main.fieldbyname('MYID').AsString);
FMYType:=Trim(Self.Order_Main.fieldbyname('MYType').AsString);
FMYTypeFlag:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString);
labMYType.Caption:='(<28><>)<29>̵<EFBFBD>';
//Panel5.Visible:=false;
if ShowModal=1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_MPD.Free;
end;
end;
end;
procedure TfrmMPDRKList.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMPDRKList.ZJStatusChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmMPDRKList.Button2Click(Sender: TObject);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text:='<27>޳<EFBFBD>';
KHType.TxtCode:='<27>޳<EFBFBD>';
if ShowModal=1 then
begin
Self.KHNameJC.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
TBFind.Click;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmMPDRKList.Button1Click(Sender: TObject);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text:='<27>廨<EFBFBD><E5BBA8>';
KHType.TxtCode:='<27>廨<EFBFBD><E5BBA8>';
if ShowModal=1 then
begin
Self.JCDanWeiJC.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
TBFind.Click;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmMPDRKList.Button3Click(Sender: TObject);
begin
frmBPZDY_LRM:=TfrmBPZDY_LRM.create(self);
with frmBPZDY_LRM do
begin
flag:='MName';
flagName:='<27><>';
ViewFlag:=true;
Panel4.Align:=alClient;
ToolBar3.Visible:=false;
Button1.Visible:=False;
if ShowModal=1 then
begin
MYName.text:=Trim(ClientDataSet1.fieldbyname('BPName').AsString);
end;
free;
end;
end;
procedure TfrmMPDRKList.N5Click(Sender: TObject);
begin
try
frmLLRKInPutMH_MPD:=TfrmLLRKInPutMH_MPD.Create(Application);
with frmLLRKInPutMH_MPD do
begin
PState:=0;
FMainId:='';
FSubid:='';
FMYType:='<27>̵<EFBFBD><CCB5><EFBFBD>';
FMYTypeFlag:='CGH';
labMYType.Caption:='(<28><>)<29>̵<EFBFBD>';
FML:='<27><>';
if ShowModal=1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_MPD.Free;
end;
end;
procedure TfrmMPDRKList.N6Click(Sender: TObject);
var
FFMYType:String;
begin
if Order_Main.IsEmpty then Exit;
if Trim(Order_Main.fieldbyname('CRType').AsString)='<27>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>' then
begin
try
frmLLRKInPutMH_MPD:=TfrmLLRKInPutMH_MPD.Create(Application);
with frmLLRKInPutMH_MPD do
begin
PState:=2;
FMainId:=Trim(Self.Order_Main.fieldbyname('RKNo').AsString);
FSubid:=Trim(Self.Order_Main.fieldbyname('MYID').AsString);
FMYType:=Trim(Self.Order_Main.fieldbyname('MYType').AsString);
FMYTypeFlag:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString);
labMYType.Caption:='(<28><>)<29>̵<EFBFBD>';
//Panel5.Visible:=false;
if ShowModal=1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_MPD.Free;
end;
end;
end;
procedure TfrmMPDRKList.ToolButton3Click(Sender: TObject);
begin
try
frmLLRKInPutMH_MPD:=TfrmLLRKInPutMH_MPD.Create(Application);
with frmLLRKInPutMH_MPD do
begin
PState:=0;
FMainId:='';
FSubid:='';
FMYType:='<27>̵<EFBFBD><CCB5><EFBFBD>';
FMYTypeFlag:='CGH';
labMYType.Caption:='(<28><>)<29>̵<EFBFBD>';
FML:='<27><>';
if ShowModal=1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_MPD.Free;
end;
end;
end.
Reference in New Issue Copy Permalink