1010 lines
28 KiB
ObjectPascal
1010 lines
28 KiB
ObjectPascal
unit U_MJEdit;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
|
||
cxButtonEdit, cxCheckBox;
|
||
|
||
type
|
||
TfrmMJEditPB = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
ToolButton2: TToolButton;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
MJID: TEdit;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
tv2CDType: TcxGridDBColumn;
|
||
tv2CDWZ: TcxGridDBColumn;
|
||
v2Column2: TcxGridDBColumn;
|
||
Tv2CDQty: TcxGridDBColumn;
|
||
Tv2CDReason: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
ADOTmp: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
Order_MJ: TClientDataSet;
|
||
ToolButton1: TToolButton;
|
||
ToolButton3: TToolButton;
|
||
Label2: TLabel;
|
||
MJMaoZ: TEdit;
|
||
Label4: TLabel;
|
||
RadioGroup1: TRadioGroup;
|
||
Label10: TLabel;
|
||
ToolButton4: TToolButton;
|
||
RadioGroup2: TRadioGroup;
|
||
RadioGroup3: TRadioGroup;
|
||
Label14: TLabel;
|
||
AddMoney: TEdit;
|
||
Label15: TLabel;
|
||
DelMoney: TEdit;
|
||
Label5: TLabel;
|
||
JXPerson: TComboBox;
|
||
Label8: TLabel;
|
||
SCPerson: TComboBox;
|
||
Label3: TLabel;
|
||
JBStr: TEdit;
|
||
Label9: TLabel;
|
||
JBSCPerson: TComboBox;
|
||
Label11: TLabel;
|
||
JBZhuanQty: TEdit;
|
||
Label13: TLabel;
|
||
LBDate: TDateTimePicker;
|
||
Label16: TLabel;
|
||
Label17: TLabel;
|
||
MJJingZ: TEdit;
|
||
Label18: TLabel;
|
||
Label19: TLabel;
|
||
MJPiZ: TEdit;
|
||
Label20: TLabel;
|
||
ClothType: TComboBox;
|
||
v2Column3: TcxGridDBColumn;
|
||
Label7: TLabel;
|
||
Label12: TLabel;
|
||
JBSCPerson2: TComboBox;
|
||
JBZhuanQty2: TEdit;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
DSMoney: TDataSource;
|
||
CDS_Money: TClientDataSet;
|
||
Label6: TLabel;
|
||
KuWei: TEdit;
|
||
v2Column4: TcxGridDBColumn;
|
||
Label21: TLabel;
|
||
v2Column5: TcxGridDBColumn;
|
||
Label22: TLabel;
|
||
APBatchNo: TEdit;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure MJIDKeyPress(Sender: TObject; var Key: Char);
|
||
procedure tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure ToolButton4Click(Sender: TObject);
|
||
procedure MDblClick(Sender: TObject);
|
||
procedure JBStrClick(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
private
|
||
{ Private declarations }
|
||
function SaveData(): Boolean;
|
||
procedure InitSCPerson();
|
||
public
|
||
Fint: Integer;
|
||
FFFLage: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmMJEditPB: TfrmMJEditPB;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_Fun, U_ZDYHelp, U_DataLink, U_SCPerson;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmMJEditPB.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmMJEditPB := nil;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.MJIDKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.* ');
|
||
sql.Add(' from WFB_MJJY_PB A');
|
||
sql.Add(' where A.MJID=''' + Trim(MJID.Text) + '''');
|
||
Open;
|
||
end;
|
||
|
||
if ADOTmp.IsEmpty then
|
||
begin
|
||
MJID.Text := '';
|
||
Label2.Caption := '';
|
||
Label2.Visible := False;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
if Trim(ADOTmp.fieldbyname('LBDate').AsString) <> '' then
|
||
begin
|
||
LBDate.Checked := True;
|
||
LBDate.Date := ADOTmp.fieldbyname('LBDate').Value;
|
||
end
|
||
else
|
||
begin
|
||
LBDate.Date := Now;
|
||
LBDate.Checked := False;
|
||
end;
|
||
APBatchNo.Text := Trim(ADOTmp.fieldbyname('APBatchNo').AsString);
|
||
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
|
||
//MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString);
|
||
MJJingZ.Text := Trim(ADOTmp.fieldbyname('MJJingZ').AsString);
|
||
KuWei.Text := Trim(ADOTmp.fieldbyname('KuWei').AsString);
|
||
MJPiZ.Text := Trim(ADOTmp.fieldbyname('MJPiZ').AsString);
|
||
SCPerson.ItemIndex := SCPerson.Items.IndexOf(Trim(ADOTmp.fieldbyname('SCPerson').AsString));
|
||
JXPerson.ItemIndex := JXPerson.Items.IndexOf(Trim(ADOTmp.fieldbyname('JXPerson').AsString));
|
||
ClothType.ItemIndex := ClothType.Items.IndexOf(Trim(ADOTmp.fieldbyname('ClothType').AsString));
|
||
AddMoney.Text := Trim(ADOTmp.fieldbyname('AddMoney').AsString);
|
||
DelMoney.Text := Trim(ADOTmp.fieldbyname('DelMoney').AsString);
|
||
JBStr.Text := Trim(ADOTmp.fieldbyname('JBStr').AsString);
|
||
JBZhuanQty.Text := Trim(ADOTmp.fieldbyname('JBZhuanQty').AsString);
|
||
JBSCPerson.ItemIndex := JBSCPerson.Items.IndexOf(Trim(ADOTmp.fieldbyname('JBSCPerson').AsString));
|
||
JBZhuanQty2.Text := Trim(ADOTmp.fieldbyname('JBZhuanQty2').AsString);
|
||
JBSCPerson2.ItemIndex := JBSCPerson2.Items.IndexOf(Trim(ADOTmp.fieldbyname('JBSCPerson2').AsString));
|
||
DelMoney.Text := Trim(ADOTmp.fieldbyname('DelMoney').AsString);
|
||
// M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString));
|
||
{if Trim(m.Caption)='' then
|
||
begin
|
||
m.Caption:='M';
|
||
end;}
|
||
if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><>Ʒ' then
|
||
begin
|
||
RadioGroup1.ItemIndex := 0
|
||
end
|
||
else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><>Ʒ' then
|
||
begin
|
||
RadioGroup1.ItemIndex := 1;
|
||
end
|
||
else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
RadioGroup1.ItemIndex := 2;
|
||
end;
|
||
if Trim(Trim(ADOTmp.fieldbyname('MJstr1').AsString)) = '<27><>ƥ' then
|
||
begin
|
||
RadioGroup2.ItemIndex := 0;
|
||
end;
|
||
if Trim(Trim(ADOTmp.fieldbyname('MJstr1').AsString)) = '<27><>ƥ' then
|
||
begin
|
||
RadioGroup2.ItemIndex := 1;
|
||
end;
|
||
if Trim(Trim(ADOTmp.fieldbyname('MJstr3').AsString)) = 'dzɫ' then
|
||
begin
|
||
RadioGroup3.ItemIndex := 2;
|
||
end;
|
||
if Trim(Trim(ADOTmp.fieldbyname('MJstr3').AsString)) = '<27><>ɫ' then
|
||
begin
|
||
RadioGroup3.ItemIndex := 0;
|
||
end
|
||
else if Trim(Trim(ADOTmp.fieldbyname('MJstr3').AsString)) = 'Ư<><C6AF>' then
|
||
begin
|
||
RadioGroup3.ItemIndex := 1;
|
||
end
|
||
else
|
||
begin
|
||
RadioGroup3.ItemIndex := 3;
|
||
end;
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from WFB_MJJY_JiangFa A where A.MJID=''' + Trim(MJID.Text) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTmp, CDS_Money);
|
||
SInitCDSData20(ADOTmp, CDS_Money);
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from WFB_MJJY_CD_PB A where A.MJID=''' + Trim(MJID.Text) + '''');
|
||
Open;
|
||
end;
|
||
Label2.Caption := Trim(MJID.Text);
|
||
Label2.Visible := True;
|
||
MJID.Text := '';
|
||
SCreateCDS20(ADOTmp, Order_MJ);
|
||
SInitCDSData20(ADOTmp, Order_MJ);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'WFBCPBZZ';
|
||
flagname := '<27>õ<EFBFBD>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.Order_MJ.Edit;
|
||
Self.Order_MJ.FieldByName('CDName').value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if Trim(Label2.Caption) = '' then
|
||
Exit;
|
||
if Fint = 1 then
|
||
begin
|
||
Order_MJ.Append;
|
||
Order_MJ.Post;
|
||
end
|
||
else
|
||
begin
|
||
CDS_Money.Append;
|
||
CDS_Money.Post;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
if Trim(Label2.Caption) = '' then
|
||
Exit;
|
||
if Fint = 1 then
|
||
begin
|
||
if Order_MJ.IsEmpty then
|
||
Exit;
|
||
if Trim(Order_MJ.fieldbyname('MCID').AsString) <> '' then
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete WFB_MJJY_CD_PB where MCID=''' + Trim(Order_MJ.fieldbyname('MCID').AsString) + '''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
Order_MJ.Delete;
|
||
end
|
||
else if Fint = 2 then
|
||
begin
|
||
if CDS_Money.IsEmpty then
|
||
Exit;
|
||
if Trim(CDS_Money.fieldbyname('MFID').AsString) <> '' then
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('insert into WFB_MJJY_JiangFa_DelLog ');
|
||
sql.Add('select * from WFB_MJJY_JiangFa where MFID=''' + Trim(CDS_Money.fieldbyname('MFID').AsString) + '''');
|
||
sql.Add('delete WFB_MJJY_JiangFa where MFID=''' + Trim(CDS_Money.fieldbyname('MFID').AsString) + '''');
|
||
sql.Add(' update WFB_MJJY_JiangFa_DelLog Set Editer=''' + Trim(DName) + ''',EditTime=getdate() ');
|
||
sql.Add(' where MFID=''' + Trim(CDS_Money.fieldbyname('MFID').AsString) + '''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPdate WFB_MJJY_PB Set AddMoney=(select Sum(AddMoney) from WFB_MJJY_JiangFa A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(',DelMoney=(select Sum(DelMoney) from WFB_MJJY_JiangFa A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(' where MJID=''' + Trim(CDS_Money.fieldbyname('MJID').AsString) + '''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
CDS_Money.Delete;
|
||
end;
|
||
|
||
end;
|
||
|
||
function TfrmMJEditPB.SaveData(): Boolean;
|
||
var
|
||
maxno, FFOrderNo, FCarNO: string;
|
||
FFreal: Double;
|
||
begin
|
||
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from WFB_MJJY_PB where MJID=''' + Trim(Label2.Caption) + '''');
|
||
open;
|
||
end;
|
||
FFOrderNo := Trim(ADOTmp.fieldbyname('FOrderNo').AsString);
|
||
FCarNO := Trim(ADOTmp.fieldbyname('CarNO').AsString);
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD>
|
||
with Order_MJ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD_PB', 5, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxno := Trim(Order_MJ.fieldbyname('MCID').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFB_MJJY_CD_PB ');
|
||
sql.Add(' where MCID=''' + Trim(maxno) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MJId').Value := Trim(Label2.Caption);
|
||
FieldByName('MCID').Value := Trim(maxno);
|
||
SSetSaveDataCDSNew(ADOCmd, Tv2, Order_MJ, 'WFB_MJJY_CD', 0);
|
||
Post;
|
||
end;
|
||
|
||
Order_MJ.Edit;
|
||
Order_MJ.FieldByName('MCID').Value := Trim(maxno);
|
||
Order_MJ.FieldByName('MJID').Value := Trim(Label2.Caption);
|
||
Next;
|
||
end;
|
||
end;
|
||
///<2F><><EFBFBD>潱<EFBFBD><E6BDB1><EFBFBD><EFBFBD>
|
||
with CDS_Money do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(CDS_Money.fieldbyname('MFID').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOTmp, maxno, 'MF', 'WFB_MJJY_JiangFa', 4, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxno := Trim(CDS_Money.fieldbyname('MFID').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFB_MJJY_JiangFa ');
|
||
sql.Add(' where MFID=''' + Trim(maxno) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(CDS_Money.fieldbyname('MFID').AsString) = '' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MJId').Value := Trim(Label2.Caption);
|
||
FieldByName('MFID').Value := Trim(maxno);
|
||
SSetSaveDataCDSNew(ADOCmd, Tv1, CDS_Money, 'WFB_MJJY_JiangFa', 0);
|
||
Post;
|
||
end;
|
||
|
||
CDS_Money.Edit;
|
||
CDS_Money.FieldByName('MFID').Value := Trim(maxno);
|
||
CDS_Money.FieldByName('MJID').Value := Trim(Label2.Caption);
|
||
Next;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPdate WFB_MJJY_PB Set AddMoney=(select Sum(AddMoney) from WFB_MJJY_JiangFa A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(',DelMoney=(select Sum(DelMoney) from WFB_MJJY_JiangFa A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
if Trim(MJMaoZ.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(MJMaoZ.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ë<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(MJJingZ.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(MJJingZ.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(MJPiZ.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(MJMaoZ.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('Ƥ<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPdate WFB_MJJY_PB Set ');
|
||
sql.Add(' SCPerson=''' + Trim(SCPerson.Text) + '''');
|
||
sql.Add(',JXPerson=''' + Trim(JXPerson.Text) + '''');
|
||
sql.Add(',ClothType=''' + Trim(ClothType.Text) + '''');
|
||
sql.Add(',KuWei=''' + Trim(KuWei.Text) + '''');
|
||
sql.Add(',APBatchNo=''' + Trim(APBatchNo.Text) + '''');
|
||
sql.Add(',Editer=''' + Trim(DName) + '''');
|
||
sql.Add(',EditTime=getdate()');
|
||
if Trim(MJJingZ.Text) <> '' then
|
||
begin
|
||
sql.Add(',MJJingZ=' + Trim(MJJingZ.Text));
|
||
sql.Add(',MJMaoZ=' + Trim(MJJingZ.Text));
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',MJJingZ=0');
|
||
end;
|
||
if Trim(MJPiZ.Text) <> '' then
|
||
begin
|
||
sql.Add(',MJPiZ=' + Trim(MJPiZ.Text));
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',MJPiZ=0');
|
||
end;
|
||
|
||
{if Trim(MJMaoZ.Text)<>'' then
|
||
begin
|
||
sql.Add(',MJMaoZ='+Trim(MJMaoZ.Text));
|
||
end else
|
||
begin
|
||
sql.Add(',MJMaoZ=0');
|
||
end; }
|
||
|
||
if RadioGroup1.ItemIndex = 0 then
|
||
begin
|
||
sql.Add(',MJType=''<27><>Ʒ'' ');
|
||
end
|
||
else if RadioGroup1.ItemIndex = 1 then
|
||
begin
|
||
sql.Add(',MJType=''<27><>Ʒ'' ');
|
||
end
|
||
else if RadioGroup1.ItemIndex = 2 then
|
||
begin
|
||
sql.Add(',MJType=''<27><><EFBFBD><EFBFBD>'' ');
|
||
end;
|
||
if RadioGroup2.ItemIndex = 0 then
|
||
begin
|
||
sql.Add(',mjstr1=''<27><>ƥ'' ');
|
||
end;
|
||
if RadioGroup2.ItemIndex = 1 then
|
||
begin
|
||
sql.Add(',mjstr1=''<27><>ƥ'' ');
|
||
end;
|
||
if RadioGroup2.ItemIndex = 2 then
|
||
begin
|
||
sql.Add(',mjstr1='''' ');
|
||
end;
|
||
|
||
if RadioGroup3.ItemIndex = 0 then
|
||
begin
|
||
sql.Add(',mjstr3=''<27><>ɫ'' ');
|
||
end;
|
||
if RadioGroup3.ItemIndex = 1 then
|
||
begin
|
||
sql.Add(',mjstr3=''Ư<><C6AF>'' ');
|
||
end;
|
||
if RadioGroup3.ItemIndex = 2 then
|
||
begin
|
||
sql.Add(',mjstr3=''dzɫ'' ');
|
||
end;
|
||
if RadioGroup3.ItemIndex = 3 then
|
||
begin
|
||
sql.Add(',mjstr3='''' ');
|
||
end;
|
||
|
||
if Trim(JBStr.Text) <> '' then
|
||
begin
|
||
sql.Add(',JBStr=''<27><>'' ');
|
||
sql.Add(',JBSCPerson=''' + Trim(JBSCPerson.Text) + '''');
|
||
sql.Add(',JBZhuanQty=' + Trim(JBZhuanQty.Text));
|
||
sql.Add(',JBSCPerson2=''' + Trim(JBSCPerson2.Text) + '''');
|
||
if Trim(JBZhuanQty2.Text) <> '' then
|
||
sql.Add(',JBZhuanQty2=' + Trim(JBZhuanQty2.Text))
|
||
else
|
||
sql.Add(',JBZhuanQty2=Null ');
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',JBStr=Null ');
|
||
sql.Add(',JBSCPerson=Null ');
|
||
sql.Add(',JBZhuanQty=Null ');
|
||
sql.Add(',JBSCPerson2=Null ');
|
||
sql.Add(',JBZhuanQty2=Null ');
|
||
//sql.Add(',MJQty4=Null ');
|
||
end;
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
|
||
if Trim(FFFLage) <> '<27>ѳ<EFBFBD><D1B3><EFBFBD>' then
|
||
begin
|
||
sql.Add('UPdate CK_PBCP_KC Set KCQtyUnit='''' ');
|
||
if Trim(MJJingZ.Text) <> '' then
|
||
begin
|
||
sql.Add(',KCKGQty=' + Trim(MJJingZ.Text));
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',KCKGQty=0');
|
||
end;
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + ''' and KCKGQty>0');
|
||
|
||
sql.Add('UPdate CK_PBCP_CR Set QtyUnit='''' ');
|
||
if Trim(MJJingZ.Text) <> '' then
|
||
begin
|
||
sql.Add(',KGQty=' + Trim(MJJingZ.Text));
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',KGQty=0');
|
||
end;
|
||
sql.Add(',CPType=''' + Trim(ClothType.Text) + '''');
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
|
||
end;
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('UPdate WFB_MJJY_PB Set ');
|
||
sql.Add(' CDQK=dbo.F_Get_Order_SubStr_PB(WFB_MJJY_PB.MJID,''MJCDHZFM'') ');
|
||
sql.Add(',HZYJZP=(select sum(YJZP) from WFB_MJJY_CD_PB A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(' ,ZZPerson=dbo.F_Get_Order_SubStr_PB(WFB_MJJY_PB.MJID,''ZZPerson'') ');
|
||
sql.Add(',CDGS=(select Count(*) from WFB_MJJY_CD_PB A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(',CDHZQty=(select sum(CDQty) from WFB_MJJY_CD_PB A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(',CDHZKgQty=(select sum(CDKgQty) from WFB_MJJY_CD_PB A where A.MJID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(',APXH=(select XHInt from JYCon_Sub_AnPai A where A.APID=WFB_MJJY_PB.MJID)');
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('update WFB_MJJY_PB set ZZPersonCode=X.UserID from SY_User X where X.Udept=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and X.UserName=WFB_MJJY_PB.SCPerson and WFB_MJJY_PB.MJID=''' + Trim(Label2.Caption) + '''');
|
||
SQL.Add('update WFB_MJJY_PB set JBSCPersonCode=X.UserID from SY_User X where X.Udept=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and X.UserName=WFB_MJJY_PB.JBSCPerson and WFB_MJJY_PB.MJID=''' + Trim(Label2.Caption) + '''');
|
||
SQL.Add('update WFB_MJJY_PB set JBSCPerson2Code=X.UserID from SY_User X where X.Udept=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and X.UserName=WFB_MJJY_PB.JBSCPerson2 and WFB_MJJY_PB.MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Do_PBJYCRK @MJID=' + quotedstr(Trim(Label2.Caption)));
|
||
ExecSQL;
|
||
end;
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.ToolButton2Click(Sender: TObject);
|
||
var
|
||
mvalue: Double;
|
||
begin
|
||
if Trim(Label2.Caption) = '' then
|
||
Exit;
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_PBCP_CR where CRFlag=''<27><><EFBFBD><EFBFBD>'' and MJID=''' + Trim(Label2.Caption) + '''');
|
||
Open;
|
||
end;
|
||
if ADOTmp.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBStr.Text) <> '' then
|
||
begin
|
||
if (Trim(JBSCPerson.Text) = '') and (Trim(JBSCPerson2.Text) = '') then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><EFBFBD><F1BDBBB0><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBSCPerson.Text) = Trim(SCPerson.Text) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD>뵲<EFBFBD><EBB5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBSCPerson2.Text) = Trim(SCPerson.Text) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD>뵲<EFBFBD><EBB5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if (Trim(JBZhuanQty.Text) = '') and (Trim(JBZhuanQty2.Text) = '') then
|
||
begin
|
||
Application.MessageBox('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>뽻<EFBFBD><EBBDBB>ת<EFBFBD><D7AA>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBSCPerson2.Text) <> '' then
|
||
begin
|
||
if Trim(JBZhuanQty2.Text) = '' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>2<EFBFBD><32><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(JBSCPerson.Text) <> '' then
|
||
begin
|
||
if Trim(JBZhuanQty.Text) = '' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>1<EFBFBD><31><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(JBZhuanQty2.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JBZhuanQty2.Text, mvalue) = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>2<EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBSCPerson2.Text) = '' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
//FJBZhuanQty2:=Trim(JBZhuanQty2.Text);
|
||
end
|
||
else
|
||
begin
|
||
//FJBZhuanQty2:='0';
|
||
end;
|
||
if Trim(JBZhuanQty.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JBZhuanQty.Text, mvalue) = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>1<EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if Trim(JBSCPerson.Text) = '' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><31>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
//FJBZhuanQty:=Trim(JBZhuanQty.Text);
|
||
end
|
||
else
|
||
begin
|
||
//FJBZhuanQty:='0';
|
||
end;
|
||
{ with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select ZhuanQty,PiKgQty from CLoth_Sub where Mainid='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
|
||
if (StrToInt(FJBZhuanQty)+StrToInt(FJBZhuanQty2))>(StrToFloat(MJJingZ.Text)*1.00/ADOTmp.FieldByName('PiKgQty').AsFloat)*ADOTmp.FieldByName('ZhuanQty').AsInteger then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end; }
|
||
end;
|
||
MJID.SetFocus;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
WriteCxGrid('<27><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>', Tv2, 'Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.FormShow(Sender: TObject);
|
||
var
|
||
key: char;
|
||
begin
|
||
ReadCxGrid('<27><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>', Tv2, 'Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
FFFLage := '';
|
||
if Trim(Label2.Caption) <> '' then
|
||
begin
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_PBCP_CR where MJID=''' + Trim(Label2.Caption) + '''');
|
||
Open;
|
||
end;
|
||
if ADOTmp.RecordCount > 1 then
|
||
begin
|
||
MJPiZ.ReadOnly := True;
|
||
MJMaoZ.ReadOnly := True;
|
||
MJJingZ.ReadOnly := True;
|
||
FFFLage := '<27>ѳ<EFBFBD><D1B3><EFBFBD>';
|
||
end
|
||
else
|
||
begin
|
||
MJPiZ.ReadOnly := False;
|
||
MJMaoZ.ReadOnly := False;
|
||
MJJingZ.ReadOnly := False;
|
||
end;
|
||
end;
|
||
key := #13;
|
||
MJIDKeyPress(MJID, key);
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.ToolButton4Click(Sender: TObject);
|
||
begin
|
||
if CDS_Money.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>н<EFBFBD><D0BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_PBCP_CR where MJID=''' + Trim(Label2.Caption) + '''');
|
||
Open;
|
||
end;
|
||
if ADOTmp.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end
|
||
else
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ָܻ<DCBB><D6B8><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('insert into WFB_MJJY_PB_DelLog ');
|
||
sql.Add('select * from WFB_MJJY_PB where MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' Update WFB_MJJY_PB_DelLog Set Note=Isnull(Note,'''')+''<27><>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>:''+''' + Trim(DName) + '''');
|
||
sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)');
|
||
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete WFB_MJJY_PB where MJID=''' + Trim(Label2.Caption) + '''');
|
||
sql.Add('delete WFB_MJJY_CD_PB where MJID=''' + Trim(Label2.Caption) + '''');
|
||
ExecSQL;
|
||
end;
|
||
Label2.Caption := '';
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.MDblClick(Sender: TObject);
|
||
begin
|
||
{if Trim(M.Caption)='M' then
|
||
begin
|
||
M.Caption:='Y';
|
||
end else
|
||
begin
|
||
M.Caption:='M';
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.JBStrClick(Sender: TObject);
|
||
begin
|
||
if Trim(JBStr.Text) = '' then
|
||
begin
|
||
JBStr.Text := '<27><>';
|
||
end
|
||
else
|
||
begin
|
||
JBStr.Text := '';
|
||
JBSCPerson.Text := '';
|
||
JBZhuanQty.Text := '';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.FormCreate(Sender: TObject);
|
||
begin
|
||
InitSCPerson();
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.InitSCPerson();
|
||
var
|
||
fsj: string;
|
||
begin
|
||
fsj := 'select Name=ZdyName from KH_Zdy where Type=''SCPerson'' ';
|
||
// fsj := 'select Name =UserName from SY_User where Udept=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ';
|
||
SInitComBoxBySql(ADOTmp, JBSCPerson, True, fsj);
|
||
JBSCPerson.ItemIndex := -1;
|
||
SInitComBoxBySql(ADOTmp, JBSCPerson2, True, fsj);
|
||
JBSCPerson2.ItemIndex := -1;
|
||
SInitComBoxBySql(ADOTmp, SCPerson, True, fsj);
|
||
SCPerson.ItemIndex := -1;
|
||
|
||
fsj := 'select Name=ZdyName from KH_Zdy where Type=''JXPerson'' ';
|
||
SInitComBoxBySql(ADOTmp, JXPerson, True, fsj);
|
||
JXPerson.ItemIndex := -1;
|
||
fsj := 'select Name=ZdyName from KH_Zdy where Type=''ClothType'' ';
|
||
SInitComBoxBySql(ADOTmp, ClothType, True, fsj);
|
||
ClothType.ItemIndex := -1;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
Fint := 1;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
Fint := 2;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
// try
|
||
// frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
// with frmZDYHelp do
|
||
// begin
|
||
// flag := 'SCPerson';
|
||
// flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// with Self.Order_MJ do
|
||
// begin
|
||
// Edit;
|
||
// FieldByName('ZZPerson').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// finally
|
||
// frmZDYHelp.Free;
|
||
// end;
|
||
try
|
||
frmSCPerson := TfrmSCPerson.Create(self);
|
||
with frmSCPerson do
|
||
begin
|
||
FlagStr := 'SCPerson';
|
||
if ShowModal = 1 then
|
||
begin
|
||
with Self.Order_MJ do
|
||
begin
|
||
Edit;
|
||
FieldByName('ZZPerson').Value := Trim(frmSCPerson.FSDPerson);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmSCPerson.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEditPB.cxGridDBColumn2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
|
||
try
|
||
frmSCPerson := TfrmSCPerson.Create(self);
|
||
with frmSCPerson do
|
||
begin
|
||
FlagStr := 'SCPerson';
|
||
if ShowModal = 1 then
|
||
begin
|
||
with Self.CDS_Money do
|
||
begin
|
||
Edit;
|
||
FieldByName('ZZPerson').Value := Trim(frmSCPerson.FSDPerson);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmSCPerson.Free;
|
||
end;
|
||
// try
|
||
// frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
// with frmZDYHelp do
|
||
// begin
|
||
// flag := 'SCPerson';
|
||
// flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// with Self.CDS_Money do
|
||
// begin
|
||
// Edit;
|
||
// FieldByName('ZZPerson').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// finally
|
||
// frmZDYHelp.Free;
|
||
// end;
|
||
end;
|
||
|
||
end.
|
||
|