unit Unit_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Buttons, DB, ADODB, ComCtrls, Menus, ImgList, shellapi,
  StdCtrls, ToolWin;

type
  TForm_main = class(TForm)
    ADOQuery1: TADOQuery;
    Timer_show: TTimer;
    ADOCn: TADOConnection;
    StatusBar_main: TStatusBar;
    MainMenu1: TMainMenu;
    N3: TMenuItem;
    N44: TMenuItem;
    N50: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N18: TMenuItem;
    N70: TMenuItem;
    N67: TMenuItem;
    N66: TMenuItem;
    N64: TMenuItem;
    N63: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N16: TMenuItem;
    N5: TMenuItem;
    N41: TMenuItem;
    N21: TMenuItem;
    N6: TMenuItem;
    N15: TMenuItem;
    MenuItem1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N1: TMenuItem;
    N12: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BackBtn: TToolButton;
    ForwardBtn: TToolButton;
    StopBtn: TToolButton;
    RefreshBtn: TToolButton;
    NavigatorImages: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure Timer_showTimer(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BackBtnClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure RefreshBtnClick(Sender: TObject);
    procedure StopBtnClick(Sender: TObject);
    procedure ForwardBtnClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure p_add_form(form_name:string);  //創(chuàng)建窗體時(shí)追加進(jìn)窗休記錄
    procedure p_del_form(form_name:string);  //關(guān)閉窗體時(shí)刪除窗體記錄
    function f_is_active_form(form_name:string):boolean; //判斷該窗體是否已創(chuàng)建
    function f_get_now:tdatetime;             //得到當(dāng)前數(shù)據(jù)庫(kù)日期
  end;

var
   Form_main: TForm_main;
   //標(biāo)志窗體是否激活
   gl_active_count : integer;
   gs_active_form : array [0..100] of string;

   gs_userid : string;    //用戶ID
   gs_username :String;  //名字
   gs_userbm :String;    //部門

implementation

uses Unit_login, Unit_set_password, Unit_set_khzl, Unit_set_gys,
  Unit_set_login, Unit_set_fkfs, Unit_set_hp, Unit_input_cgsh,
  Unit_input_cgth, Unit_input_xs, Unit_query_cgsh, Unit_query_xs,
  Unit_query_cgth, Unit_query_lr, Unit_query_qk, Unit_set_sjbf,
  Unit_set_sjhy, Unit_set_about, Unit_query_kc;

{$R *.dfm}

procedure TForm_main.p_add_form(form_name:string);
begin
   gl_active_count := gl_active_count + 1;
   gs_active_form[gl_active_count] := form_name;
end;

procedure TForm_main.p_del_form(form_name:string);
var i : integer;
begin
   i := 0;
   if i > gl_active_count then exit;
   while gs_active_form[i] <> form_name do
   begin
      i := i + 1;
      if i > gl_active_count then exit;
   end;
   gl_active_count := gl_active_count - 1;
   while i <= gl_active_count do
   begin
      gs_active_form[i] := gs_active_form[i + 1];
      i := i + 1;
   end;
end;

function TForm_main.f_is_active_form(form_name:string):boolean;
var i : integer;
begin
   for i := 0 to gl_active_count do
   begin
      if gs_active_form[i] = form_name then
      begin
         f_is_active_form := true;
         exit;
      end;
   end;
   f_is_active_form := false;
end;

function TForm_main.f_get_now:tdatetime;             //得到當(dāng)前數(shù)據(jù)庫(kù)日期
begin
    f_get_now := now;
end;

procedure TForm_main.FormCreate(Sender: TObject);
begin
   //初始化記錄窗體是否創(chuàng)建的數(shù)組
   gl_active_count := -1;
end;

procedure TForm_main.FormPaint(Sender: TObject);
begin
   if (not ADOCn.Connected) or (self.tag=1) then exit;
   if not f_is_active_form('Form_login') then
      Application.CreateForm(TForm_login, Form_login);
   if form_login.tag=1 then exit;
   self.Enabled := false;
   form_login.Show;
   form_login.SetFocus;
end;

procedure TForm_main.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   if (not ADOCn.Connected) or (self.tag=1) then exit;
   if not f_is_active_form('Form_login') then
      Application.CreateForm(TForm_login, Form_login);
   if form_login.tag=1 then exit;
   self.Enabled := false;
   form_login.Show;
   form_login.SetFocus;
end;

procedure TForm_main.FormShow(Sender: TObject);
var a,b : string;
begin
//數(shù)據(jù)庫(kù)連接
   adocn.Close;
   a:=ExtractFilePath(paramstr(0))+'xhxc.mdb';  //得到執(zhí)行文件EXE目錄下的數(shù)據(jù)庫(kù)
   b:='Provider=Microsoft.Jet.OLEDB.4.0;password="";user id=admin;Data Source='+
        a+';Persist Security Info=False';  //連接字符串
   AdoCn.ConnectionString:=b;
   try
      ADOCn.Connected:=true;
   except
      showmessage('數(shù)據(jù)庫(kù)連接失敗！');
      Application.Terminate;
   end;
   if not f_is_active_form('Form_login') then  //顯示登陸窗體
      Application.CreateForm(TForm_login, Form_login);
   if form_login.tag=1 then exit;
   self.Enabled := false;
   form_login.Show;
   form_login.SetFocus;
   self.tag := 1;
end;

procedure TForm_main.Timer_showTimer(Sender: TObject);
var d : Tdatetime;
begin
  //在狀態(tài)欄顯示當(dāng)前日期
   if (not ADOCn.Connected) then exit;
   d := f_get_now;
   StatusBar_main.Panels[1].Text := formatdatetime('YYYY',d)+'年'+formatdatetime('MM',d)+'月'+
      formatdatetime('DD',d)+'日' ;

end;

procedure TForm_main.N13Click(Sender: TObject);
begin
//退出程序
   form_main.Close;
end;

procedure TForm_main.N24Click(Sender: TObject);
begin
//彈出幫助文檔
   shellexecute(handle,nil,pchar(ExtractFilePath(paramstr(0))+'操作說(shuō)明.doc'),nil,nil,sw_shownormal);
end;

procedure TForm_main.N4Click(Sender: TObject);
begin
//彈出客戶資料設(shè)置單
  if f_is_active_form('form_set_khzl') = false then
      Application.CreateForm(Tform_set_khzl, form_set_khzl);
   form_set_khzl.show;
end;

procedure TForm_main.N5Click(Sender: TObject);
begin
//彈出銷售人員設(shè)置單
   if f_is_active_form('form_set_gys') = false then
      Application.CreateForm(Tform_set_gys, form_set_gys);
   form_set_gys.show;
end;

procedure TForm_main.N41Click(Sender: TObject);
begin
//彈出操作員設(shè)置窗體
   if  gs_username='系統(tǒng)管理員' then  //判斷是否為系統(tǒng)管理員，在此為權(quán)限設(shè)置
   begin
     if f_is_active_form('form_set_login') = false then
        Application.CreateForm(Tform_set_login, form_set_login);
     form_set_login.show;
   end
   else
      showmessage('只有系統(tǒng)管理員才有此權(quán)限！') ;
end;

procedure TForm_main.N6Click(Sender: TObject);
begin
//彈出付款方式設(shè)置窗體
   if f_is_active_form('form_set_fkfs') = false then
      Application.CreateForm(Tform_set_fkfs, form_set_fkfs);
   form_set_fkfs.show;
end;

procedure TForm_main.N15Click(Sender: TObject);
begin
//彈出貨品資料設(shè)置窗體
   if f_is_active_form('form_set_hp') = false then
      Application.CreateForm(Tform_set_hp, form_set_hp);
   form_set_hp.show;
end;

procedure TForm_main.N44Click(Sender: TObject);
begin
   //彈出生產(chǎn)入庫(kù)單
   if f_is_active_form('form_input_cgsh') = false then
      Application.CreateForm(Tform_input_cgsh, form_input_cgsh);
   form_input_cgsh.show;
end;

procedure TForm_main.N42Click(Sender: TObject);
begin
//彈出銷售收款單
   if f_is_active_form('form_input_xssk') = false then
      Application.CreateForm(Tform_input_xssk, form_input_xssk);
   form_input_xssk.show;
end;

procedure TForm_main.N43Click(Sender: TObject);
begin
//彈出銷售退貨單
  if f_is_active_form('form_input_cgth') = false then
      Application.CreateForm(Tform_input_cgth, form_input_cgth);
   form_input_cgth.show;
end;

procedure TForm_main.N70Click(Sender: TObject);
begin
//彈出生產(chǎn)入庫(kù)查詢單
   if f_is_active_form('form_query_cgsh') = false then
      Application.CreateForm(Tform_query_cgsh, form_query_cgsh);
   form_query_cgsh.show;
end;

procedure TForm_main.N66Click(Sender: TObject);
begin
// 彈出銷售收款查詢單
 if f_is_active_form('form_query_xs') = false then
      Application.CreateForm(Tform_query_xs, form_query_xs);
   form_query_xs.show;
end;

procedure TForm_main.N64Click(Sender: TObject);
begin
//彈出退貨查詢單
 if f_is_active_form('form_query_cgth') = false then
      Application.CreateForm(Tform_query_cgth, form_query_cgth);
   form_query_cgth.show;
end;

procedure TForm_main.N11Click(Sender: TObject);
begin
//彈出利潤(rùn)查詢單
   if f_is_active_form('form_query_lr') = false then
      Application.CreateForm(Tform_query_lr, form_query_lr);
   form_query_lr.show;
end;

procedure TForm_main.N10Click(Sender: TObject);
begin
//欠款查詢單
  if f_is_active_form('form_query_qk') = false then
      Application.CreateForm(Tform_query_qk, form_query_qk);
   form_query_qk.show;
end;

procedure TForm_main.MenuItem2Click(Sender: TObject);
begin
//修改密碼
   if f_is_active_form('Form_Set_Password') = false then
      Application.CreateForm(TForm_Set_Password, Form_Set_Password);
   Form_Set_Password.show;
end;

procedure TForm_main.N7Click(Sender: TObject);
begin
//彈出數(shù)據(jù)庫(kù)備分
   if f_is_active_form('Form_Set_sjbf') = false then
      Application.CreateForm(TForm_Set_sjbf, Form_Set_sjbf);
   Form_Set_sjbf.show;
end;

procedure TForm_main.N8Click(Sender: TObject);
begin
//彈出數(shù)據(jù)庫(kù)恢復(fù)窗體
   if f_is_active_form('Form_Set_sjhy') = false then
      Application.CreateForm(TForm_Set_sjhy, Form_Set_sjhy);
   Form_Set_sjhy.show;
end;

procedure TForm_main.MenuItem6Click(Sender: TObject);
begin
//彈出關(guān)于窗體
   aboutbox.showmodal;
end;

procedure TForm_main.N12Click(Sender: TObject);
begin
//彈出庫(kù)存查詢單
   if f_is_active_form('Form_query_kc') = false then
      Application.CreateForm(TForm_query_kc, Form_query_kc);
   Form_query_kc.show;
end;

procedure TForm_main.BackBtnClick(Sender: TObject);
begin
     N44.Click;//生產(chǎn)入庫(kù)
end;

procedure TForm_main.ToolButton2Click(Sender: TObject);
begin
   if  application.MessageBox('是否真的退出系統(tǒng)？','退出提示',mb_yesno) =idyes then
        form_main.Close//退出系統(tǒng)
   else
       exit;
end;

procedure TForm_main.RefreshBtnClick(Sender: TObject);
begin
    N42.Click;//銷售收款
end;

procedure TForm_main.StopBtnClick(Sender: TObject);
begin
   N12.Click;//庫(kù)存查詢
end;

procedure TForm_main.ForwardBtnClick(Sender: TObject);
begin
   N11.Click; //利潤(rùn)查詢
end;

procedure TForm_main.ToolButton1Click(Sender: TObject);
begin
    N10.Click; //欠款查詢
end;

end.