商品销售管理系统文档(十四)

商品销售管理系统文档(十四) ;
begin
  inherited;
  SELF.Caption := application.Title + ' - 数据备份';
  B_showmessage := true;
  SourcePath := ExtractFileDir(Application.ExeName);
  if (StrLen(PChar(SourcePath)) <> 3) then
    SourcePath := SourcePath + '\';
  Edit_path.Text := SourcePath + 'BACKUPDATA\' + formatdatetime('yyyymmdd', date);
end;

procedure TBackUpForm.SelectClick(Sender: TObject);
begin
  Application.CreateForm(TSelectDir, SelectDir);
  SelectDir.DriveComboBox1.Text := ExtractFileDrive(Edit_path.Text);
  if (FileExists(Edit_path.Text)) then
    SelectDir.DirectoryListBox1.Directory := Edit_path.Text;
  if (SelectDir.ShowModal = mrOK) then
    Edit_path.Text := SelectDir.DirectoryListBox1.Directory;
  SelectDir.free;
  OKBtn.SetFocus;
end;

procedure TBackUpForm.CancelBtnClick(Sender: TObject);
begin
  self.Close;
end;

procedure TBackUpForm.Edit_pathEnter(Sender: TObject);
begin
  Edit_path.SelectAll;
end;

end.

unit RightManageUnit;    //权限管理窗口

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, CheckLst;

type
  TRightManageForm = class(TForm)
    LB_name: TListBox;
    Panel1: TPanel;
    Panel2: TPanel;
    CLB_rights: TCheckListBox;
    OKBtn: TButton;
    CancelBtn: TButton;
    query_data: TQuery;
    procedure LB_nameClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CLB_rightsClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    B_create: boolean;
    P_rights: array of array of string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RightManageForm: TRightManageForm;

implementation
uses FunctionUnit;
{$R *.dfm}

procedure TRightManageForm.LB_nameClick(Sender: TObject);
var
  S_rights: string;
  I_index: integer;
begin
  inherited;
  if (LB_name.itemindex < 0) or (LB_name.itemindex > 6) then
  begin
    CLB_rights.Enabled := false;
    exit;
  end
  else
    CLB_rights.Enabled := true;
  S_rights := P_rights[1, LB_name.itemindex];
  if length(S_rights) <> 10 then
    S_rights := '0000000000';
  for I_index := 1 to CLB_rights.Items.Count do
  begin
    if S_rights[I_index] = '1' then
      CLB_rights.Checked[I_index - 1] := true
    else
      CLB_rights.Checked[I_index - 1] := false;
  end;

end;

procedure TRightManageForm.FormCreate(Sender: TObject);
var
  I_index: integer;
begin

&

首页 上一页 11 12 13 14 15 16 下一页 尾页 14/16/16

商品销售管理系统文档(十四)由毕业论文网（www.huoyuandh.com）会员上传。