querybalanceunit.~pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit querybalanceunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DB, ADODB;

type
  Tfrm_querybalance = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    id: TEdit;
    balance: TEdit;
    b_query: TButton;
    b_close: TButton;
    t_member: TADOTable;
    ds_member: TDataSource;
    ADOConnection1: TADOConnection;
    midname: TPanel;
    DBGrid3: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure idDblClick(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
    procedure b_queryClick(Sender: TObject);
    procedure idChange(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure idKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_querybalance: Tfrm_querybalance;

implementation
 
{$R *.dfm}

procedure Tfrm_querybalance.FormShow(Sender: TObject);
begin
dbgrid3.Align:=alclient;
midname.Visible:=false;
balance.Enabled:=false;
//id.Text:='';
//balance.Text:='';
id.SetFocus;
end;

procedure Tfrm_querybalance.idDblClick(Sender: TObject);
begin
midname.Left:=120;
midname.Top:=26;
t_member.Close;
t_member.Filter:='';
t_member.Filtered:=true;
t_member.Open;
midname.Visible:=true;
balance.Clear;
end;

procedure Tfrm_querybalance.DBGrid3DblClick(Sender: TObject);
begin
t_member.Open;
id.Text:=inttostr(t_member.FieldValues['会员编号']);
balance.Text:='';
midname.Visible:=false;
activecontrol:=id;
end;

procedure Tfrm_querybalance.b_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_querybalance.b_queryClick(Sender: TObject);
begin
if id.Text='' then
begin
 showmessage('请输入会员编号');
 activecontrol:=id;
 exit;
end;
t_member.Open;
 if t_member.RecordCount>0 then
 balance.Text:=floattostr(t_member.FieldValues['结余']);
end;

procedure Tfrm_querybalance.idChange(Sender: TObject);
begin
t_member.Close;
t_member.Filter:='会员编号='''+id.Text+'''';
t_member.Filtered:=true;
t_member.Open;
end;

procedure Tfrm_querybalance.FormClick(Sender: TObject);
begin
midname.Visible:=false;
end;

procedure Tfrm_querybalance.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
t_member.Close;
end;

procedure Tfrm_querybalance.idKeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(vk_return) then frm_querybalance.b_queryClick(nil);
end;

end.