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)
    Panel1: TPanel;
    ComboBox1: TGFXComboBox;
    Image6: TImage;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    DataSource1: TDataSource;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    Table1: TClientDataSet;
    Label1: TLabel;
    zbbt: TSpeedButton;
    bscbt: TSpeedButton;
    fbbt: TSpeedButton;
    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);
  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:=extractFilePath(ParamStr(0)) ;
with form1 do
begin
 memo1.Lines.Clear;
if not fileexists(dir+'dat\cdx01\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx01\id.txt');
if not fileexists(dir+'dat\cdx02\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx02\id.txt');
if not fileexists(dir+'dat\cdx03\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx03\id.txt');
if not fileexists(dir+'dat\cdx04\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx04\id.txt');
if not fileexists(dir+'dat\cdx05\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx05\id.txt');
if not fileexists(dir+'dat\cdx06\id.txt') then memo1.Lines.SaveToFile(dir+'dat\cdx06\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\cdx0'+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\cdx0'+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\cdx0'+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\cdx0'+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;

end.