226 lines
6.0 KiB
ObjectPascal
226 lines
6.0 KiB
ObjectPascal
unit U_CPSMRk;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, RM_System, RM_Common,
|
||
RM_Class, RM_GridReport, RM_Dataset, cxCalendar;
|
||
|
||
type
|
||
TfrmCPSMRk = class(TForm)
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
Panel1: TPanel;
|
||
Button2: TButton;
|
||
Button3: TButton;
|
||
DS_RKJL: TDataSource;
|
||
CDS_RKJL: TClientDataSet;
|
||
PM_RKJL: TPopupMenu;
|
||
MenuItem1: TMenuItem;
|
||
MenuItem2: TMenuItem;
|
||
Button6: TButton;
|
||
RKOrdID: TEdit;
|
||
Label5: TLabel;
|
||
RM1: TRMGridReport;
|
||
ADOQueryPrint: TADOQuery;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label6: TLabel;
|
||
edtScan: TEdit;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
v1Column10: TcxGridDBColumn;
|
||
v2Column3: TcxGridDBColumn;
|
||
v1Column18: TcxGridDBColumn;
|
||
v1Column8: TcxGridDBColumn;
|
||
v1Column9: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column13: TcxGridDBColumn;
|
||
v1Column21: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column2: TcxGridDBColumn;
|
||
v1Column16: TcxGridDBColumn;
|
||
v2Column5: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
v1Column7: TcxGridDBColumn;
|
||
v1Column19: TcxGridDBColumn;
|
||
v1Column20: TcxGridDBColumn;
|
||
v1Column22: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
Button1: TButton;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure MenuItem1Click(Sender: TObject);
|
||
procedure MenuItem2Click(Sender: TObject);
|
||
procedure Button6Click(Sender: TObject);
|
||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char);
|
||
private
|
||
{ Private declarations }
|
||
FBaoId: string;
|
||
procedure InitGrid();
|
||
function CheckData(): Boolean;
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCPSMRk: TfrmCPSMRk;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_Fun, U_ZDYHelp;
|
||
|
||
{$R *.dfm}
|
||
function TfrmCPSMRk.CheckData(): Boolean;
|
||
var
|
||
mvalue: Double;
|
||
begin
|
||
try
|
||
if Trim(RKOrdID.Text) = '' then
|
||
raise Exception.Create('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
|
||
if Trim(edtScan.Text) = '' then
|
||
raise Exception.Create('<27><>ɨ<EFBFBD>裡');
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select count(*) JLS from CK_BanCP_CR where MJID=' + QuotedStr(Trim(edtScan.Text)));
|
||
sql.Add('and CRFlag in (''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ,''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('JLS').AsInteger = 1 then
|
||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
if ADOQueryTemp.fieldbyname('JLS').AsInteger <> 2 then
|
||
raise Exception.Create('<27>ѳ<EFBFBD><D1B3><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Result := True;
|
||
except
|
||
Result := false;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmCPSMRk := nil;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.InitGrid();
|
||
begin
|
||
try
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select A.* ');
|
||
sql.Add(' ,B.orderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.conNo,B.KHconNo ');
|
||
sql.Add(' ,C.PRTColor,C.PRTEColor');
|
||
sql.Add(' from CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId inner join JYOrder_Sub C on A.SubId=C.SubId ');
|
||
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.RKOrdID=' + quotedstr(RKOrdID.Text));
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, CDS_RKJL);
|
||
|
||
SInitCDSData20(ADOQueryMain, CDS_RKJL);
|
||
finally
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxGrid('<27><>Ʒɨ<C6B7><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.Button2Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('<27><>Ʒɨ<C6B7><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.MenuItem1Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_RKJL, True);
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.MenuItem2Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_RKJL, False);
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.Button6Click(Sender: TObject);
|
||
var
|
||
maxno: string;
|
||
begin
|
||
if GetLSNo(ADOQueryCmd, maxno, 'RK', 'CK_BanCP_CR', 4, 1) = False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD>ⵥ<EFBFBD><E2B5A5>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
RKOrdID.Text := Trim(maxno);
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
if not CheckData() then
|
||
exit;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPDATE CK_BanCP_CR Set ');
|
||
sql.add('RKOrdID=' + Quotedstr(Trim(RKOrdID.Text)));
|
||
sql.Add('where CK_BanCP_CR.MJID=' + Quotedstr(Trim(edtScan.Text)));
|
||
sql.Add('and CK_BanCP_CR.CRFlag in (''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') ');
|
||
|
||
sql.Add('UPDATE CK_BanCP_CR Set ');
|
||
sql.add(' CRTime=getdate(),CRType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'',CRFlag=''<27><><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(' where CK_BanCP_CR.MJID=' + Quotedstr(Trim(edtScan.Text)));
|
||
sql.Add('and CK_BanCP_CR.CRFlag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
|
||
sql.Add('UPDATE WFB_MJJY Set ');
|
||
sql.add('RKOrdID=' + Quotedstr(Trim(RKOrdID.Text)));
|
||
sql.add(',MJStr2=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.Add('where WFB_MJJY.MJID=' + Quotedstr(Trim(edtScan.Text)));
|
||
SQL.Add('and WFB_MJJY.MJStr2=''δ<><CEB4><EFBFBD><EFBFBD>'' ');
|
||
ExecSQL;
|
||
end;
|
||
edtScan.Text := '';
|
||
InitGrid();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPSMRk.RKOrdIDKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
InitGrid();
|
||
end;
|
||
|
||
end.
|
||
|