settime_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit settime_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls, BusinessSkinForm;

type
  Tsettime_frim = class(TForm)
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinButton3: TbsSkinButton;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure    setdisplay();

  end;

var
  settime_frim: Tsettime_frim;

implementation
    uses main_un,golb,reg_un;
{$R *.dfm}


 procedure    Tsettime_frim.setdisplay();

 begin

 //
 end;

procedure Tsettime_frim.FormCreate(Sender: TObject);
begin
bsSkinStdLabel2.Caption:=DateToStr(Date());
end;

procedure Tsettime_frim.bsSkinButton1Click(Sender: TObject);
var ToSetTime:TSystemTime;
begin
  inherited;
 DateTimeToSystemTime(bsSkinDateEdit1.Date+Time(),ToSetTime);
 if not setLocalTime(ToSetTime) then
showmessage('系统时间修改失败！请使用具有相应权限的帐号登陆windows！');
     bsSkinStdLabel2.Caption:=DateToStr(Date());


end;

procedure Tsettime_frim.bsSkinButton2Click(Sender: TObject);
begin
golb.setdisplay;
close;
end;

procedure Tsettime_frim.FormShow(Sender: TObject);
begin
bsSkinButton2.SetFocus;

if  golb.rege=0 then
begin
bsSkinButton3.Enabled:=False;
bsSkinButton3.Caption:='已注册';
bsSkinButton2.Enabled:=true;

end     ;    
if  golb.rege=1 then
begin
bsSkinButton3.Enabled:=true;
bsSkinButton3.Caption:='注册';
bsSkinButton2.Enabled:=true;
end    ;

if  golb.rege=2 then
begin
bsSkinButton3.Enabled:=true;
bsSkinButton3.Caption:='注册';
bsSkinButton2.Enabled:=false;
end ;
end;

procedure Tsettime_frim.bsSkinButton3Click(Sender: TObject);
var reg:Treg_frm;
begin

reg:=Treg_frm.Create(owner);
reg.ShowModal;
reg.Free;
end;

procedure Tsettime_frim.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if golb.rege=3 then
Application.Terminate;

end;

end.