salnameset.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 99 行

unit salnameset;

interface

uses
  Windows, Messages, SysUtils,adodb,db, Classes, Graphics, Controls, Forms, Dialogs,
  DBCGrids, Grids, DBGrids, RXDBCtrl, Wwdbigrd, Wwdbgrid, StdCtrls,
  ExtCtrls;

type

  TFormsalnameset = class(TForm)
    GroupBox1: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure CheckBox1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formsalnameset: TFormsalnameset;

implementation

uses datamol;

{$R *.DFM}

procedure TFormsalnameset.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if datamod.adosalnameset.state=dsEdit then
 datamod.adosalnameset.Post;
 datamod.ADOsalnameset.Close;
 action:=cafree;
 formsalnameset:=nil;
end;

procedure TFormsalnameset.FormCreate(Sender: TObject);
begin
 datamod.adosalnameset.Close;
 datamod.adosalnameset.CommandText:='select * from syssalfields order by flat';
 DataMod.ADOsalnameset.Open;

end;

procedure TFormsalnameset.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if datamod.ADOsalnameset.FieldByName('flat').value=0 then  //系统
    wwdbgrid1.Canvas.Font.Color :=clFuchsia;
  if datamod.ADOsalnameset.FieldByName('flat').value=1 then //加项
    wwdbgrid1.Canvas.Font.Color :=clblue;
  if datamod.ADOsalnameset.fieldbyname('flat').value=2 then  //减项
    wwdbgrid1.Canvas.Font.Color :=clGreen;
 //wwdbgrid1.TitleFont.Color:=clYellow;
 wwdbgrid1.DefaultDrawDataCell(Rect,field,state);
end;

procedure TFormsalnameset.CheckBox1Click(Sender: TObject);
var qry1:tadoquery;
begin
  qry1:=tadoquery.Create(application);
  qry1.Connection:=datamod.Database1;

  if checkbox1.Checked then
  begin
    qry1.Close;
    qry1.sql.Text:='update syssalfields set changechinename=chinename,flat=flatback,sys=sysback';
    qry1.ExecSQL;
    datamod.ADOsalnameset.Close;
    datamod.ADOsalnameset.CommandText:='select * from syssalfields order by flat';
    datamod.ADOsalnameset.Open;
  end;
end;

procedure TFormsalnameset.Label1Click(Sender: TObject);
begin
// if dd1.Execute  then
// begin
//   (sender as tlabel).Font.Color:=dd1.Color;
 //  wwDBGrid1DrawDataCell(Sender,wwdbgrid1.ClientRect,wwdbgrid1.SelectedField,[gdSelected]);
// end;
end;

end.