f_material_id.pas

使用Delphi开发的成本管理系统

unit f_material_id;

interface

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

type
  Tw_material_id = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ado_material: TADOQuery;
    ado_materialmaterial_id: TStringField;
    ado_materialmaterial_name: TStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_material_id: Tw_material_id;

implementation

{$R *.dfm}

procedure Tw_material_id.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tw_material_id.FormCreate(Sender: TObject);
begin
   ado_material.Close;
   ado_material.SQL.Clear;
   ado_material.SQL.Add('select * from material');
   ado_material.Open;
   ado_material.First;
while not ado_material.eof do
 begin
  combobox1.items.add(trim(ado_material.fieldbyname('material_id').asString)+'  ---  '+trim(ado_material.fieldbyname('material_name').asString));
  ado_material.next;
 end;
end;
end.