?? untmain.~pas

?? delphi7,源代碼主要的是進(jìn)行DELPHI7的源代碼進(jìn)行管理和維護(hù)
?? ~PAS
?? 第 1 頁 / 共 3 頁
字號:
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
  功  能:    顯示代碼類別列表
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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 := '代碼庫維護(hù)';
end;

{==========================================================================
  過程名:    TFormMain.ListTypeClick
  功  能:    點(diǎn)擊代碼類別，改變記錄集
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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和標(biāo)題列表
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    添加類別
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    刪除類別
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    編輯類別
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    刪除選中的代碼
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    按標(biāo)題檢索代碼
  參　數(shù):
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  過程名:    TFormMain.ComboTypeDropDown
  功  能:    顯示代碼類別列表
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  參　數(shù):
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  過程名:    TFormMain.ListFuncClick
  功  能:    顯示選中的代碼內(nèi)容
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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 := '分類查看代碼內(nèi)容';
end;

procedure TFormMain.TabSheet3Show(Sender: TObject);
begin
  Self.StatBar.Panels[0].Text := '分類查看資料內(nèi)容';
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 := 'hmjwfsoft@yahoo.com.cn';
      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
  功  能:    檢索代碼，取得標(biāo)題和ID列表
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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
  功  能:    打開備份程序
  參　數(shù):
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  過程名:    TFormMain.N8Click
  功  能:    打開壓縮程序
  參　數(shù):
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  過程名:    TFormMain.DBGridFuncTitleClick
  功  能:    點(diǎn)擊DBGRID標(biāo)題實(shí)現(xiàn)排序
  參　數(shù):
  作　者:    洪漢輝
  日　期:    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隔行著色
  參　數(shù):
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}
?? 文件大小 964 K
?? 上傳用戶 xiaotiao
?? 所屬分類 Delphi控件源碼
??? 相關(guān)標(biāo)簽

#DELPHI7 #delphi #源代碼
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? untmain.~pas

?? 快捷鍵說明
