unit1.pas

转载 工控软件管理绿色小精灵 v2005代码。非常好的 要控件上http://www.bokonger.com/ReNewsInfo.asp?id=19下

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB,
  ADODB, bsSkinHint, bsSkinData, DBClientActns, DBActns, ActnList, Menus,
  bsSkinMenus, bsTrayIcon,Shellapi, BusinessSkinForm, bsSkinGrids, bsDBGrids,
  FR_DSet, FR_DBSet, FR_Class, bsdbctrls, Mask, bsSkinBoxCtrls,
  bsSkinShellCtrls;

type
  TForm1 = class(TForm)
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinLinkImage1: TbsSkinLinkImage;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    bsSkinStatusPanel3: TbsSkinStatusPanel;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsTrayIcon1: TbsTrayIcon;
    Timer1: TTimer;
    bsSkinPopupMenu1: TbsSkinPopupMenu;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N12: TMenuItem;
    CD1: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N22: TMenuItem;
    N20: TMenuItem;
    N19: TMenuItem;
    N44: TMenuItem;
    N43: TMenuItem;
    N3: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N41: TMenuItem;
    N1: TMenuItem;
    N42: TMenuItem;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetFirst2: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    ClientDataSetApply1: TClientDataSetApply;
    ClientDataSetRevert1: TClientDataSetRevert;
    ClientDataSetUndo1: TClientDataSetUndo;
    bsCompressedStoredSkin2: TbsCompressedStoredSkin;
    bsSkinHint1: TbsSkinHint;
    Timer2: TTimer;
    bsSkinPopupMenu2: TbsSkinPopupMenu;
    N28: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    CD2: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N30: TMenuItem;
    bsSkinPopupMenu3: TbsSkinPopupMenu;
    N37: TMenuItem;
    N40: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    Label11: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label12: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinLinkImage2: TbsSkinLinkImage;
    Image1: TImage;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    bsSkinDBNavigator1: TbsSkinDBNavigator;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinDirectoryEdit1: TbsSkinDirectoryEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBComboBox1: TbsSkinDBComboBox;
    bsSkinDBComboBox2: TbsSkinDBComboBox;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBMemo2: TbsSkinDBMemo;
    bsSkinDBComboBox3: TbsSkinDBComboBox;
    bsSkinDBComboBox4: TbsSkinDBComboBox;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinLinkLabel1: TbsSkinLinkLabel;
    bsSkinStatusPanel2: TbsSkinStatusPanel;
    bsSkinStatusPanel4: TbsSkinStatusPanel;
    bsSkinPopupMenu4: TbsSkinPopupMenu;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N29: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    Image3: TImage;
    Timer3: TTimer;
    bsSkinPopupMenu5: TbsSkinPopupMenu;
    N11: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    ADOConnection1: TADOConnection;
    N70: TMenuItem;
    N72: TMenuItem;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinDirectoryEdit1Change(Sender: TObject);
    procedure bsSkinLinkImage2MouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure bsSkinDateEdit1DateChange(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  
  save, sqlstr: string; //数据库导出
  Int_Index: integer;   //数据库导出  
  SL: TStrings; //combobox1的内容
  i: integer; //combobox1的内容
   const
  MyPassW='123'; //数据库密码
implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyPath:string;
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'bokonger.mdb;Jet OLEDB:Database Password='+
                                 MyPassW+';Persist Security Info=False';

 ADOConnection1.Connected := true;
 SL := TStringList.Create; //列表框建立
 // SL := TStringList.Create;
  //得到数据库里面所有的表（布包括系统表）
  ADOConnection1.GetTableNames(sl, false);
  //向下拉框添加表名
  for i := 0 to sl.Count - 1 do
  begin
    ComboBox1.Items := sl;
  end;
  ComboBox1.ItemIndex := 0;

 adoquery1.SQL.Clear;

 adoquery1.SQL.Add('select * from ziliao ');
 adoquery1.Prepared;
 adoquery1.Open;
 //ADOquery2打开

end;

procedure TForm1.bsSkinXFormButton1Click(Sender: TObject);
var
  rect1:trect; //开始菜单的位置确定
begin
 GetWindowrect(bsSkinXFormButton1.Handle,rect1);
  if rect1.Top>bsSkinPopupMenu1.Items.Count*14+3 then
   bsSkinPopupMenu1.Popup(rect1.Left-6,rect1.top-bsSkinPopupMenu1.Items.Count*13-8)
  else
    bsSkinPopupMenu1.Popup(rect1.Left,rect1.bottom);

end;

procedure TForm1.N39Click(Sender: TObject);
begin
Winexec('Notepad.exe',sw_Normal);//记事本
end;

procedure TForm1.N1Click(Sender: TObject);
begin
if MessageDlg('你确定退出程序吗？',
    mtconfirmation, [mbYes, mbNo], 0)= mryes then
    begin
application.Terminate;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      bsSkinStatusPanel4.Caption :=FormatDateTime('yyyy"年"mm"月"dd"日" hh"时"mm"分"ss"秒"', Now);
end;

procedure TForm1.N43Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N21Click(Sender: TObject);
var
path:string;
begin
  try
     path:=extractfilepath(application.ExeName)+'Notepad.txt';
    ShellExecute(0, 'open', PChar(Application.HelpFile+'软件说明.txt'), nil, nil, SW_SHOW);
  except

end;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
ADOQuery1.Sort := '出品公司 ASC'//降序
end;

procedure TForm1.N36Click(Sender: TObject);
begin
ADOQuery1.Sort := '软件名称  DESC'//降序
end;

procedure TForm1.N33Click(Sender: TObject);
begin
ADOQuery1.Sort := '收藏日期  DESC'//降序
end;

procedure TForm1.bsSkinXFormButton2Click(Sender: TObject);