main.pas

来自「销售帐目管理」· PAS 代码 · 共 658 行 · 第 1/2 页

procedure TFrmMain.pnlMediaTimeMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
end;

//=======选择歌曲
procedure TFrmMain.BtnMediaEjectClick(Sender: TObject);
var i,FileCount : Integer ;
    FileName,ExtName : String;
begin
  if not dlgOpen1.Execute then Exit ;
  FileCount := dlgOpen1.Files.Count ;
  if FileCount <=0 then Exit ;
  SetLength(Pub_SongListArr,FileCount);
  for i := 0 to FileCount - 1 do
  begin
    FileName := ExtractFileName(dlgOpen1.Files[i]);
    ExtName := ExtractFileExt(dlgOpen1.Files[i]);
    Pub_SongListArr[i].SongName := AnsiReplaceText(FileName,ExtName,'');
    Pub_SongListArr[i].FileName := dlgOpen1.Files[i];
  end;
  MakeSongMenu(Self);
  P_SongIndex := Low(Pub_SongListArr);
  P_SongFile := Pub_SongListArr[P_SongIndex].FileName ;
  P_SongName := Pub_SongListArr[P_SongIndex].SongName ;
  BtnMediaPlay.Enabled := True ;
  BtnMediaNext.Enabled := True ;
  BtnMediaPrior.Enabled := True ;
  BtnMediaPause.Enabled := False ;
  BtnMediaStop.Enabled := False ;
  with suiMessageDialog1 do
  begin
    Caption := suiForm1.Caption ;
    Text := '是否保存播放列表？';
    ButtonCount := 2 ;
    Button1Caption := '是';
    Button2Caption := '否';
    Button1ModalResult := mrYes ;
    Button2ModalResult := mrNo ;
    IconType := suiHelp ;
    if ShowModal = mrYes then SaveSongList ;
  end ;
end;

//=======播放下一曲
procedure TFrmMain.BtnMediaNextClick(Sender: TObject);
begin
  Inc(P_SongIndex);
  if P_SongIndex > High(Pub_SongListArr) then
     P_SongIndex := Low(Pub_SongListArr);
  BtnMediaPlay.OnClick(Self);
end;

//=======播放上一曲
procedure TFrmMain.BtnMediaPriorClick(Sender: TObject);
begin
  Dec(P_SongIndex);
  if P_SongIndex < Low(Pub_SongListArr) then
     P_SongIndex := Low(Pub_SongListArr);
  BtnMediaPlay.OnClick(Self);
end;

//======播放时序控制
procedure TFrmMain.tmr1Timer(Sender: TObject);
begin
  case PlayStatus of
    MP3PLAY :
      begin
        Inc(PlayTimeLong);
        if PlayTimeLong >= SongTimeLong then
        begin
          tmr1.Enabled := False ;
          BtnMediaNext.OnClick(Self);
        end;
        iLedBar1.Position := PlayTimeLong ;
      end;
    MP3PAUSE :  ;
    MP3STOP  :  tmr1.Enabled := False ;
  end ;
end;

//============弹出播放菜单
procedure TFrmMain.iLedBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var pt:TPoint;
begin
  if Button = mbLeft then
  begin
    GetCursorPos(pt);
    suiSongMenu.Popup((pt.x-x),(pt.y+(pnlMediaTime.Height-y)));
  end;
end;

//==========设置相册播放参数
procedure TFrmMain.actPhotoSetExecute(Sender: TObject);
var FrmPicSet : TFrmPicSet ;
begin
  FrmPicSet := TFrmPicSet.Create(self);
  FrmPicSet.ShowModal ;
  FrmPicSet.Free ;
end;

procedure TFrmMain.Pop_Interface1Click(Sender: TObject);
begin
  P_Interface := Ord(BlueGlass);
  ChangeInterface(Self,suiForm1);
end;

procedure TFrmMain.Pop_Interface2Click(Sender: TObject);
begin
  P_Interface := Ord(DeepBlue);
  ChangeInterface(Self,suiForm1);
end;

procedure TFrmMain.Pop_Interface3Click(Sender: TObject);
begin
  P_Interface := Ord(Protein);
  ChangeInterface(Self,suiForm1);
end;

procedure TFrmMain.Pop_Interface4Click(Sender: TObject);
begin
  P_Interface := Ord(MacOS);
  ChangeInterface(Self,suiForm1);
end;

procedure TFrmMain.Pop_Interface5Click(Sender: TObject);
begin
  P_Interface := Ord(WinXP);
  ChangeInterface(Self,suiForm1);
end;

procedure TFrmMain.tmr3Timer(Sender: TObject);
begin
  suiStatusBar1.Panels[1].Text := '系统日期：' + FormatDateTime('YYYY-MM-DD HH:MM:SS',Now) +
                                  '  农历：' + CnDateOfDateStr(Date);
  if P_LoginUserName <> '' then
     Case Super of
       0 : suiStatusBar1.Panels[2].Text := '登录用户名：'+P_LoginUserName+
                                           '；用户级别：一般用户';
       1 : suiStatusBar1.Panels[2].Text := '登录用户名：'+P_LoginUserName+
                                           '；用户级别：超级用户';
     end
  else suiStatusBar1.Panels[2].Text := '';
end;

//========系统设置
procedure TFrmMain.actSysSetExecute(Sender: TObject);
var FrmSysSet : TFrmSysSet ;
begin
  FrmSysSet := TFrmSysSet.Create(Self);
  FrmSysSet.ShowModal ;
  FrmSysSet.Free ;
  suiForm1.Caption := P_AppName ;
  suiImagePanel1.Caption := P_AppName;
  if FileExists(P_PicFileName) then
     suiImagePanel2.Picture.LoadFromFile(P_PicFileName);
//  ChgDebugMode(P_DebugFlag);
end;

//==============相册欣赏
procedure TFrmMain.actPhoteBookExecute(Sender: TObject);
var FrmScreenSafe : TFrmScreenSafe ;
begin
  FrmScreenSafe := TFrmScreenSafe.Create(Self) ;
  FrmScreenSafe.ShowModal ;
  FrmScreenSafe.Free ;
end;

//============产品信息
procedure TFrmMain.actDeviceExecute(Sender: TObject);
var FrmSpxx : TFrmSpxx ;
begin
  FrmSpxx := TFrmSpxx.Create(Self);
  FrmSpxx.ShowModal ;
  FrmSpxx.Free ;
end;

//===========销售省份信息
procedure TFrmMain.actXxsfExecute(Sender: TObject);
var FrmSjdw : TFrmSjdw ;
begin
  FrmSjdw := TFrmSjdw.Create(Self);
  FrmSjdw.ShowModal ;
  FrmSjdw.Free ;
end;

//===========销售单位信息
procedure TFrmMain.actXsdwExecute(Sender: TObject);
var FrmDwxx : TFrmDwxx ;
begin
  FrmDwxx := TFrmDwxx.Create(Self);
  FrmDwxx.ShowModal ;
  FrmDwxx.Free ;
end;

//===========帐目登记
procedure TFrmMain.actZmdjExecute(Sender: TObject);
var FrmZmDj : TFrmZmDj ;
begin
  FrmZmDj := TFrmZmDj.Create(Self);
  FrmZmDj.ShowModal ;
  FrmZmDj.Free ;
end;

//==========帐目查询
procedure TFrmMain.actZmLocateExecute(Sender: TObject);
var FrmZmLocate : TFrmZmLocate ;
begin
  FrmZmLocate := TFrmZmLocate.Create(Self);
  FrmZmLocate.ShowModal ;
  FrmZmLocate.Free ; 
end;

//=============用户管理
procedure TFrmMain.actUserMgrExecute(Sender: TObject);
var Frmyhgl : TFrmyhgl ;
begin
  Frmyhgl := TFrmyhgl.Create(Self);
  Frmyhgl.ShowModal ;
  Frmyhgl.Free ; 
end;

//============用户注册
procedure TFrmMain.actUseLoginExecute(Sender: TObject);
var FrmLogin : TFrmLogin;
begin
  FrmLogin := TFrmLogin.Create(Self);
  FrmLogin.ShowModal ;
  FrmLogin.Free ;
end;

//==========用户注销
procedure TFrmMain.actUseLogOutExecute(Sender: TObject);
var FrmLogin : TFrmLogin ;
    Count,i : integer;
begin
  suiMessageDialog1.ButtonCount := 2;
  suiMessageDialog1.Button1Caption := '是(&Y)';
  suiMessageDialog1.Button2Caption := '否(&N)';
  suiMessageDialog1.Button1ModalResult := mrYes;
  suiMessageDialog1.Button2ModalResult := mrNo;
  suiMessageDialog1.Caption := suiForm1.Caption ;
  suiMessageDialog1.IconType := suiHelp;
  suiMessageDialog1.Text := '是否注销当前用户 '+ P_LoginUserName +' ？';
  if suiMessageDialog1.ShowModal = mrNo then Exit;
  P_LoginUserName := '';
  Super := 0;
  Count := ComponentCount ;
  for i := 0 to Count - 1 do
  begin
    if (Components[i] is TAction) then
      if (((Components[i] as TAction).Caption <> '用户注册') and
          ((Components[i] as TAction).Caption <> '退出系统') and
          ((Components[i] as TAction).Caption <> '我的相册') and
          ((Components[i] as TAction).Caption <> '系统说明')) then
          (Components[i] as TAction).Enabled := false ;
  end;
  FrmLogin := TFrmLogin.Create(self);
  FrmLogin.ShowModal ;
  FrmLogin.Free ;
  suiStatusBar1.Panels[2].Text := '' ;
end;

//============数据备份
procedure TFrmMain.actDataBakExecute(Sender: TObject);
var oBackup : OLEVariant;//OLE对象
    oServer : OLEVariant;//OLE对象
    Path,FileName : String;
    DataBasename,ServerName , Login, Pwd : string ;
    LoginSecure : Boolean ;
    inifile : TIniFile ;
    iniFileName,ExtName : String;
begin
  if not dlgsave1.Execute then Exit ;
  FileName := dlgsave1.FileName ;
  ExtName := ExtractFileExt(Application.ExeName);
  iniFileName := AnsiReplaceStr(ExtractFileName(Application.ExeName),ExtName,'')+'.ini';
  inifile := TIniFile.Create(SysPath + iniFileName);
  LoginSecure := inifile.ReadBool('DataBase Set','Login Secure',True) ;
  ServerName := inifile.ReadString('DataBase Set','Server','(local') ;
  Login := inifile.ReadString('Database Set','Login Name','') ;
  Pwd := inifile.ReadString('Database Set','Password','') ;
  DataBasename := DataModule1.db1.DatabaseName ;
  //备份
  try
    oServer := CreateOleObject('SQLDMO.SQLServer'); //建立SERVER对象
    oServer.LoginSecure := LoginSecure ;//采用WINDOWS/SQL方式校验
    oServer.Connect(ServerName,Login,Pwd); //连接到你的服务器

    oBackup := CreateOleObject('SQLDMO.Backup'); //建立备份对象
    oBackup.Database := DataBasename ;//指定备份数据库
    oBackup.Password := '8899'; //给备份文件加密码
    oBackup.Files := FileName ; //指定目标文件
    oBackup.initialize := True ;//备份时参数initialize=true:覆盖方式，false:追加方式
    oBackup.Action := 0 ;// 参数: 0-完整备份,1-差异备份, 2-文件备份, 3-日志备份
    oBackup.SQLBackup(oServer); //运行备份命令，速度很快的
    suiMessageDialog1.ButtonCount := 1;
    suiMessageDialog1.Button1Caption := '确定';
    suiMessageDialog1.Button1ModalResult := mrOk ;
    suiMessageDialog1.Caption := suiForm1.Caption ;
    suiMessageDialog1.IconType := suiInformation ;
    suiMessageDialog1.Text := '数据备份成功，已保存到'+ FileName +'中！';
    suiMessageDialog1.ShowModal ;
  finally
    oBackup := Unassigned ;
    oServer := Unassigned ;
  end;
  Application.Restore ;
end;

//==========系统说明
procedure TFrmMain.actAboutExecute(Sender: TObject);
var FrmAbout : TFrmAbout;
begin
  FrmAbout := TFrmAbout.Create(Self);
  FrmAbout.ShowModal ;
  FrmAbout.Free ; 
end;

procedure TFrmMain.suiImagePanel2DblClick(Sender: TObject);
begin
  if dlgOpenPic1.Execute then
     suiimagepanel2.Picture.LoadFromFile(dlgOpenPic1.FileName); 
end;

end.