f_resourse_id.pas

来自「使用Delphi开发的成本管理系统」· PAS 代码 · 共 54 行

unit f_resourse_id;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  Tw_resourse_id = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ComboBox1: TComboBox;
    ado_resourse: TADOQuery;
    ado_resourseresourse_id: TStringField;
    ado_resourseresourse_name: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_resourse_id: Tw_resourse_id;

implementation

{$R *.dfm}

procedure Tw_resourse_id.FormCreate(Sender: TObject);
begin
ado_resourse.Close;
ado_resourse.SQL.Clear;
ado_resourse.SQL.Add('select * from resourse');
ado_resourse.Open;
ado_resourse.First;
while not ado_resourse.Eof  do
begin
 combobox1.Items.Add(trim(ado_resourse.fieldbyname('resourse_id').AsString)+'  --- '+trim(ado_resourse.fieldbyname('resourse_name').AsString));
 ado_resourse.Next;
 end;
end;

procedure Tw_resourse_id.BitBtn3Click(Sender: TObject);
begin
close;
end;

end.