商品销售管理系统论文

;
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

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