ffrmcashierdayrecterm.pas

来自「财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全」· PAS 代码 · 共 55 行

unit FfrmCashierDayRecTerm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FfrmBaseForm, StdCtrls, RzButton, Mask, RzEdit, RzSpnEdt;

type
  TfrmCashierDayRecTerm = class(TfrmBaseForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    rseBegin: TRzSpinEdit;
    rseEnd: TRzSpinEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    cmbCashier: TComboBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCashierDayRecTerm: TfrmCashierDayRecTerm;

implementation

uses FdmMain, BaseVar;

{$R *.dfm}

procedure TfrmCashierDayRecTerm.FormCreate(Sender: TObject);
var
  c:String;
begin
  inherited;
  rseBegin.Value :=CurPeriod;
  rseEnd.Value :=CurPeriod;
  //初始化现金类账户
  c:=dmMain.GetSysInfo('现金');
  dmMain.OpenDataSet(dmMain.adsTemp,'select 代码 from AccountCode where left(代码,len('''
    +c+'''))='''+c+'''');
  with dmMain.adsTemp do
  while not eof do
  begin
    cmbCashier.Items.Add(FieldByName('代码').asstring);
    next;
  end;
end;

end.