untreceipttype_m.pas

来自「用delphi编写的数据库管理软件」· PAS 代码 · 共 56 行

unit untReceiptType_M;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfo_M, StdCtrls, Mask, wwdbedit, ExtCtrls, DB, DBClient,
  wwdblook;

type
  TfrmReceiptType_M = class(TfrmBaseInfo_M)
    Label3: TLabel;
    CDSType: TClientDataSet;
    CDSTypeftype: TStringField;
    wwDBLookupCombo2: TwwDBLookupCombo;
    procedure FormCreate(Sender: TObject);
  private
    procedure AddTypeData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReceiptType_M: TfrmReceiptType_M;

implementation

uses untReceiptType, DataProcess;

{$R *.dfm}

procedure TfrmReceiptType_M.AddTypeData;
begin
  CDSType.Close;
  CDSType.FieldDefs.Clear;
  CDSType.FieldDefs.Add('fType',ftString,12);
  CDSType.CreateDataSet;

  CDSType.AppendRecord(['收入类型']);
  CDSType.AppendRecord(['支出类型']);

  CDSType.Open;
end;

procedure TfrmReceiptType_M.FormCreate(Sender: TObject);
begin
  inherited;
  AddTypeData;
  Maintable:='tReceiptType';
  MasterField:='fcode';
  ParentForm:=frmReceiptType;
end;

end.