main.~pas

程序员电子日记本：用记录日常事务等一些其它生活事

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, Menus, SUIMainMenu, SUISideChannel, SUIButton,
  SUIImagePanel, StdCtrls, SUIURLLabel, Grids, DBGridEh, SUIDBCtrls, Mask,
  Buttons, DBCtrlsEh, DBCtrls, SUIPopupMenu, ActnList, DBActns;

type
  TfrmMain = class(TForm)
    suiForm1: TsuiForm;
    suiSideChannel1: TsuiSideChannel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiImagePanel1: TsuiImagePanel;
    suiImagePanel2: TsuiImagePanel;
    suiURLLabel1: TsuiURLLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    suiImagePanel3: TsuiImagePanel;
    suiImagePanel4: TsuiImagePanel;
    suiDBMemo1: TsuiDBMemo;
    suiDBEdit1: TsuiDBEdit;
    SpeedButton1: TSpeedButton;
    Label5: TLabel;
    suiDBEdit2: TsuiDBEdit;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label6: TLabel;
    Label7: TLabel;
    suiDBEdit3: TsuiDBEdit;
    Label8: TLabel;
    suiDBEdit4: TsuiDBEdit;
    Label9: TLabel;
    suiDBEdit5: TsuiDBEdit;
    Label10: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    suiPopupMenu1: TsuiPopupMenu;
    W1: TMenuItem;
    F1: TMenuItem;
    M1: TMenuItem;
    E1: TMenuItem;
    N1: TMenuItem;
    A1: TMenuItem;
    N2: TMenuItem;
    X1: TMenuItem;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure suiImagePanel2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses DataModule,DB, ABOUT,ShellAPI, Find;

{$R *.dfm}

procedure TfrmMain.suiButton5Click(Sender: TObject);
begin
close;
end;

procedure TfrmMain.suiButton1Click(Sender: TObject);
begin
if suiButton1.Caption='记日记(&W)' then
 begin
  try
    DM1.ADOQuery1.Append;
    suibutton1.Caption:='保存(&S)';
    suibutton2.Caption:='放弃(&A)';
    SuiButton3.Enabled:=False;
    SuiButton4.Enabled:=False;
    DBDateTimeEditEh1.SetFocus;
    DbDateTimeEditeh1.Value:=now;
  except
    messagebox(handle,'未知的错误,不能添加','出错',MB_ICONStop+MB_OK);
 end;
 end else
   begin
     try
       Dm1.ADOQuery1.Post;
       suibutton1.Caption:='记日记(&W)';
       suibutton2.Caption:='查询日记(&F)';
       SuiButton3.Enabled:=True;
       SuiButton4.Enabled:=True;
     except
        messagebox(handle,'未知的错误,不能保存','出错',MB_ICONStop+MB_OK);
   end;
   end;
end;

procedure TfrmMain.suiButton2Click(Sender: TObject);
begin
 if suibutton2.Caption='放弃(&A)' then
   try
     DM1.ADOQuery1.Cancel;
     suibutton1.Caption:='记日记(&W)';
     suibutton2.Caption:='查询日记(&F)';
     SuiButton3.Enabled:=True;
     SuiButton4.Enabled:=True;
   except
        messagebox(handle,'未知的错误,不能放弃','出错',MB_ICONStop+MB_OK);
   end;
 if suiButton2.Caption='查询日记(&F)' then
   begin
     frmFind.show;
     suiButton2.Caption:='取消查询(&C)';
   end else
   if suiButton2.Caption='取消查询(&C)' then
    begin
     Dm1.ADOQuery1.Close;
     DM1.ADOQuery1.SQL.Clear;
     DM1.ADOQuery1.SQL.Text:='SELECT Diary.RQ,Diary.TQ,Diary.BT,Diary.XM,Diary.ly,Diary.lysx,Diary.xxlr from diary';
     Dm1.ADOQuery1.Open;
     suibutton2.Caption:='查询日记(&F)';
    end;


end;

procedure TfrmMain.suiButton4Click(Sender: TObject);
begin
 if messagebox(handle,'真的要删除当前记录吗?','删除确认',MB_ICONQuestion+MB_YESNO)=mrYES then
  try
    Dm1.ADOQuery1.Delete;
  except
    Messagebox(handle,'当前没记录可删除!','提示',MB_ICONStop+MB_OK);
  end;
end;

procedure TfrmMain.suiButton3Click(Sender: TObject);
begin
  if (DM1.ADOQuery1.State=dsEdit) or (DM1.ADOQuery1.State=dsInsert) then
    Dm1.ADOQuery1.Post;
end;

procedure TfrmMain.A1Click(Sender: TObject);
begin
 frmAbout.showmodal;
end;

procedure TfrmMain.X1Click(Sender: TObject);
begin
 close;
end;

procedure TfrmMain.suiImagePanel2Click(Sender: TObject);
begin
 frmAbout.showmodal;
end;

procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
  if (Uppercase(trim(copy(suiDBedit1.Text,1,4)))='HTTP') or (Uppercase(trim(copy(suiDBedit1.Text,1,3)))='WWW') then
 ShellExecute(Handle, 'OPEN',PChar(suiDBEdit1.Text), nil, nil, sw_shownormal);
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  if  Dm1.ADOQuery1.Active then
    exit
  else
    Dm1.ADOQuery1.Open;

end;

end.