z_add.pas

一个浏览器 比较简单的程序,适合处学者使用和学习.有意见联系我 .

unit Z_add;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SynEdit, SynMemo, ExtCtrls, DB, ADODB, Menus,
  SynEditActions, ActnList;

type
  TForm3 = class(TForm)
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    actlst1: TActionList;
    aSynReadOnly1: TaSynReadOnly;
    aSynNormalSelect1: TaSynNormalSelect;
    aSynColumnSelect1: TaSynColumnSelect;
    aSynLineSelect1: TaSynLineSelect;
    aSynUndo1: TaSynUndo;
    aSynRedo1: TaSynRedo;
    aSynCut1: TaSynCut;
    aSynAppendCut1: TaSynAppendCut;
    aSynCopy1: TaSynCopy;
    aSynAppendCopy1: TaSynAppendCopy;
    aSynPaste1: TaSynPaste;
    aSynDeleteNextchar1: TaSynDeleteNextchar;
    aSynDeleteLastChar1: TaSynDeleteLastChar;
    aSynDeleteWordToEnd1: TaSynDeleteWordToEnd;
    aSynDeleteWordToStart1: TaSynDeleteWordToStart;
    aSynDeleteWord1: TaSynDeleteWord;
    aSynDeleteLineToEnd1: TaSynDeleteLineToEnd;
    aSynDeleteLineToStart1: TaSynDeleteLineToStart;
    aSynDeleteLine1: TaSynDeleteLine;
    aSynClearAll1: TaSynClearAll;
    aSynSelectAll1: TaSynSelectAll;
    aSynSelectLine1: TaSynSelectLine;
    aSynSelectNextLine1: TaSynSelectNextLine;
    aSynSelectLastLine1: TaSynSelectLastLine;
    aSynSelectWrod1: TaSynSelectWrod;
    aSynSelectNextWord1: TaSynSelectNextWord;
    aSynSelectLastWord1: TaSynSelectLastWord;
    aSynGotoBookmark1: TaSynGotoBookmark;
    aSynSetBookmark1: TaSynSetBookmark;
    aSynClearBookmark1: TaSynClearBookmark;
    aSynGotoLastChange1: TaSynGotoLastChange;
    aSynMatchBracket1: TaSynMatchBracket;
    aSynCommentBlock1: TaSynCommentBlock;
    aSynFind1: TaSynFind;
    aSynFindNext1: TaSynFindNext;
    aSynFindLast1: TaSynFindLast;
    aSynFindNextWord1: TaSynFindNextWord;
    aSynFindLastWord1: TaSynFindLastWord;
    aSynReplace1: TaSynReplace;
    aSynReplaceNext1: TaSynReplaceNext;
    aSynReplaceLast1: TaSynReplaceLast;
    aSynUpperCase1: TaSynUpperCase;
    aSynLowerCase1: TaSynLowerCase;
    aSynToggleCase1: TaSynToggleCase;
    aSynTitleCase1: TaSynTitleCase;
    aSynBlockIndent1: TaSynBlockIndent;
    aSynBlockUnindent1: TaSynBlockUnindent;
    aSynInsertLine1: TaSynInsertLine;
    aSynLineBreak1: TaSynLineBreak;
    aSynFileFormatDos1: TaSynFileFormatDos;
    aSynFileFormatMac1: TaSynFileFormatMac;
    aSynFileFormatUnix1: TaSynFileFormatUnix;
    aSynPrint1: TaSynPrint;
    aSynQuickPrint1: TaSynQuickPrint;
    aSynExporter1: TaSynExporter;
    aSynExporter2: TaSynExporter;
    aSynExporter3: TaSynExporter;
    aSynSave1: TaSynSave;
    aSynSaveAs1: TaSynSaveAs;
    aSynSaveSel1: TaSynSaveSel;
    aSynNew1: TaSynNew;
    aSynGotoBookmark2: TaSynGotoBookmark;
    aSynSetBookmark2: TaSynSetBookmark;
    aSynGotoBookmark3: TaSynGotoBookmark;
    aSynSetBookmark3: TaSynSetBookmark;
    aSynGotoBookmark4: TaSynGotoBookmark;
    aSynGotoBookmark5: TaSynGotoBookmark;
    aSynSetBookmark5: TaSynSetBookmark;
    aSynGotoBookmark6: TaSynGotoBookmark;
    aSynSetBookmark6: TaSynSetBookmark;
    aSynGotoBookmark7: TaSynGotoBookmark;
    aSynSetBookmark7: TaSynSetBookmark;
    aSynGotoBookmark8: TaSynGotoBookmark;
    aSynSetBookmark8: TaSynSetBookmark;
    aSynGotoBookmark9: TaSynGotoBookmark;
    aSynSetBookmark9: TaSynSetBookmark;
    aSynGotoBookmark10: TaSynGotoBookmark;
    aSynSetBookmark10: TaSynSetBookmark;
    aSynSetBookmark4: TaSynSetBookmark;
    aSynOpen1: TaSynOpen;
    aSynInsertFile1: TaSynInsertFile;
    aSynPageSetup1: TaSynPageSetup;
    aSynPreview1: TaSynPreview;
    aSynClose1: TaSynClose;
    aSynJump1: TaSynJump;
    aSynOptionsSetting1: TaSynOptionsSetting;
    aSynToggleHighlighter1: TaSynToggleHighlighter;
    aSynSpellCheck1: TaSynSpellCheck;
    aSynSpellCheckOptions1: TaSynSpellCheckOptions;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    SynMemo1: TSynMemo;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    mm1: TMainMenu;
    MenuItem1: TMenuItem;
    N2: TMenuItem;
    O1: TMenuItem;
    N5: TMenuItem;
    S1: TMenuItem;
    A2: TMenuItem;
    N4: TMenuItem;
    N49: TMenuItem;
    N3: TMenuItem;
    HTML1: TMenuItem;
    EX1: TMenuItem;
    a1: TMenuItem;
    N6: TMenuItem;
    aSynPaste11: TMenuItem;
    N7: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    x1: TMenuItem;
    U1: TMenuItem;
    R1: TMenuItem;
    N8: TMenuItem;
    X2: TMenuItem;
    N32: TMenuItem;
    C1: TMenuItem;
    N33: TMenuItem;
    P1: TMenuItem;
    N9: TMenuItem;
    D1: TMenuItem;
    t1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N17: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    aSynClearAll11: TMenuItem;
    N13: TMenuItem;
    A3: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N34: TMenuItem;
    F1: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    aSynReplaceNext11: TMenuItem;
    aSynReplaceLast11: TMenuItem;
    N41: TMenuItem;
    N44: TMenuItem;
    N02: TMenuItem;
    N111: TMenuItem;
    N211: TMenuItem;
    N311: TMenuItem;
    N46: TMenuItem;
    N52: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    N43: TMenuItem;
    N01: TMenuItem;
    N110: TMenuItem;
    N210: TMenuItem;
    N310: TMenuItem;
    N45: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N42: TMenuItem;
    N50: TMenuItem;
    G1: TMenuItem;
    N03: TMenuItem;
    N53: TMenuItem;
    O2: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    H1: TMenuItem;
    N54: TMenuItem;
    E1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
      function IDExists(s: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses frmMain;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
if  ComboBox1.Text <> '' THEN

  if IDExists(Edit1.Text) then
  begin
    ShowMessage('Exists');
  end
  else begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Insert Into ZL (TITLE, FTITLE,CONTER,FROME) Values(');//
    ADOQuery1.SQL.Add(#39 + Edit1.Text + #39 + ','+  #39 + ComboBox1.Text + #39 + ',' + #39 + SynMemo1.Text+ #39 + ',' + #39 + frmMain.Form1.IEAddress1.Text + #39 + ')'); //','
    try
      ADOQuery1.ExecSQL;
      FORM1.node := FORM1.TV1.Selected;      //在TREEVIEWW中添加新的子节点
      FORM1.TV1.Items.AddChild(FORM1.node, #39 + SynMemo1.Text+ #39);
    except
      ShowMessage('Error');
    end;
  end
  ELSE
    ShowMessage('没有子类');
end;



procedure TForm3.Button2Click(Sender: TObject);
begin
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add(' UPDATE ZL SET CONTER ='#39 + SynMemo1.Text+ #39);//
    ADOQuery3.SQL.Add('WHERE TITLE ='#39 + Edit1.Text + #39 ); //','
    try
    ADOQuery3.ExecSQL;
    ShowMessage('成功');
         FORM1.TV1.Items.Clear;
    FORM1.addDepartment;
    except
      ShowMessage('Error');
    end;
    close;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
 // var
 // tmpFiledName:string;
  begin
  {ComboBox2.Items.Clear;
      ComboBox2.Style:=csDropDownList;
      tmpFiledName:=ComboBox1.Text;
      //ShowMessage(tmpFiledName);
    ADOQuery2.SQL.Clear;
    ADOQuery2.Sql.Add('select * from ZL where FTITLE=:FTITLE');
    ADOQuery2.parameters.ParamByName('FTITLE').Value:=tmpFiledName;
    ADOQuery2.Open;
    ADOQuery2.First;
    while not ADOQuery2.Eof do
    begin
    ComboBox2.Items.Add(ADOQuery2.FieldByName('TITLE').AsString);
      ADOQuery2.Next;
    end;
    ADOQuery2.Close;
   }
end;

function TForm3.IDExists(s: string): Boolean;
begin
  Result := False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From ZL Where TITLE=' + #39 + s + #39);
  ADOQuery1.Open;
  if ADOQuery1.RecordCount > 0 then
  begin
    Result := True;
    ADOQuery1.Close;
  end
end;



end.