f_workshop_item_id.pas

来自「ERP成本管理系统DELPHI ERP成本核算系统常常要设计含有如下车间」· PAS 代码 · 共 52 行

unit f_workshop_item_id;

interface

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

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

var
  w_workshop_item_id: Tw_workshop_item_id;

implementation

{$R *.dfm}

procedure Tw_workshop_item_id.FormCreate(Sender: TObject);
begin
   ado_workshop_item.Close;
   ado_workshop_item.SQL.Clear;
   ado_workshop_item.SQL.Add('select * from workshop_item');
   ado_workshop_item.Open;
   ado_workshop_item.First;
while not ado_workshop_item.eof do
 begin
  combobox1.items.add(trim(ado_workshop_item.fieldbyname('workshop_item_id').asString)+'  ---  '+trim(ado_workshop_item.fieldbyname('workshop_item_name').asString));
  ado_workshop_item.next;
 end;
end;
procedure Tw_workshop_item_id.BitBtn3Click(Sender: TObject);
begin
 close;
end;
end.