311 lines
7.9 KiB
ObjectPascal
311 lines
7.9 KiB
ObjectPascal
|
unit U_SalaryList;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
|||
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|||
|
|
cxGrid, DBClient, cxTextEdit, DateUtils, cxLookAndFeels,
|
|||
|
|
cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
|
|||
|
|
dxSkinsDefaultPainters, dxDateRanges, dxSkinWXI, dxScrollbarAnnotations,
|
|||
|
|
dxBarBuiltInMenu;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmSalaryList = class(TfrmBaseList)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBAdd: TToolButton;
|
|||
|
|
TBEdit: TToolButton;
|
|||
|
|
TBExport: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Main: TClientDataSet;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
YMDate: TDateTimePicker;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1EEName: TcxGridDBColumn;
|
|||
|
|
v1D01: TcxGridDBColumn;
|
|||
|
|
v1D02: TcxGridDBColumn;
|
|||
|
|
v1D03: TcxGridDBColumn;
|
|||
|
|
v1D04: TcxGridDBColumn;
|
|||
|
|
v1D05: TcxGridDBColumn;
|
|||
|
|
v1D06: TcxGridDBColumn;
|
|||
|
|
v1D07: TcxGridDBColumn;
|
|||
|
|
v1D08: TcxGridDBColumn;
|
|||
|
|
v1D09: TcxGridDBColumn;
|
|||
|
|
v1D10: TcxGridDBColumn;
|
|||
|
|
v1D11: TcxGridDBColumn;
|
|||
|
|
v1D12: TcxGridDBColumn;
|
|||
|
|
v1D13: TcxGridDBColumn;
|
|||
|
|
v1D14: TcxGridDBColumn;
|
|||
|
|
v1D15: TcxGridDBColumn;
|
|||
|
|
v1D16: TcxGridDBColumn;
|
|||
|
|
v1D17: TcxGridDBColumn;
|
|||
|
|
v1D18: TcxGridDBColumn;
|
|||
|
|
v1D19: TcxGridDBColumn;
|
|||
|
|
v1D20: TcxGridDBColumn;
|
|||
|
|
v1D21: TcxGridDBColumn;
|
|||
|
|
v1D22: TcxGridDBColumn;
|
|||
|
|
v1D23: TcxGridDBColumn;
|
|||
|
|
v1D24: TcxGridDBColumn;
|
|||
|
|
v1D25: TcxGridDBColumn;
|
|||
|
|
v1D26: TcxGridDBColumn;
|
|||
|
|
v1D27: TcxGridDBColumn;
|
|||
|
|
v1D28: TcxGridDBColumn;
|
|||
|
|
v1D29: TcxGridDBColumn;
|
|||
|
|
v1D30: TcxGridDBColumn;
|
|||
|
|
v1D31: TcxGridDBColumn;
|
|||
|
|
v1DHJ: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure TBRafreshClick(Sender: TObject);
|
|||
|
|
procedure TBAddClick(Sender: TObject);
|
|||
|
|
procedure TBEditClick(Sender: TObject);
|
|||
|
|
procedure TBExportClick(Sender: TObject);
|
|||
|
|
procedure YMDateChange(Sender: TObject);
|
|||
|
|
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
private
|
|||
|
|
FYMonth: string; //<2F><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>(yyyymm)
|
|||
|
|
FInitFlag: Boolean;
|
|||
|
|
procedure InitGrid();
|
|||
|
|
function DayField(i: Integer): string;
|
|||
|
|
function CalcRowHJ(): Double;
|
|||
|
|
function GetFocusedDay(): Integer;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmSalaryList: TfrmSalaryList;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_RTFun, U_SalaryInPut;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
function TfrmSalaryList.GetFocusedDay(): Integer;
|
|||
|
|
var
|
|||
|
|
FCol: TcxGridColumn;
|
|||
|
|
FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
Result := 0;
|
|||
|
|
if Tv1.Controller = nil then
|
|||
|
|
Exit;
|
|||
|
|
FCol := Tv1.Controller.FocusedColumn;
|
|||
|
|
if FCol = nil then
|
|||
|
|
Exit;
|
|||
|
|
if not (FCol is TcxGridDBColumn) then
|
|||
|
|
Exit;
|
|||
|
|
FFieldName := TcxGridDBColumn(FCol).DataBinding.FieldName;
|
|||
|
|
if Length(FFieldName) <> 3 then
|
|||
|
|
Exit;
|
|||
|
|
if FFieldName[1] <> 'D' then
|
|||
|
|
Exit;
|
|||
|
|
if not TryStrToInt(Copy(FFieldName, 2, 2), Result) then
|
|||
|
|
begin
|
|||
|
|
Result := 0;
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if (Result < 1) or (Result > 31) then
|
|||
|
|
Result := 0;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
FInitFlag := True;
|
|||
|
|
YMDate.Date := SGetServerDate(ADOQueryTemp);
|
|||
|
|
FInitFlag := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
frmSalaryList := nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
Action := caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
ReadCxGrid(Trim(Self.Caption), Tv1, 'OA<4F><41><EFBFBD><EFBFBD>');
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
WriteCxGrid(Trim(Self.Caption), Tv1, 'OA<4F><41><EFBFBD><EFBFBD>');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.TBRafreshClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.TBAddClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FDay: Integer;
|
|||
|
|
begin
|
|||
|
|
FDay := GetFocusedDay();
|
|||
|
|
if FDay = 0 then
|
|||
|
|
FDay := DayOf(YMDate.Date);
|
|||
|
|
try
|
|||
|
|
frmSalaryInPut := TfrmSalaryInPut.Create(Application);
|
|||
|
|
with frmSalaryInPut do
|
|||
|
|
begin
|
|||
|
|
PState := 0;
|
|||
|
|
FYMonth := Self.FYMonth;
|
|||
|
|
FInitDay := FDay;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmSalaryInPut.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.TBEditClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FDay: Integer;
|
|||
|
|
begin
|
|||
|
|
FDay := GetFocusedDay();
|
|||
|
|
if FDay = 0 then
|
|||
|
|
FDay := DayOf(YMDate.Date);
|
|||
|
|
try
|
|||
|
|
frmSalaryInPut := TfrmSalaryInPut.Create(Application);
|
|||
|
|
with frmSalaryInPut do
|
|||
|
|
begin
|
|||
|
|
PState := 1;
|
|||
|
|
FYMonth := Self.FYMonth;
|
|||
|
|
FInitDay := FDay;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmSalaryInPut.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.TBExportClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
TcxGridToExcel(Trim(Self.Caption), cxGrid1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.YMDateChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if FInitFlag then
|
|||
|
|
Exit;
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
TBEdit.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmSalaryList.DayField(i: Integer): string;
|
|||
|
|
begin
|
|||
|
|
Result := 'D' + Format('%.2d', [i]);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSalaryList.InitGrid();
|
|||
|
|
var
|
|||
|
|
i, FDays: Integer;
|
|||
|
|
FCol: TcxGridDBColumn;
|
|||
|
|
FDateStart: TDateTime;
|
|||
|
|
begin
|
|||
|
|
FYMonth := FormatDateTime('yyyymm', YMDate.Date);
|
|||
|
|
FDays := DaysInMonth(YMDate.Date);
|
|||
|
|
FDateStart := EncodeDate(StrToInt(Copy(FYMonth, 1, 4)), StrToInt(Copy(FYMonth, 5, 2)), 1);
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
SQL.Add(' select E.EEID,E.EECode,E.EEName,E.Dept ');
|
|||
|
|
for i := 1 to 31 do
|
|||
|
|
SQL.Add(' ,max(case when day(S.GZRQ)=' + IntToStr(i) + ' then S.GZS end) as ' + DayField(i) + ' ');
|
|||
|
|
SQL.Add(' from SY_Employee E ');
|
|||
|
|
SQL.Add(' left join SY_Salary S on S.EEID=E.EEID ');
|
|||
|
|
SQL.Add(' and S.GZRQ>=' + quotedstr(FormatDateTime('yyyy-mm-dd', FDateStart)));
|
|||
|
|
SQL.Add(' and S.GZRQ<' + quotedstr(FormatDateTime('yyyy-mm-dd', IncMonth(FDateStart, 1))));
|
|||
|
|
SQL.Add(' where isnull(E.EEType,''<27><>ʽ'')<>''<27><>ְ'' or S.EEID is not null ');
|
|||
|
|
SQL.Add(' group by E.EEID,E.EECode,E.EEName,E.Dept ');
|
|||
|
|
SQL.Add(' order by E.EECode ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
Order_Main.Close;
|
|||
|
|
Order_Main.FieldDefs.Add('DHJ', ftFloat);
|
|||
|
|
Order_Main.CreateDataSet;
|
|||
|
|
TFloatField(Order_Main.FieldByName('DHJ')).DisplayFormat := '0.##';
|
|||
|
|
SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>С<EFBFBD><D0A1>
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('DHJ').Value := CalcRowHJ();
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
|
|||
|
|
for i := 1 to 31 do
|
|||
|
|
begin
|
|||
|
|
FCol := Tv1.GetColumnByFieldName(DayField(i));
|
|||
|
|
if FCol <> nil then
|
|||
|
|
FCol.Visible := (i <= FDays);
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmSalaryList.CalcRowHJ(): Double;
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
FVal: Double;
|
|||
|
|
begin
|
|||
|
|
Result := 0;
|
|||
|
|
for i := 1 to 31 do
|
|||
|
|
begin
|
|||
|
|
if TryStrToFloat(Trim(Order_Main.fieldbyname(DayField(i)).AsString), FVal) then
|
|||
|
|
Result := Result + FVal;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|