Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-21 13:50:21 +08:00
parent 56ab7867a3
commit 87728906b3
7 changed files with 252 additions and 181 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
云翔OA(WTOA.dll)/U_DataLink.pas
View File

@ -5,20 +5,20 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, dxSkinsDefaultPainters, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
; dxSkinWhiteprint, dxSkinXmas2008Blue ;
var var
DConString: string; {全局连接字符串} DConString: string; {全局连接字符串}

22
云翔OA(WTOA.dll)/U_WorkDeptList_DKCX.dfm
View File

@ -1,6 +1,6 @@
object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
Left = 189 Left = 338
Top = 136 Top = 367
Width = 1260 Width = 1260
Height = 678 Height = 678
Caption = #21592#24037#25171#21345#26597#35810 Caption = #21592#24037#25171#21345#26597#35810
@ -21,7 +21,7 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
Left = 0 Left = 0
Top = 69 Top = 69
Width = 481 Width = 481
Height = 570 Height = 578
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -78,7 +78,7 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1244 Width = 1252
Height = 37 Height = 37
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -147,7 +147,7 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
Left = 210 Left = 210
Top = 9 Top = 9
Width = 112 Width = 112
Height = 21 Height = 20
TabOrder = 1 TabOrder = 1
OnChange = YGNameChange OnChange = YGNameChange
end end
@ -156,7 +156,7 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
Left = 410 Left = 410
Top = 9 Top = 9
Width = 112 Width = 112
Height = 21 Height = 20
TabOrder = 2 TabOrder = 2
OnChange = YGNameChange OnChange = YGNameChange
end end
@ -175,8 +175,8 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 481 Left = 481
Top = 69 Top = 69
Width = 763 Width = 771
Height = 570 Height = 578
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Align = alClient Align = alClient
@ -195,8 +195,8 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
OnDblClick = Picture4DblClick OnDblClick = Picture4DblClick
Height = 566 Height = 574
Width = 759 Width = 767
end end
object Panel2: TPanel object Panel2: TPanel
Left = 206 Left = 206
@ -219,7 +219,7 @@ object FrmWorkDeptList_DKCX: TFrmWorkDeptList_DKCX
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1244 Width = 1252
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95

286
云翔OA(WTOA.dll)/U_WorkDeptList_DKCX.pas
View File

@ -7,26 +7,25 @@ uses
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxCalendar, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxCalendar,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, cxButtonEdit,
cxButtonEdit, cxPC, StdCtrls, ExtCtrls, ExtDlgs, IdBaseComponent, cxPC, StdCtrls, ExtCtrls, ExtDlgs, IdBaseComponent, IdComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP,jpeg, IniFiles, IdTCPConnection, IdTCPClient, IdFTP, jpeg, IniFiles, DelphiTwain, Buttons,
DelphiTwain, Buttons, cxContainer, cxImage, cxDBEdit,strutils,ShellAPI, cxContainer, cxImage, cxDBEdit, strutils, ShellAPI, RM_Dataset, RM_System,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinDarkRoom, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxNavigator,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2013White, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinscxPCPainter, dxSkinWhiteprint, dxSkinXmas2008Blue;
cxNavigator;
type type
TFrmWorkDeptList_DKCX = class(TForm) TFrmWorkDeptList_DKCX = class(TForm)
@ -67,41 +66,37 @@ type
EndDate: TDateTimePicker; EndDate: TDateTimePicker;
RM1: TRMGridReport; RM1: TRMGridReport;
RMDBMain: TRMDBDataSet; RMDBMain: TRMDBDataSet;
procedure v1Column1PropertiesButtonClick(Sender: TObject; procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure YGNameChange(Sender: TObject); procedure YGNameChange(Sender: TObject);
procedure Picture4DblClick(Sender: TObject); procedure Picture4DblClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure TSBKQBClick(Sender: TObject); procedure TSBKQBClick(Sender: TObject);
private private
hWndC : THandle; hWndC: THandle;
CapturingAVI : bool; CapturingAVI: bool;
{ Private declarations } { Private declarations }
ClickPos: TPoint; ClickPos: TPoint;
SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer; SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer;
procedure initGrid(); procedure initGrid();
procedure SetStatus(); procedure SetStatus();
procedure LookImage(FileName:string); procedure LookImage(FileName: string);
{ Private declarations } { Private declarations }
public public
FilePath:string; FilePath: string;
FileName:string; FileName: string;
FTFType:string; FTFType: string;
pat1:string; pat1: string;
pic1:string; pic1: string;
fkeyNo:string; fkeyNo: string;
fFlileFlag:string; fFlileFlag: string;
{ Public declarations } { Public declarations }
MyJpeg: TJPEGImage; MyJpeg: TJPEGImage;
{ Public declarations } { Public declarations }
@ -112,50 +107,78 @@ var
implementation implementation
uses U_ZDYHelp,U_RTfun,U_DataLink; uses
const WM_CAP_START = WM_USER; U_ZDYHelp, U_RTfun, U_DataLink;
const WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; const
const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; WM_CAP_START = WM_USER;
const WM_CAP_SAVEDIB = WM_CAP_START + 25;
const WM_CAP_GRAB_FRAME = WM_CAP_START + 60; const
const WM_CAP_SEQUENCE = WM_CAP_START + 62; WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;
const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 ; const
const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 ; WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 ;
const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6; const
const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2; WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;
const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5; const
const WM_CAP_SET_SCALE=WM_CAP_START+ 53 ; WM_CAP_SAVEDIB = WM_CAP_START + 25;
const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 ;
function capCreateCaptureWindowA(lpszWindowName : PCHAR; const
dwStyle : longint; WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
x : integer;
y : integer; const
nWidth : integer; WM_CAP_SEQUENCE = WM_CAP_START + 62;
nHeight : integer;
ParentWin : HWND; const
nId : integer): HWND; WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;
STDCALL EXTERNAL 'AVICAP32.DLL';
const
WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63;
const
WM_CAP_SET_OVERLAY = WM_CAP_START + 51;
const
WM_CAP_SET_PREVIEW = WM_CAP_START + 50;
const
WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6;
const
WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2;
const
WM_CAP_SET_CALLBACK_STATUSA = WM_CAP_START + 3;
const
WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5;
const
WM_CAP_SET_SCALE = WM_CAP_START + 53;
const
WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52;
function capCreateCaptureWindowA(lpszWindowName: PCHAR; dwStyle: longint; x: integer; y: integer; nWidth: integer; nHeight: integer; ParentWin: HWND; nId: integer): HWND; stdcall external 'AVICAP32.DLL';
{$R *.dfm} {$R *.dfm}
procedure TFrmWorkDeptList_DKCX.LookImage(FileName:string); procedure TFrmWorkDeptList_DKCX.LookImage(FileName: string);
var var
sFieldName:string; sFieldName: string;
begin begin
sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\图片查看'; sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看';
if not DirectoryExists(pchar(sFieldName)) then if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil); CreateDirectory(pchar(sFieldName), nil);
sFieldName:=sFieldName+'\'+trim(fileName); sFieldName := sFieldName + '\' + trim(FileName);
try try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1'); IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1');
IdFTP1.Username := 'three'; IdFTP1.Username := 'three';
IdFTP1.Password := '641010'; IdFTP1.Password := '641010';
IdFTP1.Connect(); IdFTP1.Connect();
except except
; ;
@ -164,13 +187,13 @@ begin
if IdFTP1.Connected then if IdFTP1.Connected then
begin begin
Panel2.Caption:='正在下载数据，请稍等...'; Panel2.Caption := '正在下载数据，请稍等...';
Panel2.Visible:=true; Panel2.Visible := true;
application.ProcessMessages; application.ProcessMessages;
try try
IdFTP1.Get(fFlileFlag+'\'+ Trim(fileName), sFieldName,true, false); IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
except except
Panel2.Visible:=false; Panel2.Visible := false;
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING); Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit; IdFTP1.Quit;
Exit; Exit;
@ -178,19 +201,20 @@ begin
end end
else else
begin begin
Panel2.Visible:=false; Panel2.Visible := false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING); Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit; IdFTP1.Quit;
Exit; Exit;
end; end;
Panel2.Visible:=false; Panel2.Visible := false;
if IdFTP1.Connected then IdFTP1.Quit; if IdFTP1.Connected then
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); IdFTP1.Quit;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end; end;
procedure TFrmWorkDeptList_DKCX.SetStatus(); procedure TFrmWorkDeptList_DKCX.SetStatus();
begin begin
end; end;
procedure TFrmWorkDeptList_DKCX.initGrid(); procedure TFrmWorkDeptList_DKCX.initGrid();
@ -200,30 +224,29 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select * from OA_YG_KQ '); sql.Add('select * from OA_YG_KQ ');
sql.add('where filltime>='''+trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); sql.add('where filltime>=''' + trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.add(' and filltime<'''+trim(FormatDateTime('yyyy-MM-dd',endDate.Date+1))+''''); sql.add(' and filltime<''' + trim(FormatDateTime('yyyy-MM-dd', endDate.Date + 1)) + '''');
open; open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
SCreateCDS20(ADOQueryMain,Order_KQB); SCreateCDS20(ADOQueryMain, Order_KQB);
end; end;
procedure TFrmWorkDeptList_DKCX.v1Column1PropertiesButtonClick( procedure TFrmWorkDeptList_DKCX.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='PriceUnit'; flag := 'PriceUnit';
flagname:='币种'; flagname := '币种';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Order_Main do with Order_Main do
begin begin
edit; edit;
fieldbyname('PriceUnit').AsString:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString); fieldbyname('PriceUnit').AsString := trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
end; end;
@ -234,7 +257,7 @@ end;
procedure TFrmWorkDeptList_DKCX.FormShow(Sender: TObject); procedure TFrmWorkDeptList_DKCX.FormShow(Sender: TObject);
begin begin
ReadCxGrid('打卡',Tv1,'费用报销管理'); ReadCxGrid('打卡', Tv1, '费用报销管理');
with ADOQueryMain do with ADOQueryMain do
begin begin
close; close;
@ -243,25 +266,23 @@ begin
sql.Add('where convert(varchar(10),DKDate,120)=convert(varchar(10),getdate(),120)'); sql.Add('where convert(varchar(10),DKDate,120)=convert(varchar(10),getdate(),120)');
open; open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
fFlileFlag:='123YP'; fFlileFlag := '123YP';
end; end;
procedure TFrmWorkDeptList_DKCX.FormClose(Sender: TObject; procedure TFrmWorkDeptList_DKCX.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TFrmWorkDeptList_DKCX.FormDestroy(Sender: TObject); procedure TFrmWorkDeptList_DKCX.FormDestroy(Sender: TObject);
begin begin
MyJpeg.Free; MyJpeg.Free;
FrmWorkDeptList_DKCX:=nil; FrmWorkDeptList_DKCX := nil;
end; end;
procedure TFrmWorkDeptList_DKCX.Image1MouseDown(Sender: TObject; procedure TFrmWorkDeptList_DKCX.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
ClickPos.x := X; ClickPos.x := X;
ClickPos.y := Y; ClickPos.y := Y;
@ -270,20 +291,21 @@ end;
procedure TFrmWorkDeptList_DKCX.FormCreate(Sender: TObject); procedure TFrmWorkDeptList_DKCX.FormCreate(Sender: TObject);
begin begin
MyJpeg := TJpegImage.Create; MyJpeg := TJpegImage.Create;
EndDate.Date:=SGetServerDate(ADOQueryDel); EndDate.Date := SGetServerDate(ADOQueryDel);
begdate.Date:=EndDate.Date; begdate.Date := EndDate.Date;
end; end;
procedure TFrmWorkDeptList_DKCX.TBCloseClick(Sender: TObject); procedure TFrmWorkDeptList_DKCX.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('打卡',Tv1,'费用报销管理'); WriteCxGrid('打卡', Tv1, '费用报销管理');
close; close;
end; end;
procedure TFrmWorkDeptList_DKCX.TBExportClick(Sender: TObject); procedure TFrmWorkDeptList_DKCX.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel('员工考勤',cxGrid1); Exit;
TcxGridToExcel('员工考勤', cxGrid1);
end; end;
procedure TFrmWorkDeptList_DKCX.TBRafreshClick(Sender: TObject); procedure TFrmWorkDeptList_DKCX.TBRafreshClick(Sender: TObject);
@ -293,54 +315,54 @@ end;
procedure TFrmWorkDeptList_DKCX.YGNameChange(Sender: TObject); procedure TFrmWorkDeptList_DKCX.YGNameChange(Sender: TObject);
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TFrmWorkDeptList_DKCX.Picture4DblClick(Sender: TObject); procedure TFrmWorkDeptList_DKCX.Picture4DblClick(Sender: TObject);
var var
sFieldName:string; sFieldName: string;
fileName:string; fileName: string;
begin begin
IF TcxDBImage(Sender).Picture.Height=0 then exit; if TcxDBImage(Sender).Picture.Height = 0 then
exit;
LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring);
end; end;
procedure TFrmWorkDeptList_DKCX.Tv1FocusedRecordChanged( procedure TFrmWorkDeptList_DKCX.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
with ADOQueryImage do with ADOQueryImage do
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select * from TP_File A'); sql.Add('select * from TP_File A');
sql.Add('where WBID='+quotedstr(trim(Order_Main.fieldbyname('KQID').AsString))); sql.Add('where WBID=' + quotedstr(trim(Order_Main.fieldbyname('KQID').AsString)));
sql.Add('and TFType='+quotedstr(trim('员工'))); sql.Add('and TFType=' + quotedstr(trim('员工')));
open; open;
end; end;
end; end;
procedure TFrmWorkDeptList_DKCX.TSBKQBClick(Sender: TObject); procedure TFrmWorkDeptList_DKCX.TSBKQBClick(Sender: TObject);
var var
fPrintFile:String; fPrintFile: string;
Txt,fImagePath:string; Txt, fImagePath: string;
Moudle: THandle; Moudle: THandle;
Makebar:TMakebar; Makebar: TMakebar;
Mixtext:TMixtext; Mixtext: TMixtext;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\上班考勤表.rmf'; Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\上班考勤表.rmf';
with ADOQuery1 do with ADOQuery1 do
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select YGName'); sql.Add('select YGName');
sql.Add(' ,one=(select cast(''是'' as varchar(10)) from OA_YG_KQ B where B.YGName=A.YGName and B.DKDate='''+trim(FormatDateTime('yyyy-MM',BegDate.Date))+'-01'+''')'); sql.Add(' ,one=(select cast(''是'' as varchar(10)) from OA_YG_KQ B where B.YGName=A.YGName and B.DKDate=''' + trim(FormatDateTime('yyyy-MM', BegDate.Date)) + '-01' + ''')');
sql.Add(' ,TWO=(select cast(''是'' as varchar(10)) from OA_YG_KQ B where B.YGName=A.YGName and B.DKDate='''+trim(FormatDateTime('yyyy-MM',BegDate.Date))+'-01'+''')'); sql.Add(' ,TWO=(select cast(''是'' as varchar(10)) from OA_YG_KQ B where B.YGName=A.YGName and B.DKDate=''' + trim(FormatDateTime('yyyy-MM', BegDate.Date)) + '-01' + ''')');
sql.Add(' from OA_YG_DangAn A '); sql.Add(' from OA_YG_DangAn A ');
// ShowMessage(sql.text); // ShowMessage(sql.text);
open; open;
@ -349,11 +371,13 @@ begin
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.PrintReport; RM1.PrintReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\员工卡.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\员工卡.rmf'), '提示', 0);
Exit; Exit;
end; end;
end; end;
end. end.

52
云翔OA(WTOA.dll)/U_YGList.dfm
View File

@ -1,6 +1,6 @@
object frmYGList: TfrmYGList object frmYGList: TfrmYGList
Left = 29 Left = 196
Top = 88 Top = 405
Width = 1405 Width = 1405
Height = 715 Height = 715
Caption = #21592#24037#26723#26696#21015#34920 Caption = #21592#24037#26723#26696#21015#34920
@ -20,7 +20,7 @@ object frmYGList: TfrmYGList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1389 Width = 1397
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -137,16 +137,24 @@ object frmYGList: TfrmYGList
ImageIndex = 4 ImageIndex = 4
OnClick = TPrintClick OnClick = TPrintClick
end end
object TBExport: TToolButton object ToolButton6: TToolButton
Left = 63 Left = 63
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #39044#35272#25171#21360
ImageIndex = 4
OnClick = ToolButton6Click
end
object TBExport: TToolButton
Left = 150
Top = 30
AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 126 Left = 213
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#20837#32844#34920 Caption = #25171#21360#20837#32844#34920
@ -154,7 +162,7 @@ object frmYGList: TfrmYGList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 225 Left = 312
Top = 33 Top = 33
Width = 40 Width = 40
Height = 24 Height = 24
@ -176,7 +184,7 @@ object frmYGList: TfrmYGList
'4') '4')
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 265 Left = 352
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21592#24037#33457#21517#20876 Caption = #25171#21360#21592#24037#33457#21517#20876
@ -184,7 +192,7 @@ object frmYGList: TfrmYGList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 388 Left = 475
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #36523#20221#35777#27491#38754 Caption = #36523#20221#35777#27491#38754
@ -192,7 +200,7 @@ object frmYGList: TfrmYGList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 487 Left = 574
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #36523#20221#35777#21453#38754 Caption = #36523#20221#35777#21453#38754
@ -200,7 +208,7 @@ object frmYGList: TfrmYGList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 586 Left = 673
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -211,7 +219,7 @@ object frmYGList: TfrmYGList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1389 Width = 1397
Height = 36 Height = 36
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -315,7 +323,7 @@ object frmYGList: TfrmYGList
Left = 0 Left = 0
Top = 98 Top = 98
Width = 211 Width = 211
Height = 578 Height = 586
Align = alLeft Align = alLeft
Bands = < Bands = <
item item
@ -348,15 +356,15 @@ object frmYGList: TfrmYGList
Left = 211 Left = 211
Top = 98 Top = 98
Width = 8 Width = 8
Height = 578 Height = 586
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = cxDBTreeList1 Control = cxDBTreeList1
end end
object TPanel object TPanel
Left = 219 Left = 219
Top = 98 Top = 98
Width = 1170 Width = 1178
Height = 578 Height = 586
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -364,7 +372,7 @@ object frmYGList: TfrmYGList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1166 Width = 1174
Height = 21 Height = 21
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -377,14 +385,14 @@ object frmYGList: TfrmYGList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1166 ClientRectRight = 1174
ClientRectTop = 23 ClientRectTop = 23
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 23 Top = 23
Width = 1166 Width = 1174
Height = 358 Height = 366
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -541,8 +549,8 @@ object frmYGList: TfrmYGList
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 2 Left = 2
Top = 381 Top = 389
Width = 1166 Width = 1174
Height = 195 Height = 195
Align = alBottom Align = alBottom
Caption = #36523#20221#35777#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #36523#20221#35777#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
@ -550,7 +558,7 @@ object frmYGList: TfrmYGList
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 14 Top = 14
Width = 1162 Width = 1170
Height = 179 Height = 179
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered

42
云翔OA(WTOA.dll)/U_YGList.pas
View File

@ -12,10 +12,24 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
cxTimeEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxTimeEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu,
dxBarBuiltInMenu, cxNavigator, jpeg, U_SLT; dxBarBuiltInMenu, cxNavigator, jpeg, U_SLT, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmYGList = class(TForm) TfrmYGList = class(TForm)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBFind: TToolButton; TBFind: TToolButton;
@ -94,6 +108,7 @@ type
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
RM2: TRMGridReport; RM2: TRMGridReport;
RMDBMain2: TRMDBDataSet; RMDBMain2: TRMDBDataSet;
ToolButton6: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -127,6 +142,7 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton6Click(Sender: TObject);
private private
canshu1: string; canshu1: string;
DQdate: TDateTime; DQdate: TDateTime;
@ -151,7 +167,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_YGInPut, U_YGYPZZChkList_NXZZJL, U_FjList_RZ, U_DataLink, U_RTFun, U_ZDYHelp, U_YGInPut, U_YGYPZZChkList_NXZZJL, U_FjList_RZ,
U_ZDYBZType, U_FileUp3, U_FileUp4; U_ZDYBZType, U_FileUp3, U_FileUp4 ,superobject, U_LabelPrintFun;
{$R *.dfm} {$R *.dfm}
@ -617,6 +633,7 @@ begin
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR); application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit; exit;
end; end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
@ -821,5 +838,26 @@ begin
InitImage(); InitImage();
end; end;
procedure TfrmYGList.ToolButton6Click(Sender: TObject);
var
FPrintJson, JsonResult, MFiltration: string;
RTValues: TStringArray;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) then
begin
RTValues := SelCDSKey(Order_Main, ['YGID']);
MFiltration := RTValues[0];
end
else
begin
MFiltration := Trim(Order_Main.fieldbyname('YGID').AsString);
end;
FPrintJson := '{ "LMType": "LMType","QrCodeField": "YGID","PreviewPrint": true,"DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '", "PrtArgs": [ { "IsSql": true, "Filtration": " ' + MFiltration + '" }] }';
FormPrint(Application, PChar(FPrintJson));
end;
end. end.

2
云翔一码通/U_YMTRKInPut.pas
View File

@ -1017,7 +1017,7 @@ begin
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1; ModalResult:=1;
Exit; Exit;
end; end;
end; end;

1
云翔一码通/U_YMTRKList.dfm
View File

@ -737,6 +737,7 @@ object frmYMTRKList: TfrmYMTRKList
DataBinding.FieldName = 'MQty' DataBinding.FieldName = 'MQty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 63 Width = 63
end end