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);
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
首页 上一页 3 4 5 6 7 8 下一页 尾页 6/8/8
delphi+access通用财务管理系统(六)由毕业论文网（www.huoyuandh.com）会员上传。
