?? unit1.~pas
字號(hào):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, StdCtrls, Mask, DBCtrls,
Buttons;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGRID1.ReadOnly:=true;
Table1.Open;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Insert;
DBEdit1.SetFocus;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
table1.delete;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if(table1.state=dsedit) then
begin
table1.edit;
dbedit1.SetFocus;
dbedit1.SelectAll;
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
if(table1.Modified) then
table1.Post;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if(table1.Modified) then
table1.cancel;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -