qjdjfind.pas

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

unit qjdjfind;

interface

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

type
  Tqjdjfindb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label5: TLabel;
    Edit3: TEdit;
    DataSource1: TDataSource;
    Button5: TButton;
    ListBox1: TListBox;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  i_first:boolean;
  end;

var
  qjdjfindb: Tqjdjfindb;

implementation

uses datamodule;

{$R *.DFM}

procedure Tqjdjfindb.Button1Click(Sender: TObject);
var
str:string;
begin
str:='select sum(a_total) as aa from qjdj.db where (a_number like ';
str:=str+''''+'%'+edit1.text+'%'+''''+' and a_name like ';
str:=str+''''+'%'+edit2.text+'%'+''''+') and a_date between ';
str:=str+''''+formatdatetime('mm''/''d''/''yyyy',datetimepicker1.date)+''''+' and ';
str:=str+''''+formatdatetime('mm''/''d''/''yyyy',datetimepicker2.date)+'''';
with datamodule1.qjdjs do
begin
close;
sql.clear;
sql.add(str);
prepare;
open;
end;
edit3.text:=floattostr(datamodule1.qjdjs.fieldbyname('aa').asfloat);
str:='select *from qjdj.db where (a_number like ';
str:=str+''''+'%'+edit1.text+'%'+''''+' and a_name like ';
str:=str+''''+'%'+edit2.text+'%'+''''+') and a_date between ';
str:=str+''''+formatdatetime('mm''/''d''/''yyyy',datetimepicker1.date)+''''+' and ';
str:=str+''''+formatdatetime('mm''/''d''/''yyyy',datetimepicker2.date)+'''';
with datamodule1.qjdjs do
begin
close;
sql.clear;
sql.add(str);
prepare;
open;
end;
end;

procedure Tqjdjfindb.FormShow(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
datamodule1.qjdjs.Close;
i_first:=true;
dbgrid2.visible:=false;
end;

procedure Tqjdjfindb.DBGrid1CellClick(Column: TColumn);
var
i_notrow,i_row:integer;//用来判断目前记录是否改掉
begin
i_row:=tstringgrid(dbgrid1).row ;
datamodule1.qjdjs.edit;
if i_first=true then  //第一次的情况
     begin
   datamodule1.qjdjs.edit;
   i_first:=false;
     i_notrow:=i_row;
     end;
       if i_row<>i_notrow then // 在不同行单击
       begin
       if datamodule1.qjdjs.state in [dsinsert,dsedit] then
       begin
       try
       datamodule1.qjdjs.Post;
       except
       showmessage('不能正确保存数据，请确保输入数据的正确性');
       end;
       datamodule1.qjdjs.edit;
       end
       else
        datamodule1.qjdjs.edit;
       end;

i_notrow:=i_row;
end;

procedure Tqjdjfindb.Button4Click(Sender: TObject);
begin
datamodule1.qjdjs.Edit;
end;

procedure Tqjdjfindb.Button5Click(Sender: TObject);
begin
if datamodule1.qjdjs.State in [dsinsert,dsedit] then
begin
try
datamodule1.qjdjs.Post;
except
showmessage('不能正确修改，请确认输入的数据是否正确');
end;
end;
end;
procedure Tqjdjfindb.Button2Click(Sender: TObject);
begin
if application.messagebox('你确定要删除此记录吗?','程序执行确认',mb_yesno+mb_defbutton2+mb_iconstop+mb_applmodal)=idyes then
datamodule1.qjdjs.Delete
else
showmessage('此记录并未删除');
end;
procedure Tqjdjfindb.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='109' then
 button2.click;
end;

procedure Tqjdjfindb.Button3Click(Sender: TObject);
begin
self.close;
end;

procedure Tqjdjfindb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
yggbstr:string;
begin
if inttostr(key)='13' then
begin
yggbstr:='select *from yggb where a_number like ';
yggbstr:=yggbstr+''''+'%'+edit1.text+'%'+''''+' or a_name like ';
yggbstr:=yggbstr+''''+'%'+edit2.text+'%'+'''';
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(yggbstr);
prepare;
open;
end;
if datamodule1.yggb.Eof then
showmessage('查无此人')
else
begin
dbgrid2.visible:=true;
dbgrid2.setfocus;
end;
end;
end;

procedure Tqjdjfindb.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
yggbstr:string;
begin
if inttostr(key)='13' then
begin
yggbstr:='select *from yggb where a_number like ';
yggbstr:=yggbstr+''''+'%'+edit1.text+'%'+''''+' or a_name like ';
yggbstr:=yggbstr+''''+'%'+edit2.text+'%'+'''';
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(yggbstr);
prepare;
open;
end;
if datamodule1.yggb.Eof then
showmessage('查无此人')
else
begin
dbgrid2.visible:=true;
dbgrid2.setfocus;
end;
end;
end;

procedure Tqjdjfindb.DBGrid2DblClick(Sender: TObject);
begin
edit1.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit2.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid2.visible:=false;
end;

procedure Tqjdjfindb.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 Tqjdjfindb.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
edit1.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit2.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid2.visible:=false;
end;
if key=27 then
dbgrid2.visible:=false;
end;

procedure Tqjdjfindb.Edit1Enter(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
dbgrid2.SetFocus;

end;

procedure Tqjdjfindb.Edit1Exit(Sender: TObject);
begin
with (sender as tedit) do
color:=clwhite;
end;

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

end.