untmain.~pas

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

begin
  ShowFuncD(0,1);
  if DM.ADOQueryTips.Active then
    DM.ADOQueryTips.Requery();
end;

procedure TFormMain.SBtnEditFuncClick(Sender: TObject);
begin
  ShowFuncD(DBGridFunc.Fields[0].AsInteger,1);
  if DM.ADOQueryFunc.Active then
    DM.ADOQueryFunc.Requery();
end;

{==========================================================================
  过程名:    TFormMain.TabSheet2Show
  功  能:    显示代码类别列表
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.TabSheet2Show(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  TypeList := Tstringlist.Create;
  Type_GetTypeList(DM.ADOConnection1, TypeList);
  ListType.Clear;
  ListType.Items.AddStrings(TypeList);
  TypeList.Free;
  if not DM.ADOQueryFunc.Active then
    DM.ADOQueryFunc.Open ;
  Self.StatBar.Panels[0].Text := '代码库维护';
end;

{==========================================================================
  过程名:    TFormMain.ListTypeClick
  功  能:    点击代码类别，改变记录集
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ListTypeClick(Sender: TObject);
begin
  EdtType.Text := ListType.Items[ListType.Itemindex];
  Func_GetFuncByType(DM.ADOQueryFunc, EdtType.Text);
end;

{==========================================================================
  过程名:    TFormMain.ComboTypeChange
  功  能:    改变类别，取得ID和标题列表
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ComboTypeChange(Sender: TObject);
var
  SubList           : Tstrings;
begin
  SubList := Tstringlist.Create;
  Func_GetIDListByType(DM.ADOConnection1, self.ComboType.Text, IDList, SubList);
  self.ListFunc.Clear;
  self.ListFunc.Items.AddStrings(SubList);
  SubList.Free;
end;

{==========================================================================
  过程名:    TFormMain.SBtnAddTypeClick
  功  能:    添加类别
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  过程名:    TFormMain.SBtnDelTypeClick
  功  能:    删除类别
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  过程名:    TFormMain.SBtnEditTypeClick
  功  能:    编辑类别
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  过程名:    TFormMain.SBtnDelFuncClick
  功  能:    删除选中的代码
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.SBtnDelFuncClick(Sender: TObject);
begin
  if DBGridFunc.Fields[0].AsInteger > 0 then
    begin
      Func_Delete(DM.ADOConnection1, DBGridFunc.Fields[0].AsInteger);
      DM.ADOQueryFunc.Requery();
    end;
end;

{==========================================================================
  过程名:    TFormMain.SBtnSearchClick
  功  能:    按标题检索代码
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.SBtnSearchClick(Sender: TObject);
begin
  Func_SearchBySubject(DM.ADOQueryFunc, EdtKey.Text);
  EdtKey.SetFocus;
end;

{==========================================================================
  过程名:    TFormMain.ComboTypeDropDown
  功  能:    显示代码类别列表
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ComboTypeDropDown(Sender: TObject);
var
  TypeList          : Tstrings;
begin
  TypeList := Tstringlist.Create;
  Type_GetTypeList(DM.ADOConnection1, TypeList);
  ComboType.Clear;
  ComboType.Text := '选择代码类别';
  ComboType.Items.AddStrings(TypeList);
  TypeList.Free;
  EditUses.Clear;
  MemoFunc.Clear;
  MemRemark.Clear;
end;

{==========================================================================
  过程名:    TFormMain.FormClose
  功  能:    释放IDLIST
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IDList.Free;
  IDTipList.Free;
end;

{==========================================================================
  过程名:    TFormMain.ListFuncClick
  功  能:    显示选中的代码内容
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ListFuncClick(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.ADOConnection1, StrToInt(IDList[ListFunc.ItemIndex]),
    PChar(PType), PChar(PSubject), PChar(PUses), PConent, PRemark) then
    begin
      EditUses.Text := PUses;
      MemoFunc.Text := PConent.Text;
      MemRemark.Text := PRemark.Text;
      ComboType.Text := PType;
      Self.StatBar.Panels[0].Text := PSubject;
    end;
  PConent.Free;
  PRemark.Free;
end;

procedure TFormMain.TabSheet1Show(Sender: TObject);
begin
  Self.StatBar.Panels[0].Text := '分类查看代码内容';
end;

procedure TFormMain.TabSheet3Show(Sender: TObject);
begin
  Self.StatBar.Panels[0].Text := '分类查看资料内容';
end;

procedure TFormMain.Timer2Timer(Sender: TObject);
begin
 try
  if self.Tag = 0 then
    begin
      Self.StatBar.Panels[2].Text := '欢迎使用Delphi程序员助手！';
      self.Tag := 1;
    end
  else
    begin
      Self.StatBar.Panels[2].Text := '[e-mail]';
      self.Tag := 0;
    end;
 except
   Timer2.Enabled := false;
 end;
end;

procedure TFormMain.ListFuncDblClick(Sender: TObject);
begin
  ShowFuncD(StrToInt(IDList[ListFunc.ItemIndex]),1);
end;

procedure TFormMain.SBtnAllClick(Sender: TObject);
begin
  EdtKey.Clear;
  Self.SBtnSearchClick(Sender);
end;

procedure TFormMain.EdtKeyClick(Sender: TObject);
begin
  EdtKey.SelectAll;
end;

procedure TFormMain.MemRemarkDblClick(Sender: TObject);
begin
  MemRemark.SelectAll;
end;

procedure TFormMain.ToolButtonFuncClick(Sender: TObject);
begin
  Self.PgcMain.ActivePageIndex := 0;
end;

procedure TFormMain.ToolButtonLibClick(Sender: TObject);
begin
  Self.PgcMain.ActivePageIndex := 1;
end;

procedure TFormMain.ToolButtonLinkClick(Sender: TObject);
var
  URL               : string;
begin
  URL := GetExePath() + 'Helper.chm';
  OpenURL(URL);
end;

procedure TFormMain.EditFKeyClick(Sender: TObject);
begin
  EditFKey.SelectAll;
end;

{==========================================================================
  过程名:    TFormMain.SBtnFSearchClick
  功  能:    检索代码，取得标题和ID列表
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.SBtnFSearchClick(Sender: TObject);
var
  SubList           : Tstrings;
begin
  if Trim(EditFKey.Text) = '' then
  begin
    EditFKey.SelectAll;
    EditFKey.SetFocus;
    Exit;
  end;
  SubList := Tstringlist.Create;
  Func_GetIDSubList(DM.ADOConnection1, EditFKey.Text, IDList, SubList);
  self.ListFunc.Clear;
  self.ListFunc.Items.AddStrings(SubList);
  SubList.Free;
end;

{==========================================================================
  过程名:    TFormMain.N5Click
  功  能:    打开备份程序
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.N5Click(Sender: TObject);
var
  URL               : string;
begin
  URL := GetExePath() + 'TBackUp.exe';
  OpenURL(URL);
  Close;
end;

{==========================================================================
  过程名:    TFormMain.N8Click
  功  能:    打开压缩程序
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.N8Click(Sender: TObject);
var
  URL               : string;
begin
  URL := GetExePath() + 'TCompact.exe';
  OpenURL(URL);
  Close;
end;

{==========================================================================
  过程名:    TFormMain.DBGridFuncTitleClick
  功  能:    点击DBGRID标题实现排序
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.DBGridFuncTitleClick(Column: TColumn);
var
  s                 : string;
begin
  if DM.ADOQueryFunc.Active = True then
    begin
      if DBGridFunc.Tag = 0 then
        begin
          DM.ADOQueryFunc.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;
          DBGridFunc.Tag := 1;
        end
      else
        begin
          DM.ADOQueryFunc.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;
          DBGridFunc.Tag := 0;
        end;
    end;
end;

{==========================================================================
  过程名:    TFormMain.DBGridFuncDrawColumnCell
  功  能:    对DBGRID隔行着色
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}