delphi+access通用财务管理系统(三)

var
  denglu: Tdenglu;

implementation
   uses dm,main;
{$R *.dfm}

procedure Tdenglu.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tdenglu.FormCreate(Sender: TObject);
begin
   with dm2.ADOTable1 do
     begin
      open;
      first;
       while not eof do
         begin
       combobox1.Items.Add(fields[0].Value );
       next;
         end;
    combobox1.ItemIndex :=0;
    end;
end;

procedure Tdenglu.BitBtn1Click(Sender: TObject);
begin
   with dm2.ADOTable1 do
   begin
     if locate('us',combobox1.Text,[]) then
       begin
         if maskedit1.text=fields[1].Value then
            begin
            hide;
            with tform1.Create(self) do
               showmodal;
            end;
            application.Terminate ;
       end;
   end;
end;

end.

数据库管理界面与代码设计实现

代码设计:
unit dm;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  Tdm2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TBCDField;
    ADOQuery1DSDesigner3: TBCDField;
    ADOQuery1DSDesigner4: TDateTimeField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1total: TCurrencyField;
    ADOTable1: TADOTable;
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm2: Tdm2;

implementation

{$R *.dfm}

procedure Tdm2.ADOQuery1CalcFields(DataSet: TDataS

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 3/8/8