568 lines
16 KiB
ObjectPascal
568 lines
16 KiB
ObjectPascal
unit U_ZdyAttachmentBJ_Edit;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ExtCtrls, cxPC, cxControls, ComCtrls, ToolWin, StdCtrls, Menus,
|
||
cxTextEdit, cxCurrencyEdit, BtnEdit, cxContainer, cxEdit, cxImage, DB,
|
||
ADODB, cxDBEdit, cxLookAndFeelPainters, cxButtons, IdBaseComponent,
|
||
IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, cxStyles,
|
||
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData,
|
||
cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxButtonEdit,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, cxLookAndFeels,
|
||
cxNavigator;
|
||
|
||
type
|
||
TfrmZdyAttachmentBJ_Edit = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
Tsave: TToolButton;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
GroupBox1: TGroupBox;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Label6: TLabel;
|
||
custName: TEdit;
|
||
Label17: TLabel;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
N3: TMenuItem;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryTmp: TADOQuery;
|
||
ADOQuerymain: TADOQuery;
|
||
Label12: TLabel;
|
||
Label39: TLabel;
|
||
FromPlace: TEdit;
|
||
custphone: TEdit;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
note: TMemo;
|
||
Label7: TLabel;
|
||
priceNote: TComboBox;
|
||
Panel2: TPanel;
|
||
Panel3: TPanel;
|
||
ToolBar2: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
TV1: TcxGridDBTableView;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
cxGrid1: TcxGrid;
|
||
CDS1: TClientDataSet;
|
||
Label9: TLabel;
|
||
DS1: TDataSource;
|
||
CRTime: TDateTimePicker;
|
||
DlyDate: TDateTimePicker;
|
||
V1Column1: TcxGridDBColumn;
|
||
V1Column2: TcxGridDBColumn;
|
||
V1Column3: TcxGridDBColumn;
|
||
V1Column4: TcxGridDBColumn;
|
||
Label8: TLabel;
|
||
Priceunit: TComboBox;
|
||
custNo: TBtnEditA;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
huilv: TcxCurrencyEdit;
|
||
V1Column8: TcxGridDBColumn;
|
||
ToPlace: TEdit;
|
||
Label11: TLabel;
|
||
Label13: TLabel;
|
||
custCountry: TBtnEditA;
|
||
V1Column7: TcxGridDBColumn;
|
||
V1Column9: TcxGridDBColumn;
|
||
V1Column10: TcxGridDBColumn;
|
||
V1Column15: TcxGridDBColumn;
|
||
CYID: TEdit;
|
||
V1Column5: TcxGridDBColumn;
|
||
V1Column6: TcxGridDBColumn;
|
||
V1Column11: TcxGridDBColumn;
|
||
TV1Column1: TcxGridDBColumn;
|
||
TV1Column2: TcxGridDBColumn;
|
||
TV1Column3: TcxGridDBColumn;
|
||
TV1Column4: TcxGridDBColumn;
|
||
TV1Column5: TcxGridDBColumn;
|
||
TV1Column6: TcxGridDBColumn;
|
||
TV1Column7: TcxGridDBColumn;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure TsaveClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure cxDBImage1DblClick(Sender: TObject);
|
||
procedure FileNameClick(Sender: TObject);
|
||
procedure MTypeBtnDnClick(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure custNoBtnClick(Sender: TObject);
|
||
procedure PriceunitChange(Sender: TObject);
|
||
procedure V1Column8PropertiesEditValueChanged(Sender: TObject);
|
||
procedure huilvPropertiesEditValueChanged(Sender: TObject);
|
||
procedure custCountryBtnClick(Sender: TObject);
|
||
procedure CYIDKeyPress(Sender: TObject; var Key: Char);
|
||
private
|
||
function savedata():Boolean;
|
||
procedure InitGrid();
|
||
procedure InitImage();
|
||
{ Private declarations }
|
||
public
|
||
fkeyNo:string;
|
||
FType:integer;
|
||
canshu1:string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmZdyAttachmentBJ_Edit: TfrmZdyAttachmentBJ_Edit;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun10, U_ZDYHelp, U_CPManageSel, U_ZdyAttachment;
|
||
{$R *.dfm}
|
||
|
||
function TfrmZdyAttachmentBJ_Edit.savedata():Boolean;
|
||
var
|
||
Filler,fmxType:string;
|
||
FillTime:TdateTime;
|
||
begin
|
||
result:=false;
|
||
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
try
|
||
IF FType=0 then
|
||
begin
|
||
fmxType:='BJ'+uppercase(formatdateTime('yyyyMMdd',DServerDate));
|
||
if GetLSNo(ADOQueryTmp,fkeyNo,fmxType,'KH_CP_BJ',3,0)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
Filler:=DName;
|
||
FillTime:=SGetServerDateTime(adoqueryTmp);
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+'''');
|
||
Open;
|
||
end;
|
||
Filler:=adoqueryTmp.fieldbyname('Filler').AsString;
|
||
FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('delete from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+'''');
|
||
execsql;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+'''');
|
||
Open;
|
||
end;
|
||
with cds1 do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
while not eof do
|
||
begin
|
||
ADOQueryCmd.Append;
|
||
SSetsaveSqlNew(ADOQueryCmd,'KH_CP_BJ',GroupBox1,2);
|
||
RTSetSaveDataCDS(ADOQueryCmd,Tv1,cds1,'KH_CP_BJ',0);
|
||
ADOQueryCmd.FieldByName('BJNO').Value:=trim(fkeyNO);
|
||
ADOQueryCmd.FieldByName('BJID').Value:=recNo;
|
||
ADOQueryCmd.FieldByName('Filler').Value:=Trim(Filler);
|
||
ADOQueryCmd.FieldByName('FillTime').Value:=FillTime;
|
||
ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime);
|
||
ADOQueryCmd.FieldByName('DlyDate').Value:=formatdateTime('yyyy-MM-dd',DlyDate.DateTime);
|
||
ADOQueryCmd.FieldByName('FillTime').Value:=FillTime;
|
||
ADOQueryCmd.FieldByName('Qty').Value:=cds1.fieldbyname('Qty').AsFloat;
|
||
ADOQueryCmd.FieldByName('price').Value:=cds1.fieldbyname('price').AsFloat;
|
||
ADOQueryCmd.FieldByName('price1').Value:=cds1.fieldbyname('price1').AsFloat;
|
||
ADOQueryCmd.FieldByName('price2').Value:=cds1.fieldbyname('price2').AsFloat;
|
||
ADOQueryCmd.FieldByName('price3').Value:=cds1.fieldbyname('price3').AsFloat;
|
||
ADOQueryCmd.FieldByName('BJQty1').Value:=cds1.fieldbyname('BJQty1').AsFloat;
|
||
if FType=1 then
|
||
begin
|
||
ADOQueryCmd.FieldByName('editer').Value:=trim(dName);
|
||
ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp);
|
||
end;
|
||
ADOQueryCmd.Post;
|
||
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
result:=true;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
end;
|
||
end;
|
||
procedure TfrmZdyAttachmentBJ_Edit.InitGrid();
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.* from KH_CP_BJ A');
|
||
sql.Add('where BJNO='+quotedstr(trim(fkeyNo)));
|
||
open;
|
||
end;
|
||
IF not ADOQueryMain.IsEmpty then
|
||
begin
|
||
SCSHDataNew(ADOQueryMain,GroupBox1,2);
|
||
end;
|
||
SCreateCDS20(ADOQueryMain,CDS1);
|
||
SInitCDSData20(ADOQueryMain,CDS1);
|
||
|
||
IF fType=2 then
|
||
begin
|
||
fType:=0;
|
||
fkeyNo:='';
|
||
end;
|
||
end;
|
||
procedure TfrmZdyAttachmentBJ_Edit.InitImage();
|
||
begin
|
||
{ with ADOQueryImage do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from TP_File A');
|
||
sql.Add('where TFid='+quotedstr(trim(zdyCode.Text)));
|
||
open;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmZdyAttachmentBJ_Edit:=nil;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxGrid(self.Caption+'1',Tv1);
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.FormCreate(Sender: TObject);
|
||
begin
|
||
Panel1.Align:=alclient;
|
||
clearControl(GroupBox1,2);
|
||
huilv.Text:='1';
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.TsaveClick(Sender: TObject);
|
||
begin
|
||
// zdyName.SetFocus;
|
||
cxgrid1.SetFocus;
|
||
if cds1.IsEmpty then exit;
|
||
IF trim(custName.Text)='' then
|
||
begin
|
||
application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
IF not savedata() then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
end
|
||
else
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
self.ModalResult:=1;
|
||
end;
|
||
|
||
except
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.FormShow(Sender: TObject);
|
||
begin
|
||
readCxGrid(self.Caption+'1',Tv1);
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.cxDBImage1DblClick(Sender: TObject);
|
||
var
|
||
sFieldName:string;
|
||
fileName:string;
|
||
begin
|
||
{
|
||
IF TcxDBImage(Sender).Picture.Height=0 then exit;
|
||
|
||
sFieldName:='D:\ͼƬ<CDBC>鿴';
|
||
|
||
if not DirectoryExists(pchar(sFieldName)) then
|
||
CreateDirectory(pchar(sFieldName),nil);
|
||
|
||
fileName:=adoqueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring;
|
||
|
||
sFieldName:=sFieldName+'\'+trim(fileName);
|
||
try
|
||
IdFTP1.Host := PicSvr;
|
||
IdFTP1.Username := 'three';
|
||
IdFTP1.Password := '641010';
|
||
IdFTP1.Connect();
|
||
except
|
||
;
|
||
end;
|
||
|
||
if IdFTP1.Connected then
|
||
begin
|
||
try
|
||
IdFTP1.Get('TP\'+ Trim(fileName), sFieldName,false, true);
|
||
except
|
||
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox('<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
if IdFTP1.Connected then IdFTP1.Quit;
|
||
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); }
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.FileNameClick(Sender: TObject);
|
||
begin
|
||
{IF trim(custNo.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
FormGetPic := TFormGetPic.Create(Application);
|
||
with FormGetPic do
|
||
begin
|
||
fkeyNO:=trim(zdyCode.Text);
|
||
pat1:=TCXbutton(Sender).Name;
|
||
pic1:=TCXbutton(Sender).Hint;
|
||
FTFType:='<27><>Ʒ';
|
||
// pat1:='PatFile1';
|
||
// pic1:='Picture1';
|
||
IF ShowModal = 1 then
|
||
begin
|
||
// self.Timage(Tbutton(Sender).Hint).Picture.Assign(FormGetPic.Image2.Picture.Bitmap);
|
||
zdycode.Enabled:=false;
|
||
end;
|
||
|
||
Release;
|
||
end;
|
||
Initimage();
|
||
except
|
||
if FormGetPic<>nil then FormGetPic.Release;
|
||
end;}
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.MTypeBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text:='';
|
||
TBtnEditC(Sender).TxtCode:='';
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
IF CDS1.IsEmpty then exit;
|
||
CDS1.Delete;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
frmCPManageSel:=TfrmCPManageSel.create(self);
|
||
with frmCPManageSel do
|
||
begin
|
||
IF showmodal=1 then
|
||
begin
|
||
cds_main.DisableControls;
|
||
cds_main.first;
|
||
while not cds_main.Eof do
|
||
begin
|
||
if cds_main.FieldByName('ssel').AsBoolean then
|
||
begin
|
||
cds1.append;
|
||
|
||
|
||
cds1.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('CYNo').AsString);
|
||
cds1.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('CYName').AsString);
|
||
cds1.FieldByName('P_CodeNameE').Value:=trim(cds_main.fieldbyname('CYEName').AsString);
|
||
cds1.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('CYSpec').AsString);
|
||
cds1.FieldByName('P_cf').Value:=trim(cds_main.fieldbyname('CYECF').AsString);
|
||
cds1.FieldByName('P_MF').Value:=trim(cds_main.fieldbyname('CYMF').AsString);
|
||
cds1.FieldByName('P_KZ').Value:=trim(cds_main.fieldbyname('CYKZ').AsString);
|
||
cds1.FieldByName('BJstr7').Value:=trim(cds_main.fieldbyname('defstr14').AsString);
|
||
cds1.FieldByName('Finish').Value:=trim(cds_main.fieldbyname('Finish').AsString);
|
||
cds1.FieldByName('Price').Value:=cds_main.fieldbyname('Price6').AsFloat;
|
||
cds1.FieldByName('BJQty1').Value:=cds_main.fieldbyname('kcQty').AsFloat;
|
||
cds1.Post;
|
||
end;
|
||
cds_main.next;
|
||
end;
|
||
cds_main.EnableControls;
|
||
end;
|
||
free;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.custNoBtnClick(Sender: TObject);
|
||
begin
|
||
// frmZdyAttachment:=TfrmZdyAttachment.create(self);
|
||
// with frmZdyAttachment do
|
||
// begin
|
||
// if canshu1='ҵ<><D2B5>Ա' then fywy:=DName;
|
||
// if showmodal=1 then
|
||
// begin
|
||
// custNo.Text:=trim(cds_hz.fieldbyname('zdyCode').AsString);
|
||
// custName.Text:=trim(cds_hz.fieldbyname('zdyName').AsString);
|
||
// custCountry.Text:=trim(cds_hz.fieldbyname('DEFStr7').AsString);
|
||
// custphone.Text:=trim(cds_hz.fieldbyname('DEFstr1').AsString);
|
||
// end;
|
||
// free;
|
||
// end;
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='custno';
|
||
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
custno.Text:=Trim(ClientDataSet1.fieldbyname('zdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.PriceunitChange(Sender: TObject);
|
||
begin
|
||
IF trim(huilv.Text)='' then
|
||
begin
|
||
huilv.Text:='1';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.V1Column8PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,FFieldName:string;
|
||
begin
|
||
{ mvalue:=TcxTextEdit(Sender).EditingText;
|
||
if Trim(mvalue)='' then
|
||
begin
|
||
mvalue:='0';
|
||
end;
|
||
FFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
with CDS1 do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value:=Trim(mvalue);
|
||
FieldByName('Price').Value:=format('%.2f',[fieldbyname('Price1').AsFloat * strtofloatdef(trim(huilv.Text),1)]);
|
||
Post;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();}
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.huilvPropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,FFieldName:string;
|
||
begin
|
||
mvalue:=TcxCurrencyEdit(Sender).EditingText;
|
||
if Trim(mvalue)='' then
|
||
begin
|
||
mvalue:='1';
|
||
end;
|
||
huilv.Text:= mvalue;
|
||
IF not cds1.Active then exit;
|
||
IF cds1.IsEmpty then exit;
|
||
with cds1 do
|
||
begin
|
||
DisableControls;
|
||
first;
|
||
while not eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('Price').Value:=format('%.2f',[fieldbyname('Price1').AsFloat * strtofloatdef(trim(huilv.Text),1)]);
|
||
Post;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.custCountryBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='custCountry';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
custCountry.Text:=Trim(ClientDataSet1.fieldbyname('zdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZdyAttachmentBJ_Edit.CYIDKeyPress(Sender: TObject;
|
||
var Key: Char);
|
||
begin
|
||
IF key=#13 then
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from CP_YDang where CYID='''+trim(CYID.Text)+''' ');
|
||
open;
|
||
end;
|
||
IF not ADOQueryTmp.IsEmpty then
|
||
begin
|
||
cds1.append;
|
||
cds1.FieldByName('P_Code').Value:=trim(ADOQueryTmp.fieldbyname('CYNo').AsString);
|
||
cds1.FieldByName('P_CodeName').Value:=trim(ADOQueryTmp.fieldbyname('CYName').AsString);
|
||
cds1.FieldByName('P_CodeNameE').Value:=trim(ADOQueryTmp.fieldbyname('CYEName').AsString);
|
||
cds1.FieldByName('P_spec').Value:=trim(ADOQueryTmp.fieldbyname('CYSpec').AsString);
|
||
cds1.FieldByName('P_cf').Value:=trim(ADOQueryTmp.fieldbyname('CYCF').AsString);
|
||
cds1.FieldByName('P_MF').Value:=trim(ADOQueryTmp.fieldbyname('CYMF').AsString);
|
||
cds1.FieldByName('P_KZ').Value:=trim(ADOQueryTmp.fieldbyname('CYKZ').AsString);
|
||
cds1.FieldByName('BJstr7').Value:=trim(ADOQueryTmp.fieldbyname('defstr14').AsString);
|
||
cds1.FieldByName('Price').Value:=ADOQueryTmp.fieldbyname('Price6').AsFloat;
|
||
// cds1.FieldByName('BJQty1').Value:=ADOQueryTmp.fieldbyname('kcQty').AsFloat;
|
||
cds1.Post;
|
||
CYID.Text:='';
|
||
end
|
||
else
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
CYID.Text:='';
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end.
|