fmdesignunit.pas

学籍管理

{**********************************************************************}
{                    ===================                               }
{                        用户设置                                      }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{     对话框，用了一个获取内存的 Win32API。                            }
{                                                                      }
{**********************************************************************}
unit fmDesignUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls;

type
  TfmDesign = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    edtDataPacket: TEdit;
    UpDown1: TUpDown;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    Button7: TButton;
    Button8: TButton;
    GroupBox3: TGroupBox;
    Button1: TButton;
    edtColor: TEdit;
    Button3: TButton;
    edtBackColor: TEdit;
    Button4: TButton;
    edtTable: TEdit;
    Button6: TButton;
    edttableBack: TEdit;
    Button5: TButton;
    edtInfor: TEdit;
    btInforback: TButton;
    edtInforBack: TEdit;
    Button2: TButton;
    edtFont: TEdit;
    Button9: TButton;
    Button10: TButton;
    procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure btInforbackClick(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmDesign: TfmDesign;

implementation

uses MainForm, UseIniFile, PasswordAndReg;

{$R *.DFM}

procedure TfmDesign.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   edtDataPacket.Text:=IntToStr(UpDown1.Position);
end;

procedure TfmDesign.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.DBGrid1.Font.Color:=ColorDialog1.Color;
    edtColor.Text:=IntToStr(ColorDialog1.Color);
  end;
  //写ini文件
end;

procedure TfmDesign.Button3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.DBGrid1.Color:=ColorDialog1.Color;
    edtBackColor.Text:=IntToStr(ColorDialog1.Color);
  end;
end;

procedure TfmDesign.Button2Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
   // FontDialog1.Font:=CLientMainForm.Font;
   ClientMainForm.Font:=FontDialog1.Font;
   edtFont.Text:=FontDialog1.Font.Name;
   //写ini文件
  end;
end;

procedure TfmDesign.Button4Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.ServerTableListBox.Font.Color:=ColorDialog1.Color;
    edtTable.Text:=IntToStr(ColorDialog1.Color);
    //写ini文件
  end;
end;

procedure TfmDesign.Button5Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.mbSystem.Font.Color:=ColorDialog1.Color;
    edtInfor.Text:=IntToStr(ColorDialog1.Color);
    //写ini文件
  end;
end;

procedure TfmDesign.Button6Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.ServerTableListBox.Color:=ColorDialog1.Color;
    edttableBack.Text:=IntToStr(ColorDialog1.Color);
    //写ini文件
  end;
end;

procedure TfmDesign.btInforbackClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    ClientMainForm.mbSystem.Color:=ColorDialog1.Color;
    edtInforBack.Text:=IntToStr(ColorDialog1.Color);
    //写ini文件
  end;
end;

procedure TfmDesign.Button9Click(Sender: TObject);
begin
  WriteIniFile('Color','ClientMainForm.DBGrid1.Font.Color',StrToInt(edtColor.Text));
  WriteIniFile('Color','ClientMainForm.DBGrid1.Color',StrToInt(edtBackColor.Text));
  WriteIniFile('Color','ClientMainForm.ServerTableListBox.Font.Color',StrToInt(edtTable.Text));
  WriteIniFile('Color','ClientMainForm.ServerTableListBox.Color',StrToInt(edttableBack.Text));
  WriteIniFile('Color','ClientMainForm.mbSystem.Font.Color',StrToInt(edtInfor.Text));
  WriteIniFile('Color','ClientMainForm.mbSystem.Color',StrToInt(edtInforBack.Text));
  WriteIniFile('Color','ClientMainForm.Font.Name',edtFont.Text);
  MessageDlg('  保存成功 ！  ',mtInformation,[mbOK],0);
end;

procedure TfmDesign.Button10Click(Sender: TObject);
begin
  fmDesign.Close;
end;

procedure TfmDesign.Button7Click(Sender: TObject);
begin
  WriteIniFile('SysDesign','PacketSize',UpDown1.Position);
  WriteIniFile('SysDesign','AutoLinked',CheckBox2.Checked);
  WriteIniFile('SysDesign','ShowTime',CheckBox1.Checked);
  WriteReg('登陆记录','NoMustPassword',CheckBox3.Checked);//写注册表
  MessageDlg(' 成功保存 ！ ',mtInformation,[mbOK],0);
end;

procedure TfmDesign.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  with ClientMainForm do
    Timer1.Enabled:=True
  else
  with ClientMainForm do
  begin
    Timer1.Enabled:=False;
    StatusBar1.Panels[2].Text:='';
  end;  
end;

procedure TfmDesign.Button8Click(Sender: TObject);
begin
  fmDesign.Close;
end;

procedure TfmDesign.FormCreate(Sender: TObject);
begin
  edtColor.Text:=IntToStr(ClientMainForm.DBGrid1.Font.Color);
  edtBackColor.Text:=IntToStr(ClientMainForm.DBGrid1.Color);
  edtTable.Text:=IntToStr(ClientMainForm.ServerTableListBox.Font.Color);
  edttableBack.Text:=IntToStr(ClientMainForm.ServerTableListBox.Color);
  edtInfor.Text:=IntToStr(ClientMainForm.mbSystem.Font.Color);
  edtInforBack.Text:=IntToStr(ClientMainForm.mbSystem.Color);
  edtFont.Text:=ClientMainForm.Font.Name;

  Updown1.Position:=DesignPacketSize;
  edtDataPacket.Text:=IntToStr(DesignPacketSize);
  CheckBox2.Checked:=AutoLinked;
  CheckBox1.Checked:=ShowTime;
  CheckBox3.Checked:=ReadReg('登陆信息','NoMustPassword',True);
end;

end.