main.pas

我的信息管理中心程序（源码）适合初级

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, BusinessSkinForm, bsSkinData, bsSkinCtrls, ExtCtrls,
  ComCtrls, bsSkinGrids, bsDBGrids,MYLIB, StdCtrls, bsSkinBoxCtrls,
  bsdbctrls, Grids,  bsMessages, bsTrayIcon, Menus, bsSkinMenus,
  bsSkinShellCtrls, ImgList;

type
  TFRMMAIN = class(TForm)
    AQINFOTYPE: TADOQuery;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsStoredSkin1: TbsStoredSkin;
    bsSkinControlBar1: TbsSkinControlBar;
    bsSkinToolBar1: TbsSkinToolBar;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinTreeView1: TbsSkinTreeView;
    DSINFOTYPE: TDataSource;
    AQTYPELIST: TADOQuery;
    AQTYPELISTID: TSmallintField;
    AQTYPELISTTYPENAME: TStringField;
    AQTYPELISTPID: TSmallintField;
    DSTYPELIST: TDataSource;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    AQMYINFO: TADOQuery;
    DSMYINFO: TDataSource;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinSplitter1: TbsSkinSplitter;
    bsSkinSplitter2: TbsSkinSplitter;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    AQMYINFOID: TSmallintField;
    AQMYINFOSDATE: TDateTimeField;
    AQMYINFOINFO: TMemoField;
    AQMYINFOTYPEID: TSmallintField;
    AQMYINFOTXDATE: TDateTimeField;
    Timer1: TTimer;
    bsSkinPopupMenu1: TbsSkinPopupMenu;
    N2: TMenuItem;
    N1: TMenuItem;
    AQMYINFOTITLE: TWideStringField;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    ImageList1: TImageList;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure bsSkinTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure bsSkinTreeView1DblClick(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure AQMYINFONewRecord(DataSet: TDataSet);
    procedure bsSkinDBMemo1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMMAIN: TFRMMAIN;

implementation

uses ADDINFO, inputinfo, Unit1;

{$R *.dfm}
procedure selectinfo(query :Tadoquery;typeid:Tadoquery);
begin
with query do
begin
close;
sql.Clear;
sql.Add('select * from myinfo');
sql.Add('where typeid='+typeid.fieldbyname('id').AsSTRING);
open;
end;
end;
procedure TFRMMAIN.FormShow(Sender: TObject);
begin
MakeTree(AQINFOTYPE,'INFOTYPE',BSSKINTREEVIEW1);
aqmyinfo.Close;
end;

procedure TFRMMAIN.bsSkinTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
treechange(aqinfotype,node);
selectinfo(AQMYINFO,AQINFOTYPE) ;
end;

procedure TFRMMAIN.bsSkinTreeView1DblClick(Sender: TObject);
begin
   bsskinspeedbutton1.ButtonClick;
end;

procedure TFRMMAIN.bsSkinSpeedButton3Click(Sender: TObject);
begin

close;
end;

procedure TFRMMAIN.bsSkinSpeedButton1Click(Sender: TObject);
begin  if frmaddinfo=nil then
begin
frmaddinfo:=Tfrmaddinfo.create(self);
end;
frmaddinfo.ShowModal;
end;

procedure TFRMMAIN.bsSkinSpeedButton2Click(Sender: TObject);
begin
if frminputinfo=nil then
begin
frminputinfo:=Tfrminputinfo.create(self);
end;
frminputinfo.showmodal;
end;

procedure TFRMMAIN.AQMYINFONewRecord(DataSet: TDataSet);
begin
aqmyinfo.FieldByName('typeid').AsInteger:=aqinfotype.fieldbyname('id').AsInteger;
end;

procedure TFRMMAIN.bsSkinDBMemo1DblClick(Sender: TObject);
begin
bsSkinSpeedButton2.ButtonClick;
end;

procedure TFRMMAIN.N1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TFRMMAIN.N2Click(Sender: TObject);
begin
frmmain.Show;
end;

procedure TFRMMAIN.Timer1Timer(Sender: TObject);
begin
bsSkinStatusPanel1.Caption:=formatdatetime('yyyy-mm-dd hh:mm:ss dddd',now);
end;

procedure TFRMMAIN.bsSkinSpeedButton4Click(Sender: TObject);
begin
IF FRMLOGO.bsSkinMessage1.MessageDlg('确认删除吗?',mtInformation,[MBYES,MBNO],0)=MRYES THEN
BEGIN
frmmain.AQMYINFO.Delete ;
END;
end;

end.