?? unit8.pas
字號(hào):
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;
type
TForm8 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
Label3: TLabel;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
begin //增加車位
adotable1.Open;
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
begin
if not adotable1.Locate('addressid',edit1.Text,[locaseinsensitive]) then
begin
adotable1.Edit;
adotable1.AppendRecord([edit1.Text,edit2.Text,0]);
end
else
messagebox(handle,'該停車場(chǎng)編號(hào)已存在,請(qǐng)換個(gè)編號(hào)','系統(tǒng)提示',mb_ok+mb_iconinformation);
end
else
messagebox(handle,'編號(hào)與地址不能為空','系統(tǒng)提示提示',mb_ok+mb_iconinformation);
end;
procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','a'..'z',#008]) then
begin
key:=#0;
end
end;
procedure TForm8.BitBtn2Click(Sender: TObject);
begin //刪除車位
if adotable1.FieldByName('addresscase').Value=0 then
begin
adotable1.Edit;
adotable1.Delete;
adotable1.Next;
end
else
messagebox(handle,'該車位正在使用不能刪除','系統(tǒng)提示',mb_ok+mb_iconinformation);
end;
procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
if not (adotable1.FieldByName('addressid').Value=null) then
begin
edit1.Text:=trim(adotable1.FieldByName('addressid').Value);
edit2.Text:=trim(adotable1.FieldByName('address').Value);
end;
end;
procedure TForm8.FormActivate(Sender: TObject);
begin
adotable1.Open;
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;
procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Close;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -