frmusermoneys.pas

来自「IC卡饭堂售饭管理系统源码,内有相关说明,」· PAS 代码 · 共 60 行

unit FrmUserMoneyS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Wwdbigrd, Wwdbgrid,ICCTRL,Inifiles;

type
  TFrmUserMoney = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUserMoney: TFrmUserMoney;

implementation

uses DTConnects, DB;

{$R *.dfm}

procedure TFrmUserMoney.FormCreate(Sender: TObject);
begin
  with DTConnect do begin
    QryUserInfo .Close;
    QryUserInfo.SQL.Text:='Select UserName,ICCardNo from [User]';
    QryUserInfo.Open;
  end;
end;

procedure TFrmUserMoney.DBGrid1CellClick(Column: TColumn);
begin
  with DTConnect do begin
    QrySellMoney.Close;
    QrySellMoney.SQL.Text:='Select * From SellMoney where ICCardNo = '+
                            chr(39)+QryUserInfo.FieldValues['ICCardno']+chr(39)
                            +' order by Getdate'; 
    QrySellMoney.Open;
  end;
end;

procedure TFrmUserMoney.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.Release;
end;

end.