delphi+access通用财务管理系统(一)毕业论文(6)
2013-06-02 01:01
导读：nbsp; BitBtn21: TBitBtn; Timer1: TTimer; Label6: TLabel; DBEdit3: TDBEdit; Panel5: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: T
nbsp; BitBtn21: TBitBtn;
Timer1: TTimer;
Label6: TLabel;
DBEdit3: TDBEdit;
Panel5: TPanel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit12: TDBEdit;
TabSheet4: TTabSheet;
Panel6: TPanel;
GroupBox1: TGroupBox;
SpeedButton1: TSpeedButton;
DBGrid2: TDBGrid;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBNavigator1: TDBNavigator;
Label15: TLabel;
Label16: TLabel;
DataSource2: TDataSource;
XPMenu1: TXPMenu;
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure filldata(sender:tcombobox);
procedure search(f1:tcombobox;t1:tedit);
（科教作文网 zw.nseac.com整理）
procedure dispall;
procedure FormActivate(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn21Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn18Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses about,dm,report,login;
{$R *.dfm}
procedure TForm1.N9Click(Sender: TObject);
begin
tabsheet2.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
tabsheet3.Show;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
tabsheet5.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
tabsheet1.Show;
end;
procedure TF
