?? f_material_id.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -