credencespoor.pas

一套非常发好的财务管理软件,想从事此方面开发的可以借签

unit CredenceSpoor;

interface

uses
  Windows, Graphics, Controls, Forms, SysUtils, Dialogs, ExtFunc,
  SUIDBCtrls, ExtCtrls, SUIButton, StdCtrls, SUIComboBox, SUIEdit,
  ComCtrls, SUISideChannel, Classes, SUIForm, DB, ADODB, Grids, DBGrids,
  DBGridEh;

type
  TFrmCredenceSpoor = class(TForm)
    suiForm1: TsuiForm;
    q: TADOQuery;
    DataSource1: TDataSource;
    g: TDBGridEh;
    btnClear: TsuiButton;
    btnOK: TsuiButton;
    tq: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure gDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    Cleared:Boolean;
  end;

var
  FrmCredenceSpoor: TFrmCredenceSpoor;
implementation

uses DataModule;

{$R *.dfm}

procedure TFrmCredenceSpoor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q.Close;
  tq.Close;
end;

procedure TFrmCredenceSpoor.FormShow(Sender: TObject);
begin
  Cleared:=false;
  q.Connection:=DM.adoc;
  tq.Connection:=DM.adoc;
  q.Close;
  q.SQL.Clear;
  q.SQL.Add('select * from V_CredenceSpoor');
  q.Open;
  btnClear.Enabled:=(q.RecordCount>0);
end;

procedure TFrmCredenceSpoor.btnClearClick(Sender: TObject);
begin
  if Frm_MsgBox('系统信息','确信要清除所有的凭证修改痕迹吗？',MsgBox_YESNO)=mrNo then Exit;
  tq.Close;
  tq.SQL.Clear;
  tq.SQL.Add('delete from CredenceSpoor');
  tq.ExecSQL;
  tq.Close;
  q.Requery;
  btnClear.Enabled:=false;
  Cleared:=true; //做过清楚痕迹,用于记录 Log
end;

procedure TFrmCredenceSpoor.gDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  oldcolor:tcolor;
  oldpm:tpenmode;
  oldFontColor:TColor;
begin
  oldpm:= g.Canvas.pen.mode;
  oldcolor:= g.Canvas.Brush.color;
  oldFontColor:=g.Canvas.Font.Color;

  if (q.FieldByName('RecNo').AsInteger=1) then {设定变色的行的条件}
  begin
    g.Canvas.Brush.color:=$00E8E8E8;
    g.Canvas.pen.mode:=pmmask;
  end;
  if ((column.FieldName='J_Money') and (q.FieldByName('J_Money').AsCurrency<0)) or
       ((column.FieldName='D_Money') and (q.FieldByName('D_Money').AsCurrency<0)) then
    g.Canvas.Font.Color:=RGB(255,0,0);
  if ((column.FieldName='Year') or (column.FieldName='Month')
     or (column.FieldName='Number') or (column.FieldName='DateTime')
     or (column.FieldName='AccessoryNum') or (column.FieldName='MakeOperator')
     or (column.FieldName='AuditingOperator'))
     and (q.FieldByName('RecNo').AsInteger<>1) then
    g.Canvas.Font.Color:=RGB(255,255,255);

  g.DefaultDrawColumnCell (Rect,DataCol, Column, State);
  g.Canvas.Brush.color:=oldcolor;
  g.Canvas.pen.mode:=oldpm;
  g.Canvas.Font.Color:=oldFontColor;
end;

end.