ufrmstd_rate.pas

来自「小银行系统」· PAS 代码 · 共 60 行

unit UfrmStd_Rate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_child1_1, DB, DosMove, DBTables, DBClient, Provider, ADODB,
  Mask, StdCtrls, Buttons, DBCtrls, Grids, DBGridEh, ExtCtrls;

type
  TfrmStd_Rate = class(TF_child1_1)
    Label1: TLabel;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    DBEdit10: TDBEdit;
    StaticText3: TStaticText;
    DBEdit3: TDBEdit;
    StaticText4: TStaticText;
    DBEdit4: TDBEdit;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1add_user: TStringField;
    ClientDataSet1edit_date: TStringField;
    ClientDataSet1edit_user: TStringField;
    ClientDataSet1rate: TFloatField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmStd_Rate: TfrmStd_Rate;

implementation
uses U_main,UDM;

{$R *.dfm}

procedure TfrmStd_Rate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  self.ADODataSet1.Free ;
  self.ClientDataSet1.Free ;
  self.DataSetProvider1.Free ;
  frmStd_Rate :=nil ;
end;

procedure TfrmStd_Rate.FormCreate(Sender: TObject);
begin
  inherited;
  self.ClientDataSet1.Active :=true ;
  self.DBGrid1.Visible:=true;
  self.Memo1.Visible:=false;

end;

end.