unit1.pas

用于开发税务票据管理的软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, Grids, DBGrids, ImgList, Menus, ComCtrls, ToolWin, jpeg,
  ExtCtrls, XPMenu;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    ImageList1: TImageList;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    Image1: TImage;
    N28: TMenuItem;
    N29: TMenuItem;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N29Click(Sender: TObject);
  private
    procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO; 

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses unit3,unit4,unit5,unit6,unit8,unit10,unit11,unit13,unit15,unit16,unit17,
unit18,unit19;
procedure TForm1.FormCreate(Sender: TObject);
begin
{with dbs do begin
db3.Close;
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况');
db3.ExecSQL;
db3.Open;
end;
}
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
 form6.show;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
form8.show;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
form10.show;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
form11.Show;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
form13.Show;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
form15.Show;
end;

procedure TForm1.N27Click(Sender: TObject);
begin
form16.Show;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
form17.show;
self.FormActivate(sender);


end;

procedure TForm1.N16Click(Sender: TObject);
begin
if messagedlg('你确定要注销？',mtconfirmation,[mbyes,mbno],1)=mrno then exit;
unit17.i:=0;
n16.Enabled:=false;
self.FormActivate(sender);
end;

procedure TForm1.N17Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin   //当活动时，根据权限来选择合适的操作权限。
if unit17.i=1 then begin
 n24.Enabled:=true;
 n2.Enabled :=true;
 n8.Enabled :=true;
 end
 else begin

 n24.Enabled:=false;
 n2.Enabled :=false;
 n8.Enabled :=false;
end;
if unit17.i=1 then  n16.Enabled:=true else
 n16.enabled:=false;     //还要设置登录注销的可见性。
 toolbutton3.Enabled:=n2.Enabled ;
 toolbutton4.Enabled :=n8.Enabled ;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
aboutbox.Show;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
n19.Click;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
n8.Click;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
n2.Click;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=true;
if messagedlg('你确定要退出本系统？',mtconfirmation,[mbyes,mbno],1)=mryes then
exit;
canclose:=false;
end;

procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 800; {最大化时宽度}
ptMaxSize.Y := 600; {最大化时高度}
ptMaxPosition.X := 0; {最大化时左上角横坐标}
ptMaxPosition.Y := 0; {最大化时左上角纵坐标}
end;
Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
inherited; 

end;

procedure TForm1.N29Click(Sender: TObject);
begin
form19.Show;
end;

end.