评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access通用财务管理系统(一)毕业论文(3)

2013-06-02 01:01     BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    XPMenu1: TXPMenu;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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