comport_u.pas

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

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.