?? unit3.~pas
字號:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, DBCtrls, Mask, ExtCtrls;
type
TForm3 = class(TForm)
Label12: TLabel;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit1: TDBEdit;
DBComboBox1: TDBComboBox;
DBEdit2: TDBEdit;
DBComboBox2: TDBComboBox;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBComboBox3: TDBComboBox;
DBMemo1: TDBMemo;
Label14: TLabel;
DBImage1: TDBImage;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
table1.Append;
form3.Close;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
dbedit1.SetFocus;
table1.Append;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
dbcombobox1.Items.Add('男');
dbcombobox1.Items.Add('女');
dbcombobox2.Items.Add('A型');
dbcombobox2.Items.Add('B型');
dbcombobox2.Items.Add('AB型');
dbcombobox2.Items.Add('O型');
dbcombobox3.Items.Add('漢族');
dbcombobox3.Items.Add('土家族');
dbcombobox3.Items.Add('滿族');
dbcombobox3.Items.Add('白族');
dbcombobox3.Items.Add('傣族');
dbcombobox3.Items.Add('維吾耳族');
table1.Active:=true;
end;
//取消
procedure TForm3.Button3Click(Sender: TObject);
begin
table1.Cancel;
end;
//退出
procedure TForm3.Button4Click(Sender: TObject);
begin
table1.Close;
form3.Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -