qqsd.pas

2004090611144625767.rar 资源名称:通用工资管理

unit qqsd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, Grids, DBGrids;

type
  Tqqsdb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button5Click(Sender: TObject);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qqsdb: Tqqsdb;

implementation

uses datamodule;

{$R *.DFM}

procedure Tqqsdb.Button1Click(Sender: TObject);
begin
button3.enabled:=true;
datamodule1.qqsd.append;
edit1.text:='';
edit2.text:='';
end;

procedure Tqqsdb.Button2Click(Sender: TObject);
begin
button3.enabled:=true;
datamodule1.qqsd.edit;
edit1.text:=datamodule1.qqsd.fieldbyname('a_dw').asstring;
edit2.text:=floattostr(datamodule1.qqsd.fieldbyname('a_price').asfloat);
end;

procedure Tqqsdb.Button3Click(Sender: TObject);
begin
if button3.enabled=false then
showmessage('请先按新增或修改，然后输入数据再按保存，谢谢!')
else
begin
with datamodule1.qqsd do
try
begin
fieldbyname('a_dw').asstring:=edit1.text;
fieldbyname('a_price').asfloat:=strtofloat(edit2.text);
END;
DATAMODULE1.QQSD.post;
except
showmessage('不能正确保存数据，请确保输入数据的正确性');
end;
edit1.text:='';
edit2.text:='';
button3.enabled:=false;
end;

end;

procedure Tqqsdb.FormShow(Sender: TObject);
begin
   button3.enabled:=false;
end;

procedure Tqqsdb.Button4Click(Sender: TObject);
begin
if application.messagebox('确定要删除此记录吗?','程序执行确认',mb_yesno+mb_defbutton2+mb_iconstop+mb_applmodal)=idyes then
datamodule1.qqsd.delete
else
showmessage('此记录未删除');
end;

procedure Tqqsdb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
button3.click;
if inttostr(key)='107' then
button1.Click;
if inttostr(key)='109' then
button2.click;
if inttostr(key)='69' then
button4.click;

end;

procedure Tqqsdb.Button5Click(Sender: TObject);
begin
self.close;
end;

procedure Tqqsdb.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
button3.click;
if inttostr(key)='107' then
button1.Click;
if inttostr(key)='109' then
button2.click;
if inttostr(key)='69' then
button4.click;
end;

procedure Tqqsdb.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
button3.click;
if inttostr(key)='107' then
button1.Click;
if inttostr(key)='109' then
button2.click;
if inttostr(key)='69' then
button4.click;
end;

procedure Tqqsdb.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := $00F5FEFD;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;

procedure Tqqsdb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.release;
end;

end.