718 lines
18 KiB
ObjectPascal
718 lines
18 KiB
ObjectPascal
unit U_YGInPut;
|
||
|
||
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, Menus, ExtDlgs, cxSpinEdit,
|
||
cxTimeEdit;
|
||
|
||
type
|
||
TfrmYGInPut = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
ADOQuery1: TADOQuery;
|
||
TBSave: TToolButton;
|
||
cxPageControl1: TcxPageControl;
|
||
cxTabSheet1: TcxTabSheet;
|
||
cxTabSheet2: TcxTabSheet;
|
||
cxTabSheet3: TcxTabSheet;
|
||
cxTabSheet4: TcxTabSheet;
|
||
Panel3: TPanel;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
Label10: TLabel;
|
||
Label11: TLabel;
|
||
Label12: TLabel;
|
||
Label14: TLabel;
|
||
YGName: TEdit;
|
||
YGSex: TComboBox;
|
||
GangWei: TBtnEditA;
|
||
MinZu: TBtnEditA;
|
||
JiGuan: TEdit;
|
||
HunYin: TBtnEditA;
|
||
ChuShengDate: TDateTimePicker;
|
||
MianMao: TBtnEditA;
|
||
XueLi: TBtnEditA;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
GroupBox1: TGroupBox;
|
||
Image1: TImage;
|
||
Label1: TLabel;
|
||
ZhiCheng: TBtnEditA;
|
||
Label2: TLabel;
|
||
JSTeChang: TEdit;
|
||
Label13: TLabel;
|
||
YYAiHao: TEdit;
|
||
Label15: TLabel;
|
||
BYXueXiao: TBtnEditA;
|
||
Label17: TLabel;
|
||
ZhuanYe: TBtnEditA;
|
||
Label18: TLabel;
|
||
ZhuZhi: TEdit;
|
||
Label19: TLabel;
|
||
ShenFenNo: TEdit;
|
||
Label20: TLabel;
|
||
JTTel: TEdit;
|
||
Label21: TLabel;
|
||
Phone: TEdit;
|
||
Label22: TLabel;
|
||
EMail: TEdit;
|
||
Label23: TLabel;
|
||
JJLXPerson: TEdit;
|
||
Label24: TLabel;
|
||
JJLXPhone: TEdit;
|
||
Label25: TLabel;
|
||
JJLXGX: TBtnEditA;
|
||
Label27: TLabel;
|
||
YPNote: TRichEdit;
|
||
OpenPictureDialog1: TOpenPictureDialog;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column7: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column15: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
DataSource1: TDataSource;
|
||
ClientDataSet1: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
ClientDataSet2: TClientDataSet;
|
||
DataSource3: TDataSource;
|
||
BYDate: TClientDataSet;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridDBColumn8: TcxGridDBColumn;
|
||
cxGridDBColumn9: TcxGridDBColumn;
|
||
cxGridDBColumn10: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
v3Column1: TcxGridDBColumn;
|
||
v3Column2: TcxGridDBColumn;
|
||
Dept: TBtnEditA;
|
||
Label26: TLabel;
|
||
GHNo: TEdit;
|
||
Label28: TLabel;
|
||
FHType: TBtnEditA;
|
||
Label29: TLabel;
|
||
MBMoney: TEdit;
|
||
Label30: TLabel;
|
||
GRNXMoney: TEdit;
|
||
Label31: TLabel;
|
||
ZhuanZhengDate: TDateTimePicker;
|
||
Label32: TLabel;
|
||
XZNo: TEdit;
|
||
Label33: TLabel;
|
||
YWSNXSMoney: TEdit;
|
||
Label34: TLabel;
|
||
Label35: TLabel;
|
||
FKType: TBtnEditA;
|
||
FKSYSTEM: TBtnEditA;
|
||
Label36: TLabel;
|
||
Label3: TLabel;
|
||
NXZZType: TBtnEditA;
|
||
Label37: TLabel;
|
||
GRYearPF: TEdit;
|
||
SYDate: TcxTimeEdit;
|
||
Label39: TLabel;
|
||
XBTime: TcxTimeEdit;
|
||
Label16: TLabel;
|
||
Label38: TLabel;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure SKBankBtnDnClick(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure MinZuBtnClick(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure DeptBtnClick(Sender: TObject);
|
||
procedure GangWeiBtnClick(Sender: TObject);
|
||
procedure FHTypeBtnClick(Sender: TObject);
|
||
private
|
||
TPInt:Integer;
|
||
procedure InitData();
|
||
function SaveData():Boolean;
|
||
function SaveMXData(Tv11:TcxGridDBTableView;CDS1:TClientDataSet;FMaxNo,FYOType:string):Boolean;
|
||
procedure SaveImageOther();
|
||
procedure InitImage();
|
||
{ Private declarations }
|
||
public
|
||
canshu1:String;
|
||
PState,CopyInt:Integer;
|
||
FMainId:String;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmYGInPut: TfrmYGInPut;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_SYDeptView,U_ZDYBZType;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmYGInPut.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.InitData();
|
||
begin
|
||
cxPageControl1.ActivePageIndex:=0;
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn where YGID='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
if ADOQuery1.IsEmpty=false then
|
||
SCSHDataNew(ADOQuery1,Panel3,2);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn_Other where YGID='''+Trim(FMainId)+'''');
|
||
sql.Add(' and YOType=''<27><>ͥ<EFBFBD><CDA5>Ա'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet1);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet1);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn_Other where YGID='''+Trim(FMainId)+'''');
|
||
sql.Add(' and YOType=''<27><>ѵ<EFBFBD><D1B5><EFBFBD><EFBFBD>'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet2);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet2);
|
||
TPInt:=0;
|
||
InitImage();
|
||
end;
|
||
|
||
|
||
procedure TfrmYGInPut.FormShow(Sender: TObject);
|
||
begin
|
||
ChuShengDate.Date:=SGetServerDate(ADOQuery1);
|
||
SYDate.Time:=StrToTime('08:00:00');
|
||
XBTime.Time:=StrToTime('08:00:00');
|
||
ZhuanZhengDate.Date:=SGetServerDate(ADOQuery1);
|
||
InitData();
|
||
end;
|
||
|
||
function TfrmYGInPut.SaveData():Boolean;
|
||
var
|
||
maxno,FHZStatus:String;
|
||
begin
|
||
Result:=False;
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'','OA_YG_DangAn',4,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 OA_YG_DangAn where YGId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
FHZStatus:=Trim(ADOCmd.fieldbyname('HZStatus').AsString);
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
Append;
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('YGId').Value:=Trim(maxno);
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
FieldByName('YGType').Value:='<27><>ʽ';
|
||
end else
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
RTSetsavedata(ADOCmd,'OA_YG_DangAn',Panel3,2);
|
||
FieldByName('YGEName').AsString:=Trim(YGName.Text);
|
||
Post;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn where ShenFenNo='''+Trim(ShenFenNo.Text)+'''');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>֤<EFBFBD><D6A4><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TPInt=1 then
|
||
begin
|
||
SaveImageOther();
|
||
end else
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('delete TP_File where WBID='''+Trim(maxno)+''' and TFType=''YG'' ');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
if SaveMXData(Tv1,ClientDataSet1,maxno,'<27><>ͥ<EFBFBD><CDA5>Ա')=False then Exit;
|
||
if SaveMXData(Tv2,ClientDataSet2,maxno,'<27><>ѵ<EFBFBD><D1B5><EFBFBD><EFBFBD>')=False then Exit;
|
||
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;
|
||
|
||
function TfrmYGInPut.SaveMXData(Tv11:TcxGridDBTableView;CDS1:TClientDataSet;FMaxNo,FYOType:string):Boolean;
|
||
var
|
||
maxsubno,FYOID:String;
|
||
begin
|
||
Result:=False;
|
||
try
|
||
CDS1.DisableControls;
|
||
with CDS1 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn_Other where YOID='''+Trim(CDS1.fieldbyname('YOID').AsString)+'''');
|
||
open;
|
||
end;
|
||
FYOID:=Trim(ADOCmd.fieldbyname('YOID').AsString);
|
||
if Trim(FYOID)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxsubno,'YO','OA_YG_DangAn_Other',4,1)=False then
|
||
begin
|
||
Result:=False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxsubno:=Trim(FYOID);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from OA_YG_DangAn_Other where YOID='''+Trim(FYOID)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FYOID)='' then
|
||
begin
|
||
Append;
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('YGId').Value:=Trim(FMaxNo);
|
||
FieldByName('YOType').Value:=Trim(FYOType);
|
||
FieldByName('YOID').Value:=Trim(maxsubno);
|
||
if Trim(FYOID)='' then
|
||
begin
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
RTSetSaveDataCDS(ADOCmd,Tv11,CDS1,'OA_YG_DangAn_Other',0);
|
||
Post;
|
||
end;
|
||
Edit;
|
||
FieldByName('YOID').Value:=Trim(maxsubno);
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS1.EnableControls;
|
||
Result:=True;
|
||
except
|
||
CDS1.EnableControls;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD>쳣!','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.InitImage();
|
||
var
|
||
jpg:TJpegImage;
|
||
myStream:TADOBlobStream;
|
||
begin
|
||
if Trim(FMainId)='' then Exit;
|
||
Image1.Picture.Assign(nil);
|
||
try
|
||
with ADOQuery1 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+'''');
|
||
sql.Add(' and TFType=''YG'' ');
|
||
open;
|
||
if RecordCount>0 then
|
||
begin
|
||
TPInt:=1;
|
||
if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then
|
||
begin
|
||
myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread);
|
||
if myStream=nil then exit;
|
||
jpg:=TJPEGImage.Create;
|
||
jpg.LoadFromStream(myStream);
|
||
Image1.Picture.Assign(jpg);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
jpg.Free;
|
||
myStream.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.SKBankBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text:='';
|
||
TBtnEditC(Sender).TxtCode:='';
|
||
end;
|
||
|
||
|
||
|
||
procedure TfrmYGInPut.TBSaveClick(Sender: TObject);
|
||
var
|
||
FSFNO:String;
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
if Trim(YGName.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(GangWei.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(Dept.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(FHType.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><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);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.MinZuBtnClick(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
FWZ:Integer;
|
||
begin
|
||
fsj:=Trim(TEdit(Sender).Hint);
|
||
FWZ:=Pos('/',fsj);
|
||
try
|
||
frmZDYBZType:=TfrmZDYBZType.Create(Application);
|
||
with frmZDYBZType 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
|
||
frmZDYBZType.Free;
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmYGInPut.N1Click(Sender: TObject);
|
||
begin
|
||
OpenPictureDialog1.Execute;
|
||
if Trim(OpenPictureDialog1.FileName)='' then
|
||
begin
|
||
Exit;
|
||
end;
|
||
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
|
||
TPInt:=1;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.N2Click(Sender: TObject);
|
||
begin
|
||
if TPInt=0 then Exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ͼƬ<CDBC><C6AC><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
Image1.Picture:=nil;
|
||
Image1.Picture.Assign(nil);
|
||
TPInt:=0;
|
||
end;
|
||
procedure TfrmYGInPut.SaveImageOther();
|
||
var
|
||
AJpeg: TJPEGImage;
|
||
myStream: TADOBlobStream;
|
||
ImgMaxNo:String;
|
||
i,j: Integer;
|
||
PatFile: String;
|
||
FTPPath,FConNo,MaxNo,FTFID:string;
|
||
begin
|
||
if Image1.Picture=nil then Exit;
|
||
AJpeg:=TJpegImage.Create();
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+'''');
|
||
sql.Add(' and TFType=''YG'' ');
|
||
Open;
|
||
end;
|
||
FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString);
|
||
if Trim(FTFID)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',4,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡͼƬ<CDBC><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
ImgMaxNo:=Trim(FTFID);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+'''');
|
||
open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FTFID)='' then
|
||
begin
|
||
Append;
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
FieldByName('TFID').Value:=Trim(ImgMaxNo);
|
||
FieldByName('WBID').Value:=Trim(FMainId);
|
||
FieldByName('TFType').Value:='YG';
|
||
AJpeg.Assign(Image1.Picture.Graphic);
|
||
//CreThumb(AJpeg,Image1,160, 120);
|
||
myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite);
|
||
AJpeg.Assign(Image1.Picture.Graphic);
|
||
AJpeg.SaveToStream(myStream);
|
||
myStream.Free;
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.v1Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='JJLXGX';
|
||
flagname:='<27>뱾<EFBFBD>˹<EFBFBD>ϵ';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Self.ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('JTLXGX').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if cxPageControl1.ActivePageIndex=0 then Exit;
|
||
if cxPageControl1.ActivePageIndex=1 then
|
||
begin
|
||
with ClientDataSet1 do
|
||
begin
|
||
Append;
|
||
Post;
|
||
end;
|
||
end else
|
||
if cxPageControl1.ActivePageIndex=2 then
|
||
begin
|
||
with ClientDataSet2 do
|
||
begin
|
||
Append;
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if cxPageControl1.ActivePageIndex=0 then Exit;
|
||
if cxPageControl1.ActivePageIndex=1 then
|
||
begin
|
||
if ClientDataSet1.IsEmpty then Exit;
|
||
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 OA_YG_DangAn_Other where YOID='''+Trim(ClientDataSet1.fieldbyname('YOID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ClientDataSet1.Delete;
|
||
end else
|
||
if cxPageControl1.ActivePageIndex=2 then
|
||
begin
|
||
if ClientDataSet2.IsEmpty then Exit;
|
||
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 OA_YG_DangAn_Other where YOID='''+Trim(ClientDataSet2.fieldbyname('YOID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ClientDataSet2.Delete;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.DeptBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmSYDeptView:=TfrmSYDeptView.Create(Application);
|
||
with frmSYDeptView do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Dept.Text:=Trim(frmSYDeptView.CDS_Tree.fieldbyname('DPName').AsString);
|
||
//Self.Dept.TxtCode:=Trim(frmSYDeptView.CDS_Tree.fieldbyname('DPID').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmSYDeptView.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.GangWeiBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmSYDeptView:=TfrmSYDeptView.Create(Application);
|
||
with frmSYDeptView do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.GangWei.Text:=Trim(frmSYDeptView.CDS_Tree.fieldbyname('DPName').AsString);
|
||
Self.GangWei.TxtCode:=Trim(frmSYDeptView.CDS_Tree.fieldbyname('DPID').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmSYDeptView.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGInPut.FHTypeBtnClick(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
FWZ:Integer;
|
||
begin
|
||
fsj:=Trim(TEdit(Sender).Hint);
|
||
FWZ:=Pos('/',fsj);
|
||
try
|
||
frmZDYBZType:=TfrmZDYBZType.Create(Application);
|
||
with frmZDYBZType 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);
|
||
SYDate.Time:=ClientDataSet1.fieldbyname('SBTime').AsDateTime;
|
||
XBTime.Time:=ClientDataSet1.fieldbyname('XBTime').AsDateTime;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYBZType.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|