ufrmjieban.~pas

来自「企业信息管理系统程序框架」· ~PAS 代码 · 共 44 行

unit uFrmJieBan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uBase, dcfdes, ImgList, frame_uTradeBase, ComCtrls,
  StdCtrls;

type
  TFrm_jieban = class(Tframe_frmTradeBase)
    lbl1: TLabel;
    cbbdutyclassname: TComboBox;
    Label1: TLabel;
    edt1: TEdit;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_jieban: TFrm_jieban;

implementation

{$R *.dfm}

procedure TFrm_jieban.FormShow(Sender: TObject);
begin
  inherited;
  frame_DM.OpenSQL(GV_Qry,'select dutyclassname from t_dutyclass order by dutyclassname',[]);
  while not gv_qry.Eof do
  begin
    cbbdutyclassname.Items.Add(GV_Qry.Fields[0].asstring);
    GV_Qry.Next;
  end;
  inherited;
end;

end.