unit10.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, cmpGFXComboBox, Buttons, Grids, DBGrids,
  Menus, Db, DBTables, DBClient;

type
  Tsetform = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    Table1: TClientDataSet;
    Image1: TImage;
    Image3: TImage;
    Label2: TLabel;
    ComboBox1: TGFXComboBox;
    Label3: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    zbbt: TSpeedButton;
    bscbt: TSpeedButton;
    fbbt: TSpeedButton;
    DBGrid1: TDBGrid;
    ListBox1: TListBox;
    Bevel1: TBevel;
    cbt: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure zbbtClick(Sender: TObject);
    procedure bscbtClick(Sender: TObject);
    procedure fbbtClick(Sender: TObject);
    procedure cbtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setform: Tsetform;

implementation

uses Unit1;

{$R *.DFM}
var
dir:string;


procedure Tsetform.FormActivate(Sender: TObject);
begin
 form1.Enabled:=false;
end;

procedure Tsetform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Enabled:=true;
end;

procedure Tsetform.FormCreate(Sender: TObject);
begin
{==================================}
dir:=form1.DirectoryListBox3.directory;
with form1 do
begin
 memo1.Lines.Clear;
if not fileexists(dir+'\dat\rdx01\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx01\id.txt');
if not fileexists(dir+'\dat\rdx02\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx02\id.txt');
if not fileexists(dir+'\dat\rdx03\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx03\id.txt');
if not fileexists(dir+'\dat\rdx04\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx04\id.txt');
if not fileexists(dir+'\dat\rdx05\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx05\id.txt');
if not fileexists(dir+'\dat\rdx06\id.txt') then memo1.Lines.SaveToFile(dir+'\dat\rdx06\id.txt');

  end;






{==================================}
end;

procedure Tsetform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (trim(edit1.text)<>'') and(trim(ComboBox1.Text)<>'') then
  begin
  listbox1.Items.Add(trim(edit1.text));
  listbox1.Items.savetoFile(dir+'\dat\rdx0'+inttostr(ComboBox1.ItemIndex+1)+'\id.txt');
  edit1.Text:='';
  end;

end;

procedure Tsetform.ListBox1Click(Sender: TObject);
begin
if listbox1.Items[listbox1.Itemindex]<>'' then
 begin
   edit1.Text:=listbox1.Items[listbox1.Itemindex];
 end;
end;

procedure Tsetform.N1Click(Sender: TObject);
var
ret:integer;
i:integer;
j:integer;
begin

if listbox1.Items[listbox1.Itemindex]<>'' then
 begin
ret:=application.MessageBox(pchar('真的要删除你所选择的项目?,  删除后将不可恢复?'),'删除项目',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
if ret=1 then
begin

     for j:=0 to 10 do
     begin
             for i:=0 to listbox1.Items.Count-1 do
                begin
                     try
                       if listbox1.Selected[i] then
                                begin
                           listbox1.Items.Delete(listbox1.items.indexof(listbox1.Items[i]));
                                end;
                     except
                     end;
                end;
     end;
 listbox1.Update;
 listbox1.Items.savetoFile(dir+'\dat\rdx0'+inttostr(ComboBox1.ItemIndex+1)+'\id.txt');

end;
end;

end;


procedure Tsetform.ComboBox1Change(Sender: TObject);
begin
if   trim(ComboBox1.Text)<>'' then
  begin
  listbox1.Items.LoadFromFile(dir+'\dat\rdx0'+inttostr(ComboBox1.ItemIndex+1)+'\id.txt');
  end;

end;

procedure Tsetform.N2Click(Sender: TObject);
var
C:variant;
begin
if not table1.Active then  exit;
c:=table1.Fields[DBGriD1.SelectedIndex].Value;
table1.First;
 while not table1.EOF do
  begin
listbox1.Items.Add(table1.Fields[DBGriD1.SelectedIndex].asstring);
table1.Next;
  end;
listbox1.Items.savetoFile(dir+'\dat\rdx0'+inttostr(ComboBox1.ItemIndex+1)+'\id.txt');
end;



procedure Tsetform.zbbtClick(Sender: TObject);
begin
 try
  Table1.Close;
  Table1.LoadFromFile('C:\NewStar\NetSky\DAT\zbid.cdx');
  table1.Open;
  except
    showmessage('打开部门结构表出现意外错误!请关闭程序后重试!');
    exit;
  end;

end;

procedure Tsetform.bscbtClick(Sender: TObject);
begin
 try
  Table1.Close;
  Table1.LoadFromFile('C:\NewStar\NetSky\DAT\fbid.cdx');
  table1.Open;
  except
    showmessage('打开部门结构表出现意外错误!请关闭程序后重试!');
    exit;
  end;

end;

procedure Tsetform.fbbtClick(Sender: TObject);
begin
 try
  Table1.Close;
  Table1.LoadFromFile('C:\NewStar\NetSky\DAT\bscid.cdx');
  table1.Open;
  except
    showmessage('打开部门结构表出现意外错误!请关闭程序后重试!');
    exit;
  end;

end;













procedure Tsetform.cbtClick(Sender: TObject);
begin
close;
end;

end.