开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
uset.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

uset.pas：源码内容
  1. unit uset;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, IniFiles, TFlatEditUnit, TFlatButtonUnit,
  8.   TFlatGroupBoxUnit, TFlatSpeedButtonUnit;
  10. type
  11.   TfrmSet = class(TForm)
  12.     odBg: TOpenDialog;
  13.     FlatGroupBox1: TFlatGroupBox;
  14.     edtsTopic: TFlatEdit;
  15.     FlatButton1: TFlatButton;
  16.     FlatGroupBox2: TFlatGroupBox;
  17.     FlatSpeedButton1: TFlatSpeedButton;
  18.     FlatSpeedButton2: TFlatSpeedButton;
  19.     FlatSpeedButton3: TFlatSpeedButton;
  20.     procedure FormShow(Sender: TObject);
  21.     procedure bbtnBgSetClick(Sender: TObject);
  22.     procedure bbtnRestoreClick(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure FlatButton1Click(Sender: TObject);
  25.     procedure FlatSpeedButton1Click(Sender: TObject);
  26.     procedure FlatSpeedButton2Click(Sender: TObject);
  27.     procedure FlatSpeedButton3Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   frmSet: TfrmSet;
  37. implementation
  39. uses mainfrms,U_Public, Xt_ghjms;
  41. var
  42.   iFile: tinifile;
  44. {$R *.dfm}
  46. procedure TfrmSet.FormShow(Sender: TObject);
  47. begin
  48.   edtsTopic.Text := sTopic;
  49. end;
  52. procedure TfrmSet.bbtnBgSetClick(Sender: TObject);
  53. var
  54.   fName, fNameo: string;
  55. begin
  56.   if odBg.Execute then
  57.   begin
  58.     iFile := TIniFile.Create(sPath + 'perset.ini');
  59.     fNameo := iFile.ReadString('sysbg', 'bground', 'main.jpg');
  60.     if FileExists(sPath + fNameo) and (fNameo <> 'main.jpg') then
  61.       DeleteFile(sPath + fNameo);
  62.     fName := ExtractFileName(odbg.FileName);
  63.     CopyFile(Pchar(odbg.FileName),  pchar(sPath + 'images' + fName), false);
  64.     iFile.WriteString('sysbg', 'bground', 'images' + fName);
  65.     mainfrm.image1.Picture.LoadFromFile(sPath + 'images' + fName);
  66.     MessageBox(self.Handle, '背景设置成功!', '提示', mb_IconInformation + mb_Ok);
  67.     iFile.Free;
  68.   end;
  69. end;
  71. procedure TfrmSet.bbtnRestoreClick(Sender: TObject);
  72. var
  73.   fName: string;
  74. begin
  75.   iFile := TIniFile.Create(sPath + 'perset.ini');
  76.   fName := iFile.ReadString('sysbg', 'bground', '');
  77.   if FileExists(sPath + fName) and (fName <> 'main.jpg') then
  78.     DeleteFile(sPath + fName);
  79.   iFile.WriteString('sysbg', 'bground', 'main.jpg');
  80.   mainfrm.image1.Picture.LoadFromFile(sPath + 'main.jpg');
  81.   MessageBox(self.Handle, '背景复原成功!', '提示', mb_IconInformation + mb_Ok);
  82.   iFile.Free;
  83. end;
  85. procedure TfrmSet.FormClose(Sender: TObject; var Action: TCloseAction);
  86. begin
  87.  action:=cafree;
  88.  frmset:=nil;
  89. end;
  91. procedure TfrmSet.FlatButton1Click(Sender: TObject);
  92. begin
  93.  if edtsTopic.Text <> '' then
  94.   begin
  95.     iFile := TIniFile.Create(sPath + 'perset.ini');
  96.     iFile.WriteString('sTopic', 'topic', Trim(edtsTopic.Text));
  97.     MessageBox(self.Handle, '主题设置成功!', '提示', mb_IconInformation + mb_Ok);
  98.     mainfrm.Caption := Trim(edtsTopic.Text);
  99.     iFile.Free;
  100.   end
  101.   else
  102.   begin
  103.     MessageBox(self.Handle, '请输入系统主题!', '提示', mb_IconInformation + mb_Ok);
  104.     edtsTopic.SetFocus;
  105.   end;
  106. end;
  108. procedure TfrmSet.FlatSpeedButton1Click(Sender: TObject);
  109. var
  110.   fName: string;
  111. begin
  112.   iFile := TIniFile.Create(sPath + 'perset.ini');
  113.   fName := iFile.ReadString('sysbg', 'bground', '');
  114.   if FileExists(sPath + fName) and (fName <> 'main.jpg') then
  115.     DeleteFile(sPath + fName);
  116.   iFile.WriteString('sysbg', 'bground', 'main.jpg');
  117.   mainfrm.image1.Picture.LoadFromFile(sPath + 'main.jpg');
  118.   MessageBox(self.Handle, '背景复原成功!', '提示', mb_IconInformation + mb_Ok);
  119.   iFile.Free;
  120. end;
  122. procedure TfrmSet.FlatSpeedButton2Click(Sender: TObject);
  123. var
  124.   fName, fNameo: string;
  125. begin
  126.   if odBg.Execute then
  127.   begin
  128.     iFile := TIniFile.Create(sPath + 'perset.ini');
  129.     fNameo := iFile.ReadString('sysbg', 'bground', 'main.jpg');
  130.     if FileExists(sPath + fNameo) and (fNameo <> 'main.jpg') then
  131.     begin
  132.         DeleteFile(sPath + fNameo);
  133.     fName := ExtractFileName(odbg.FileName);
  134.     CopyFile(Pchar(odbg.FileName),  pchar(sPath + 'images' + fName), false);
  135.     iFile.WriteString('sysbg', 'bground', 'images' + fName);
  136.     mainfrm.image1.Picture.LoadFromFile(sPath + 'images' + fName);
  137.     MessageBox(self.Handle, '背景设置成功!', '提示', mb_IconInformation + mb_Ok);
  138.     iFile.Free;
  139.     end;
  140.   end; 
  141. end;
  143. procedure TfrmSet.FlatSpeedButton3Click(Sender: TObject);
  144. begin
  145.   if Xt_ghjm=nil then
  146.    begin
  147.      Xt_ghjm:=TXt_ghjm.create(self);
  148.      Xt_ghjm.showmodal;
  149.    end;
  150. end;
  152. end.