576 lines
15 KiB
ObjectPascal
576 lines
15 KiB
ObjectPascal
unit U_ZHKHInPutTabNew;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
|
||
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
|
||
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg,
|
||
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu,IdGlobal;
|
||
|
||
type
|
||
TfrmZHKHInPutTabNew = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
ADOQuery1: TADOQuery;
|
||
cxPageControl1: TcxPageControl;
|
||
cxTabSheet1: TcxTabSheet;
|
||
cxTabSheet2: TcxTabSheet;
|
||
cxTabSheet3: TcxTabSheet;
|
||
cxTabSheet4: TcxTabSheet;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column1: TcxGridDBColumn;
|
||
v1Column2: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column7: TcxGridDBColumn;
|
||
v1Column8: TcxGridDBColumn;
|
||
v1Column9: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Panel5: TPanel;
|
||
cxTabSheet7: TcxTabSheet;
|
||
v1Column10: TcxGridDBColumn;
|
||
Label14: TLabel;
|
||
Label15: TLabel;
|
||
Label19: TLabel;
|
||
Label20: TLabel;
|
||
Label21: TLabel;
|
||
Label22: TLabel;
|
||
CWPhone: TEdit;
|
||
CWPerson: TEdit;
|
||
CWEmail: TEdit;
|
||
CWQQ: TEdit;
|
||
CWMSN: TEdit;
|
||
CWSKYPE: TEdit;
|
||
Label23: TLabel;
|
||
CWKJAddress: TEdit;
|
||
ToolBar2: TToolBar;
|
||
ToolButton4: TToolButton;
|
||
ToolButton5: TToolButton;
|
||
ToolBar3: TToolBar;
|
||
ToolButton2: TToolButton;
|
||
ToolButton6: TToolButton;
|
||
Panel3: TPanel;
|
||
Label1: TLabel;
|
||
Label4: TLabel;
|
||
Label7: TLabel;
|
||
Label10: TLabel;
|
||
Label11: TLabel;
|
||
Label9: TLabel;
|
||
Label13: TLabel;
|
||
KHName: TEdit;
|
||
YWY: TEdit;
|
||
ZKAddress: TEdit;
|
||
ZKTelNo: TEdit;
|
||
ZKFax: TEdit;
|
||
KHNameEng: TEdit;
|
||
KHNameJC: TEdit;
|
||
Label3: TLabel;
|
||
ZKDate: TDateTimePicker;
|
||
Panel4: TPanel;
|
||
Label2: TLabel;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label16: TLabel;
|
||
Label17: TLabel;
|
||
Label18: TLabel;
|
||
ZKPhone: TEdit;
|
||
ZKPerson: TEdit;
|
||
ZKEmail: TEdit;
|
||
BossQQ: TEdit;
|
||
BossMSN: TEdit;
|
||
BossSKYPE: TEdit;
|
||
Label12: TLabel;
|
||
BossKJAddress: TEdit;
|
||
Label33: TLabel;
|
||
KHCode: TEdit;
|
||
Label34: TLabel;
|
||
TBSave: TToolButton;
|
||
V2Column1: TcxGridDBColumn;
|
||
ClientDataSet1: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
ClientDataSet2: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
ToolBar5: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton3: TToolButton;
|
||
cxGrid4: TcxGrid;
|
||
Tv4: TcxGridDBTableView;
|
||
cxGridDBColumn13: TcxGridDBColumn;
|
||
cxGridDBColumn14: TcxGridDBColumn;
|
||
cxGridDBColumn15: TcxGridDBColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
ClientDataSet4: TClientDataSet;
|
||
DataSource4: TDataSource;
|
||
RichEdit1: TRichEdit;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
cxGridPopupMenu4: TcxGridPopupMenu;
|
||
Label25: TLabel;
|
||
Label32: TLabel;
|
||
NetAddress: TEdit;
|
||
v1Column4: TcxGridDBColumn;
|
||
Label35: TLabel;
|
||
KHType: TBtnEditA;
|
||
KHLaiYuan: TBtnEditA;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure SYRNameBtnUpClick(Sender: TObject);
|
||
procedure SKBankBtnDnClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure ToolButton4Click(Sender: TObject);
|
||
procedure ToolButton5Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure ToolButton6Click(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure Tv4CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure KHTypeBtnClick(Sender: TObject);
|
||
procedure KHLaiYuanBtnClick(Sender: TObject);
|
||
private
|
||
procedure InitData();
|
||
function SaveData():Boolean;
|
||
procedure SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String);
|
||
|
||
{ Private declarations }
|
||
public
|
||
PState,CopyInt:Integer;
|
||
FMainId,FFMainId,FTFID:String;
|
||
FXS,TPInt,SaveInt,TPIntOther,FWH:Integer;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmZHKHInPutTabNew: TfrmZHKHInPutTabNew;
|
||
newh:hwnd;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmZHKHInPutTabNew.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('KH1',Tv1,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
WriteCxGrid('KH2',Tv2,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
WriteCxGrid('KH4',Tv4,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.InitData();
|
||
var
|
||
fsj:string;
|
||
begin
|
||
cxPageControl1.ActivePageIndex:=0;
|
||
ReadCxGrid('KH1',Tv1,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
ReadCxGrid('KH2',Tv2,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
ReadCxGrid('KH4',Tv4,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ');
|
||
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
SCSHDataNew(ADOQuery1,Panel3,2);
|
||
SCSHDataNew(ADOQuery1,Panel4,2);
|
||
SCSHDataNew(ADOQuery1,Panel5,2);
|
||
KHType.Text:=Trim(ADOQuery1.fieldbyname('KHType').AsString);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and ZSType=''YW'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet1);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet1);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and ZSType=''CW'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet2);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet2);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and ZSType=''QK'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet4);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet4);
|
||
if PState=0 then
|
||
begin
|
||
ZKDate.DateTime:=SGetServerDateTime(ADOTemp);
|
||
YWY.Text:=Trim(DName);
|
||
end else
|
||
begin
|
||
end;
|
||
if CopyInt=99 then
|
||
begin
|
||
PState:=0;
|
||
FMainId:='';
|
||
end;
|
||
|
||
end;
|
||
|
||
|
||
|
||
procedure TfrmZHKHInPutTabNew.FormShow(Sender: TObject);
|
||
begin
|
||
InitData();
|
||
end;
|
||
|
||
function TfrmZHKHInPutTabNew.SaveData():Boolean;
|
||
var
|
||
maxno,maxsubno:String;
|
||
begin
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'ZK','ZH_KH_Info',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(FMainId);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
Append;
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('ZKId').Value:=Trim(maxno);
|
||
SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel3,2);
|
||
SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel4,2);
|
||
SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel5,2);
|
||
FieldByName('Type').Value:='KH';
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
FieldByName('Valid').Value:='Y';
|
||
|
||
Post;
|
||
end;
|
||
if Trim(KHName.Text)<>'' then
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+'''');
|
||
SQL.Add(' and Type=''KH'' ');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
if Trim(KHCode.Text)<>'' then
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info where KHCode='''+Trim(KHCode.Text)+'''');
|
||
SQL.Add(' and Type=''KH'' ');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
if Trim(KHNameJC.Text)<>'' then
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info where KHNameJC='''+Trim(KHNameJC.Text)+'''');
|
||
SQL.Add(' and Type=''KH'' ');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(KHNameEng.Text)<>'' then
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from ZH_KH_Info where KHNameEng='''+Trim(KHNameEng.Text)+'''');
|
||
SQL.Add(' and Type=''KH'' ');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27>ظ<EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
SaveCDS(ClientDataSet1,Tv1,maxno,'YW');
|
||
SaveCDS(ClientDataSet2,TV2,maxno,'CW');
|
||
SaveCDS(ClientDataSet4,Tv4,maxno,'QK');
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
FMainId:=Trim(maxno);
|
||
Result:=True;
|
||
except
|
||
Result:=False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
procedure TfrmZHKHInPutTabNew.SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String);
|
||
var
|
||
maxsubno:string;
|
||
begin
|
||
with ClientDataSet20 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxsubno,'ZS','ZH_KH_Info_Sub',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxsubno:=Trim(ClientDataSet20.fieldbyname('ZSID').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from ZH_KH_Info_Sub where ZSID='''+Trim(maxsubno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then
|
||
begin
|
||
Append;
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
Edit;
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
FieldByName('ZKID').Value:=Trim(maxno10);
|
||
FieldByName('ZSID').Value:=Trim(maxsubno);
|
||
FieldByName('ZSType').Value:=Trim(ZSType);
|
||
RTSetSaveDataCDS(ADOCmd,Tv20,ClientDataSet20,'ZH_KH_Info_Sub',2);
|
||
Post;
|
||
end;
|
||
Edit;
|
||
FieldByName('ZSID').Value:=Trim(maxsubno);
|
||
post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
procedure TfrmZHKHInPutTabNew.SYRNameBtnUpClick(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
FWZ:Integer;
|
||
begin
|
||
fsj:=Trim(TEdit(Sender).Hint);
|
||
FWZ:=Pos('/',fsj);
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Copy(fsj,1,FWZ-1);
|
||
flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
|
||
if ShowModal=1 then
|
||
begin
|
||
TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.SKBankBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text:='';
|
||
TBtnEditC(Sender).TxtCode:='';
|
||
end;
|
||
|
||
|
||
|
||
procedure TfrmZHKHInPutTabNew.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
if SaveInt=99 then
|
||
begin
|
||
ModalResult:=1;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.TBSaveClick(Sender: TObject);
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
if Trim(KHName.Text)+Trim(KHNameEng.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(KHType.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
SaveInt:=99;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton4Click(Sender: TObject);
|
||
begin
|
||
ClientDataSet1.Append;
|
||
ClientDataSet1.Post;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton5Click(Sender: TObject);
|
||
begin
|
||
DelCDS(ClientDataSet1,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet1.fieldbyname('ZSID').AsString)+'''');
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
ClientDataSet2.Append;
|
||
ClientDataSet2.Post;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton6Click(Sender: TObject);
|
||
begin
|
||
DelCDS(ClientDataSet2,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet2.fieldbyname('ZSID').AsString)+'''');
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
ClientDataSet4.Append;
|
||
ClientDataSet4.Post;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
DelCDS(ClientDataSet4,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet4.fieldbyname('ZSID').AsString)+'''');
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.Tv4CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
RichEdit1.Text:=Trim(ClientDataSet4.fieldbyname('QKNote').AsString);
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.KHTypeBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='ZHKHType';
|
||
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
KHType.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZHKHInPutTabNew.KHLaiYuanBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='ZHKHLaiYuan';
|
||
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD>Դ';
|
||
if ShowModal=1 then
|
||
begin
|
||
KHLaiYuan.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|