?? comport_u.pas
字號:
unit comport_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils,Buttons, DBCtrls, DB, ADODB;
type
Tfrm_com = class(TForm)
Label1: TLabel;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBComboBox1: TDBComboBox;
ok_BitBtn: TBitBtn;
cancel_BitBtn: TBitBtn;
Label2: TLabel;
DBComboBox2: TDBComboBox;
procedure FormCreate(Sender: TObject);
procedure ok_BitBtnClick(Sender: TObject);
procedure cancel_BitBtnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_com: Tfrm_com;
implementation
uses public_u, sfsb_u;
{$R *.dfm}
procedure Tfrm_com.ok_BitBtnClick(Sender: TObject);
begin
if datasource1.DataSet.State=dsedit then
begin
datasource1.DataSet.Post;
com_num:=strtoint(rightstr(adotable1.FieldByName('comport').AsString,1))-1;
cardtype_num_v:=cardtype_num(datasource1.DataSet.FieldByName('cardtype').AsString);
end;
self.Free;
end;
procedure Tfrm_com.cancel_BitBtnClick(Sender: TObject);
begin
if datasource1.DataSet.State=dsinsert then
datasource1.DataSet.Cancel;
self.Close;
end;
procedure Tfrm_com.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.Free;
end;
procedure Tfrm_com.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'data\sfsb.mdb'+';Persist Security Info=False;Jet OLEDB:Database Password=tjz929';
if not datasource1.DataSet.Active then
datasource1.DataSet.Open;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -