frmain.pas

药品进销存管理系统

unit Frmain;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Exit: TMenuItem;
    jbsg: TMenuItem;
    CGD: TMenuItem;
    XSD: TMenuItem;
    KCS: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    N5: TMenuItem;
    H1: TMenuItem;
    about: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton4: TToolButton;
    N6: TMenuItem;
    T1: TMenuItem;
    procedure BitBtn5Click(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure CGDClick(Sender: TObject);
    procedure XSDClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure jbsgClick(Sender: TObject);
    procedure aboutClick(Sender: TObject);
    procedure KCSClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
  private
  procedure ShowHint(Sender:TObject);
  Procedure CheckReg();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NoRegistry:Boolean;
implementation
uses Shopping, sale, definition, about, DMCG, Stock, DMXS,
     reg, Drugs, DMType;
{$R *.dfm}

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.CGDClick(Sender: TObject);
var
  id:integer;
begin
  with DMC.CGATable1 do
    begin
      Last;
      id:=FieldByName('单号').asinteger;
      Append;
//      Edit;
      FieldByName('单号').asinteger:=id+1;
      FieldByName('开单日期').AsString:=datetostr(date());
    end;
  Frm_Shopping.ShowModal;
end;

procedure TForm1.XSDClick(Sender: TObject);
var
  id:integer;
begin
  with DMX.XSATable1 do
    begin
      Last;
      id:=FieldByName('单号').asinteger;
      Append;
//      Edit;
      FieldByName('单号').asinteger:=id+1;
      FieldByName('开单日期').AsString:=datetostr(date());
    end;
  Frm_Sale.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint:=ShowHint;
  Form1.Caption:='〖星光进销存管理系统〗';
end;

procedure TForm1.ShowHint(Sender:TObject);
begin
  if  Length(Application.Hint) > 0 then
    begin
      StatusBar1.Panels[0].Text:=Application.Hint;
    end
    else
      StatusBar1.Panels[0].Text:='欢迎使用〖星光进销存管理系统〗';
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose :=  messagebox(handle,'真的要退出吗？(Y/N)?',
                                 '提示',MB_YESNO or MB_ICONQUESTION) = IDYES;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with StatusBar1 do
  begin
    Panels[2].Text := DateToStr(Date);
    Panels[4].Text := TimeToStr(Time);
{$IFDEF __DEUBG}
    if Panels[4].Text = '09:00:00' then
     LogonInf.Ckpd(DateToStr(Date));
{$ENDIF}
end;
end;

procedure TForm1.jbsgClick(Sender: TObject);
begin
  DefinitionForm.ShowModal;
end;

procedure TForm1.aboutClick(Sender: TObject);
begin
  About_Form.ShowModal;
end;

procedure TForm1.KCSClick(Sender: TObject);
begin
  Frm_Stock.ShowModal;
end;




procedure TForm1.N6Click(Sender: TObject);
begin
  reg_Form.ShowModal;
end;

Procedure TForm1.CheckReg();//检查程序是否在注册表中注册。
var
  Rego:TRegistry;
  KeyName:string;
  SpareDays, Same:Integer;
  FirstDate, NowDate:Tdatetime;
  NumberOfDays:real;
begin
  NowDate := date;
  NoRegistry := true;
  Rego := TRegistry.Create;
  Rego.RootKey := HKEY_USERS;
  try
    Rego.OpenKey('.DEFAULT\Software\Beautiful\', True);
    try
      firstdate := rego.ReadDate('date');
      //非第一次则读入第一次运行时间
    except
      rego.WriteDate('date',nowdate);
      // 若为第一次运行，则写入系统日期
      FirstDate:=NowDate;
    end;
    Rego.CloseKey;
    if Rego.OpenKey('.DEFAULT\Software\Beautiful\Formal',False) then
    begin
      Rego.CloseKey;
      Form1.Caption:='〖星光进销存管理系统〗';
      NoRegistry:=false;
    end
    else
      Form1.Caption:='〖星光进销存管理系统〗 软件未注册只能使用30天';
  finally
    rego.Free;
    if NoRegistry then
    begin
      NumberOfDays := Nowdate - FirstDate;
      SpareDays := round(31 - NumberOfDays);
      if((NumberOfDays > 31) or (NumberOfDays < -1)) then
      begin
        Application.messagebox('试用期已到将终止运行,如满意，请购买！','错误',MB_Ok+Mb_iconerror);
        Application.Terminate;//超过30天，则禁止运行
      end;
    end;
  end;

end;


procedure TForm1.T1Click(Sender: TObject);
begin
  DMDrugs.DrugsTable1.Append;
  Frm_Drugs.ShowModal;
end;

end.