main.pas

药品进销存管理系统(Delphi版),适合中小企业管理

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, jpeg, ExtCtrls, Menus, Buttons, ToolWin, StdCtrls, Db, DBTables;

type
  TFrmmain = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton1: TSpeedButton;
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N23: TMenuItem;
    N17: TMenuItem;
    N25: TMenuItem;
    N19: TMenuItem;
    N16: TMenuItem;
    N28: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N33: TMenuItem;
    N7: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N10: TMenuItem;
    N8: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N29: TMenuItem;
    N14: TMenuItem;
    N20: TMenuItem;
    N12: TMenuItem;
    N30: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    N3: TMenuItem;
    N961: TMenuItem;
    Query_czy: TQuery;
    Query_gettime: TQuery;
    Database: TDatabase;
    N01: TMenuItem;
    N4: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N25Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N961Click(Sender: TObject);
    procedure N01Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private


    { Private declarations }
  public

    pubedit:Tedit;
    right:string;
    name:string;
    Function GetServerTime:TDateTime;
    { Public declarations }
  end;

var
  Frmmain: TFrmmain;

implementation

uses user, bmxx, ghsxx, ywyxx, dbdw, khxx, wpcx, xspj, pjdy, input, hwbs,
  hwdb,  ckxx, pd, xstj, wpxg, xscx, wzck, zero, lscgcx;

{$R *.DFM}

procedure TFrmmain.FormCreate(Sender: TObject);
begin
  try
    database.Params.Values['username']:='';
    database.Params.Values['password']:='';
    database.LoginPrompt:=false;
    database.AliasName:='yygl';
    database.DatabaseName:='yygl';
    database.Connected:=true;
    database.KeepConnection:=true;
    database.TransIsolation:=tiRepeatableRead;
  except
    application.MessageBox('数据库连接错误!请检查网络','警告',MB_OK+MB_ICONWARNING);
    halt;
  end;
  Self.Left:=0;
  Self.Top:=0;
  Self.Width:=Screen.Width;
  Self.Height:=Screen.Height-25;
end;

function TFrmmain.GetServerTime: TDateTime;
begin
  Query_GetTime.close;
  Query_GetTime.UnPrepare;
  Query_GetTime.sql.Clear;
  Query_GetTime.sql.Add('select getdate() as datetime');
  Query_GetTime.Prepare;
  Query_GetTime.open;
  result:=Query_GetTime.fieldbyname('datetime').asdatetime;
end;

procedure TFrmmain.N12Click(Sender: TObject);
begin
  Frmuser:=TFrmuser.Create(Self);
  Frmuser.ShowModal;
end;

procedure TFrmmain.N32Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Application.MessageBox('真的要退出吗?','提示',
   MB_YESNO+MB_ICONQUESTION)=Idno then
   canclose:=false;
end;

procedure TFrmmain.N25Click(Sender: TObject);
begin
  Frmbmxx:=TFrmbmxx.create(Self);
  Frmbmxx.ShowModal;
end;

procedure TFrmmain.N16Click(Sender: TObject);
begin
  Frmghsxx:=TFrmghsxx.create(Self);
  Frmghsxx.ShowModal;
end;

procedure TFrmmain.N19Click(Sender: TObject);
begin
  Frmywyxx:=TFrmywyxx.create(Self);
  Frmywyxx.ShowModal;
end;

procedure TFrmmain.N28Click(Sender: TObject);
begin
  Frmdbdw:=TFrmdbdw.create(Self);
  Frmdbdw.ShowModal;
end;

procedure TFrmmain.N17Click(Sender: TObject);
begin
  Frmkhxx:=TFrmkhxx.create(Self);
  Frmkhxx.ShowModal;
end;

procedure TFrmmain.N8Click(Sender: TObject);
begin
  Frmwpcx:=TFrmwpcx.create(Self);
  Frmwpcx.ShowModal;
end;

procedure TFrmmain.N2Click(Sender: TObject);
begin
  Frminput:=TFrminput.Create(Self);
  Frminput.ShowModal;
end;

procedure TFrmmain.N13Click(Sender: TObject);
begin
  Frmhwbs:=TFrmhwbs.create(Self);
  Frmhwbs.ShowModal;
end;

procedure TFrmmain.N38Click(Sender: TObject);
begin
  Frmpjdy:=TFrmpjdy.create(Self);
  Frmpjdy.ShowModal;
end;

procedure TFrmmain.N33Click(Sender: TObject);
begin
  Frmxspj:=TFrmxspj.create(Self);
  Frmxspj.ShowModal;
end;

procedure TFrmmain.N37Click(Sender: TObject);
begin
  Frmhwdb:=TFrmhwdb.create(Self);
  Frmhwdb.ShowModal;
end;

procedure TFrmmain.N6Click(Sender: TObject);
begin
  Frmwzck:=TFrmwzck.create(Self);
  Frmwzck.show;
end;

procedure TFrmmain.N23Click(Sender: TObject);
begin
  Frmckxx:=TFrmckxx.create(Self);
  Frmckxx.ShowModal;
end;

procedure TFrmmain.FormShow(Sender: TObject);
begin
  if right='01' then
    begin
      mainmenu1.Items[3].Items[1].Enabled:=false;
      mainmenu1.Items[3].Items[2].Enabled:=false;
      mainmenu1.Items[3].Items[3].Enabled:=false;
      mainmenu1.Items[4].Enabled:=false;
      mainmenu1.Items[5].Items[0].Enabled:=false;
      speedbutton1.Enabled:=false;

    end
end;

procedure TFrmmain.N15Click(Sender: TObject);
begin
  Frmpd:=TFrmpd.create(Self);
  Frmpd.ShowModal;
end;

procedure TFrmmain.N7Click(Sender: TObject);
begin
  Frmxstj:=TFrmxstj.create(Self);
  Frmxstj.ShowModal;
end;

procedure TFrmmain.N3Click(Sender: TObject);
begin
  Frmwpxg:=TFrmwpxg.create(Self);
  Frmwpxg.ShowModal;
end;

procedure TFrmmain.N961Click(Sender: TObject);
begin
  Frmxscx:=TFrmxscx.create(Self);
  Frmxscx.show;
end;

procedure TFrmmain.N01Click(Sender: TObject);
begin
  Frmzero:=TFrmzero.Create(Self);
  Frmzero.ShowModal;
end;

procedure TFrmmain.N4Click(Sender: TObject);
begin
  frmlscgcx:=Tfrmlscgcx.create(self);
  frmlscgcx.showmodal;
end;

end.