mainunit1.~pas

这是一个Delphi很好很全面知识的实例

unit mainUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, jpeg, ExtCtrls, ImgList, StdCtrls,
  WinSkinData;

type
  TMainForm = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    XT: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    TJ: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    SC: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    CX: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    BB: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    PL: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    BZ: TMenuItem;
    N10: TMenuItem;
    ImageList1: TImageList;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton16: TToolButton;
    ToolButton2: TToolButton;
    ToolButton11: TToolButton;
    ToolButton3: TToolButton;
    ToolButton17: TToolButton;
    ToolButton4: TToolButton;
    ToolButton12: TToolButton;
    ToolButton5: TToolButton;
    ToolButton18: TToolButton;
    ToolButton6: TToolButton;
    ToolButton13: TToolButton;
    ToolButton7: TToolButton;
    ToolButton19: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton15: TToolButton;
    ToolButton14: TToolButton;
    ToolButton20: TToolButton;
    Label1: TLabel;
    Label2: TLabel;
    SkinData1: TSkinData;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses DLUnit1, MDUnit1, untDL, SRLLUnit1, ZCLLUnit1, TJSRUnit1, SPUnit1,
  TJZCUnit1, SRCXUnit1, ZCCXUnit1, XGYHUnit1, DelAddUnit1, DelOutUnit1,
  LLYHUnit1, SRBBUnit1, ZCBBUnit1, AddUserUnit1, SRDYUnit1, ZCDYUnit1,
  AboutUnit1;

{$R *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if messagedlg('您真的要离开吗？',mtinformation,[mbyes,mbno],0)=mryes then
   application.Terminate //退出系统
 else
   Abort;//返回系统
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
 md.ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'grlz.mdb;Mode=ReadWrite;Jet OLEDB:Database Password=25810877589';
 frmdl.BorderStyle:=bsnone;//初始化登陆窗体
 frmdl.ShowModal();
 statusbar1.Panels[0].Text:='当前日期：'+datetostr(date);
 statusbar1.Panels[2].Text:='版权所有：04420 刘野';
end;

procedure TMainForm.ToolButton1Click(Sender: TObject); //收入表浏览
begin
 srllform:=tsrllform.Create(application);
 md.ADOSRTable1.Active:=true;
 mainform.ToolButton1.Enabled:=false;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);//支出表浏览
begin
  zcllform:=tzcllform.Create(application);
  md.ADOZCTable2.Active:=true;
  mainform.ToolButton2.Enabled:=false;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);//添加收入记录
begin
  tjsrform:=ttjsrform.Create(application);//创建JSRFORM窗体
  mainform.ToolButton3.Enabled:=false;
  mainform.N3.Enabled:=false;
end;

procedure TMainForm.N9Click(Sender: TObject); //层叠
begin
 md.ADOSRTable1.Active:=true;
 md.ADOZCTable2.Active:=true;
 mainform.Cascade;
end;

procedure TMainForm.N11Click(Sender: TObject);//水平平铺
begin
 md.ADOSRTable1.Active:=true;
 md.ADOZCTable2.Active:=true;
 mainform.Tile;
 mainform.TileMode:=tbhorizontal;
 mainform.Tile;
end;

procedure TMainForm.N14Click(Sender: TObject);//垂直平铺
begin
  md.ADOSRTable1.Active:=true;
  md.ADOZCTable2.Active:=true;
  mainform.Tile;
  mainform.TileMode:=tbvertical;
  mainform.Tile;
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);//添加支出记录
begin
 tjzcform:=ttjzcform.Create(application);
 mainform.ToolButton4.Enabled:=false;
 mainform.N4.Enabled:=false;
end;

procedure TMainForm.N3Click(Sender: TObject);//收入添写
begin
  tjsrform:=ttjsrform.Create(application);
  mainform.N3.Enabled:=false;
  mainform.ToolButton3.Enabled:=false;
end;

procedure TMainForm.N4Click(Sender: TObject);//支出添写
begin
  tjzcform:=ttjzcform.Create(application);
  mainform.n4.Enabled:=false;
  mainform.ToolButton4.Enabled:=false;
end;

procedure TMainForm.ToolButton5Click(Sender: TObject); //收入查询
begin
  SRCXform:=tsrcxform.Create(application);
  mainform.ToolButton5.Enabled:=false;
  mainform.N12.Enabled:=false;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  SRCXform:=tsrcxform.Create(application);
  mainform.ToolButton5.Enabled:=false;
  mainform.N12.Enabled:=false;
end;

procedure TMainForm.ToolButton6Click(Sender: TObject); //支出查询
begin
  zccxform:=tzccxform.Create(application);
  zccxform.BringToFront;//让窗体在最前面显示
  mainform.ToolButton6.Enabled:=false;
  mainform.n13.Enabled:=false;
end;

procedure TMainForm.N15Click(Sender: TObject); //修改权限
begin
 xgyhform:=txgyhform.Create(application);
 mainform.N15.Enabled:=false;
end;

procedure TMainForm.ToolButton7Click(Sender: TObject); //删除收入记录
begin
  deladdform:=tdeladdform.Create(application);
  mainform.ToolButton7.Enabled:=false;
  mainform.n5.Enabled:=false;
end;

procedure TMainForm.ToolButton8Click(Sender: TObject); //删除支出记录
begin
  deloutform:=tdeloutform.Create(application);
  mainform.ToolButton8.Enabled:=false;
  mainform.n6.Enabled:=false;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
  LLYHForm:=tLLYHForm.Create(application);
  mainform.n16.Enabled:=false;
end;

procedure TMainForm.N2Click(Sender: TObject); //退出
begin
if messagedlg('您真的要离开吗？',mtinformation,[mbyes,mbno],0)=mryes then
   application.Terminate
else
   Abort;
end;

procedure TMainForm.N17Click(Sender: TObject);//添加用户
begin
adduserform:=tadduserform.Create(application);
mainform.N17.Enabled:=false;
end;

procedure TMainForm.ToolButton10Click(Sender: TObject);//收入报表
begin
  md.ADOConnection1.Open;
  md.ADOSRTable1.Active:=true;
  if md.ADOSRTable1.RecordCount>0 then
   begin
    mainform.ToolButton10.Enabled:=false;
    mainform.N7.Enabled:=false;
    srdyform.QuickRep1.PreviewModal;
   end;
end;

procedure TMainForm.ToolButton14Click(Sender: TObject); //支出报表
begin md.ADOConnection1.Open;
  md.ADOZCTable2.Active:=true;
  if md.ADOZCTable2.RecordCount>0 then
    begin
      mainform.ToolButton14.Enabled:=false;
      mainform.N8.Enabled:=false;
      zcdyform.QuickRep1.PreviewModal;
    end;
end;

procedure TMainForm.N10Click(Sender: TObject);//关于
begin
 aboutform:=taboutform.Create(application);
 mainform.n10.Enabled:=false;
end;

procedure TMainForm.N1Click(Sender: TObject);//重新登陆
begin
 frmdl.BorderStyle:=bsSingle;//让登陆窗体变回普通窗体
 frmdl.ShowModal();
end;

end.