untmain.~pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

procedure TFormMain.DBGridFuncDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (DBGridFunc.DataSource.DataSet.RecNo mod 2) = 0 then
    DBGridFunc.Canvas.Brush.Color := clWhite
  else
    DBGridFunc.Canvas.Brush.Color := clCream;
  if ((State = [gdSelected]) or (State = [gdSelected, gdFocused])) then
    if not DBGridFunc.SelectedRows.CurrentRowSelected then
      DBGridFunc.Canvas.Brush.Color := clHighlight;
  DBGridFunc.Canvas.Pen.Mode := pmMask;
  DBGridFunc.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TFormMain.TabSheet2Exit(Sender: TObject);
begin
  DM.ADOQueryFunc.Close ;
end;

procedure TFormMain.EditUsesDblClick(Sender: TObject);
begin
  EditUses.SelectAll ;
end;
//清理内存
procedure TFormMain.Timer3Timer(Sender: TObject);
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
     try
      SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
      Application.ProcessMessages;
     except
      Timer3.Enabled := false;
     end;
    end;
end;

procedure TFormMain.CoolTrayIcon1DblClick(Sender: TObject);
begin
  FormMain.WindowState := wsMaximized ;
  CoolTrayIcon1.ShowMainForm ;
end;

procedure TFormMain.CoolTrayIcon1Click(Sender: TObject);
begin
  CoolTrayIcon1.ShowBalloonHint('Delphi程序员助手提示','右键打开菜单，Delphi程序员助手为您服务。',bitInfo,10);
end;

procedure TFormMain.N15Click(Sender: TObject);
begin
  CoolTrayIcon1.HideMainForm ;
  FormMain.WindowState := wsMinimized;
end;

procedure TFormMain.ChkBoxClick(Sender: TObject);
begin
  if ChkBox.Checked then
    begin
      MemoFunc.ScrollBars := ssVertical;
      MemoFunc.WordWrap.Enabled := true;
    end
  else
    begin
      MemoFunc.ScrollBars := ssBoth;
      MemoFunc.WordWrap.Enabled := false;
    end;
  //if ListFunc.ItemIndex > 0 then
  //  self.ListFuncClick(Sender);
end;

procedure TFormMain.FormHide(Sender: TObject);
begin
  self.CoolTrayIcon1Click(Sender);
  FormMain.WindowState := wsMinimized;
  self.TimerEnable(0);
end;

procedure TFormMain.PopupMenu2Popup(Sender: TObject);
begin
  //NCopy.Enabled := MemoFunc.SelLength > 0 ;
end;

procedure TFormMain.MemoFuncDblClick(Sender: TObject);
begin
  MemoFunc.SelectAll ;
end;

procedure TFormMain.TBtnAddTipsClick(Sender: TObject);
begin
  ShowFunc(0,1);
  if DM.ADOQueryFunc.Active then
    DM.ADOQueryFunc.Requery();
end;

procedure TFormMain.TBtnTipsViewClick(Sender: TObject);
begin
  self.PgcMain.ActivePageIndex := 2;
end;

procedure TFormMain.TBtnTipsClick(Sender: TObject);
begin
  self.PgcMain.ActivePageIndex := 3;
end;

procedure TFormMain.SBtSearchTipClick(Sender: TObject);
var
  SubList           : Tstrings;
begin
  if Trim(EditTipKey.Text) = '' then
  begin
    EditTipKey.SelectAll;
    EditTipKey.SetFocus;
    Exit;
  end;
  SubList := Tstringlist.Create;
  Func_GetIDSubList(DM.ADOConnection2, EditTipKey.Text, IDTipList, SubList);
  self.ListTip.Clear;
  self.ListTip.Items.AddStrings(SubList);
  SubList.Free;
end;

procedure TFormMain.ComboTipTypeChange(Sender: TObject);
var
  SubList           : Tstrings;
begin
  SubList := Tstringlist.Create;
  Func_GetIDListByType(DM.ADOConnection2, ComboTipType.Text, IDTipList, SubList);
  self.ListTip.Clear;
  self.ListTip.Items.AddStrings(SubList);
  SubList.Free;
end;

procedure TFormMain.ComboTipTypeDropDown(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  TypeList := Tstringlist.Create;
  Type_GetTypeList(DM.ADOConnection2, TypeList);
  ComboTipType.Clear;
  ComboTipType.Text := '选择资料类别';
  ComboTipType.Items.AddStrings(TypeList);
  TypeList.Free;
  EditUses2.Clear;
  RichEditTip.Clear;
  MemoTip.Clear;
end;

procedure TFormMain.ListTipClick(Sender: TObject);
var
  PType, PSubject, PUses: string;
  PConent, PRemark  : Tstrings;
begin
  PConent := Tstringlist.Create;
  PRemark := Tstringlist.Create;
  SetLength(PType, 255);
  SetLength(PSubject, 255);
  SetLength(PUses, 255);
  if Func_GetRecordByID(DM.ADOConnection2, StrToInt(IDTipList[ListTip.ItemIndex]),
    PChar(PType), PChar(PSubject), PChar(PUses), PConent, PRemark) then
    begin
      EditUses2.Text := PUses;
      RichEditTip.Text := PConent.Text;
      MemoTip.Text := PRemark.Text;
      ComboTipType.Text := PType;
      Self.StatBar.Panels[0].Text := PSubject;
    end;
  PConent.Free;
  PRemark.Free;
end;

procedure TFormMain.ListTipDblClick(Sender: TObject);
begin
  ShowFunc(StrToInt(IDTipList[ListTip.ItemIndex]),1);
end;

procedure TFormMain.MemoTipDblClick(Sender: TObject);
begin
  MemoTip.SelectAll ;
end;

procedure TFormMain.EditTipKeyClick(Sender: TObject);
begin
  EditTipKey.SelectAll ;
end;

procedure TFormMain.EditUses2DblClick(Sender: TObject);
begin
  EditUses2.SelectAll ;
end;

procedure TFormMain.ListTipTypeClick(Sender: TObject);
begin
  EditTipType.Text := ListTipType.Items[ListTipType.Itemindex];
  Func_GetFuncByType(DM.ADOQueryTips , EditTipType.Text);
end;

procedure TFormMain.SBtnAddTipTypeClick(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  if Trim(EditTipType.Text) <> '' then
    begin
      Type_AddNew(DM.ADOConnection2, EditTipType.Text);
      TypeList := Tstringlist.Create;
      Type_GetTypeList(DM.ADOConnection2, TypeList);
      ListTipType.Clear;
      ListTipType.Items.AddStrings(TypeList);
      TypeList.Free;
      EditTipType.Clear;
    end;
  EditTipType.SetFocus;
end;

procedure TFormMain.SBtnEditTipTypeClick(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  if Trim(EditTipType.Text) <> '' then
    begin
      Type_Edit(DM.ADOConnection2, ListTipType.Items[ListTipType.Itemindex],
        EditTipType.Text);
      TypeList := Tstringlist.Create;
      Type_GetTypeList(DM.ADOConnection2, TypeList);
      ListTipType.Clear;
      ListTipType.Items.AddStrings(TypeList);
      TypeList.Free;
      EditTipType.Clear;
    end;
  EditTipType.SetFocus;
end;

procedure TFormMain.SBtnDelTipTypeClick(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  if Trim(EditTipType.Text) <> '' then
    begin
      Type_Delete(DM.ADOConnection2, EditTipType.Text);
      TypeList := Tstringlist.Create;
      Type_GetTypeList(DM.ADOConnection2, TypeList);
      ListTipType.Clear;
      ListTipType.Items.AddStrings(TypeList);
      TypeList.Free;
      EditTipType.Clear;
    end;
  EditTipType.SetFocus;
end;

procedure TFormMain.SBtnEditTipsClick(Sender: TObject);
begin
  ShowFunc(DBGridTips.Fields[0].AsInteger,1);
  if DM.ADOQueryTips.Active then
    DM.ADOQueryTips.Requery();
end;

procedure TFormMain.SBtnDelTipsClick(Sender: TObject);
begin
  if DBGridTips.Fields[0].AsInteger > 0 then
    begin
      Func_Delete(DM.ADOConnection2, DBGridTips.Fields[0].AsInteger);
      DM.ADOQueryTips.Requery();
    end;
end;

procedure TFormMain.EditKeyTipsClick(Sender: TObject);
begin
  EditKeyTips.SelectAll ;
end;

procedure TFormMain.SBtnSearchTipsClick(Sender: TObject);
begin
  Func_SearchBySubject(DM.ADOQueryTips, EditKeyTips.Text);
  EditKeyTips.SetFocus;
end;

procedure TFormMain.SBtnAllTipsClick(Sender: TObject);
begin
  EditKeyTips.Clear;
  Self.SBtnSearchTipsClick(Sender);
end;

procedure TFormMain.DBGridTipsDblClick(Sender: TObject);
begin
  ShowFunc(DBGridTips.Fields[0].AsInteger,1);
  if DM.ADOQueryTips.Active then
    DM.ADOQueryTips.Requery();
end;

procedure TFormMain.DBGridTipsDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (DBGridTips.DataSource.DataSet.RecNo mod 2) = 0 then
    DBGridTips.Canvas.Brush.Color := clWhite
  else
    DBGridTips.Canvas.Brush.Color := clCream;
  if ((State = [gdSelected]) or (State = [gdSelected, gdFocused])) then
    if not DBGridTips.SelectedRows.CurrentRowSelected then
      DBGridTips.Canvas.Brush.Color := clHighlight;
  DBGridTips.Canvas.Pen.Mode := pmMask;
  DBGridTips.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TFormMain.DBGridTipsTitleClick(Column: TColumn);
var
  s                 : string;
begin
  if DM.ADOQueryTips.Active = True then
    begin
      if DBGridTips.Tag = 0 then
        begin
          DM.ADOQueryTips.Sort := Column.FieldName + ' ASC';
          s := Trim(Column.Title.Caption);
          if (Pos('▽', s) > 0) or (Pos('△', s) > 0) then
            s := Copy(s, 1, Length(s) - 2);
          Column.Title.Caption := Format('%s △', [Trim(s)]);
          Column.Font.Color := clBlack;
          DBGridTips.Tag := 1;
        end
      else
        begin
          DM.ADOQueryTips.Sort := column.FieldName + ' DESC';
          s := Trim(Column.Title.Caption);
          if (Pos('▽', s) > 0) or (Pos('△', s) > 0) then
            s := Copy(s, 1, Length(s) - 2);
          Column.Title.Caption := Format('%s ▽', [Trim(s)]);
          Column.Font.Color := clGreen;
          DBGridTips.Tag := 0;
        end;
    end;
end;

procedure TFormMain.TabSheet4Show(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  TypeList := Tstringlist.Create;
  Type_GetTypeList(DM.ADOConnection2, TypeList);
  ListTipType.Clear;
  ListTipType.Items.AddStrings(TypeList);
  TypeList.Free;
  if not DM.ADOQueryTips.Active then
    DM.ADOQueryTips.Open ;
  Self.StatBar.Panels[0].Text := '资料库维护';
end;

procedure TFormMain.TabSheet4Exit(Sender: TObject);
begin
  DM.ADOQueryTips.Close ;
end;

procedure TFormMain.CheckBoxTipClick(Sender: TObject);
begin
  if CheckBoxTip.Checked then
    begin
      RichEditTip.ScrollBars := ssVertical;
      RichEditTip.WordWrap.Enabled := true;
    end
  else
    begin
      RichEditTip.ScrollBars := ssBoth;
      RichEditTip.WordWrap.Enabled := false;
    end;
  if ListTip.ItemIndex > 0 then
    self.ListTipClick(Sender);
end;

procedure TFormMain.NAddClick(Sender: TObject);
begin
  ShowFuncD(0,0);
end;

procedure TFormMain.N18Click(Sender: TObject);
begin
  ShowFunc(0,0);
end;

procedure TFormMain.FormResize(Sender: TObject);
begin
  if self.WindowState = wsMinimized then
  begin
    self.CoolTrayIcon1Click(Sender);
    self.TimerEnable(0);
  end;
end;

procedure TFormMain.PopupMenu1Popup(Sender: TObject);
begin
  if FormMain.WindowState <> wsMinimized then
  begin
    NShow.Enabled := false;
    N15.Enabled := true;
  end
  else
  begin
    NShow.Enabled := true;
    N15.Enabled := false;
  end;
end;

procedure TFormMain.N23Click(Sender: TObject);
begin
  showInfo('作者：洪汉辉 E-mail: [e-mail] 如果这个工具对您有用，请告诉我。' +
  '如果您有什么意见或建议，请mail我，谢谢！');
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  self.TimerEnable(1);
end;

procedure TFormMain.RichEditTipDblClick(Sender: TObject);
begin
  RichEditTip.SelectAll ;
end;

end.