querydeficiencyunit.~pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit querydeficiencyunit;

interface

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

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

var
  frm_querydeficiency: Tfrm_querydeficiency;

implementation

{$R *.dfm}
// uses querybalanceunit;
procedure Tfrm_querydeficiency.FormShow(Sender: TObject);
begin
midname.Visible:=false;
dbgrid3.Align:=alclient;


end;

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

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

procedure Tfrm_querydeficiency.idDblClick(Sender: TObject);
begin
midname.Left:=107;
midname.Top:=25;
t_member.Close;
t_member.Filter:='';
t_member.Filtered:=true;
t_member.Open;
midname.Visible:=true;
end;

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

procedure Tfrm_querydeficiency.b_queryClick(Sender: TObject);
begin
if id.Text='' then begin
 showmessage('请输入会员编号');
 activecontrol:=id;
 exit;
end; 
t_member.Close;
t_member.Filter:='会员编号='''+id.Text+'''';
t_member.Filtered:=true;
t_member.Open;
if t_member.RecordCount>0 then
deficiency.Text:=t_member.FieldValues['欠款'];

end;

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

end.