把菜单换了一个FORM就出了很多问题，改了半天还不成功

Question

unit s21;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ExtCtrls, Grids, DBGrids, ADODB, StdCtrls, Buttons, ComCtrls,
  Menus;type
  Tfrm_s21 = class(TForm)
    rs: TADODataSet;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    btnsave: TBitBtn;
    btnadd: TBitBtn;
    btnmodify: TBitBtn;
    btndelete: TBitBtn;
    BitBtn1: TBitBtn;
    rs1: TADODataSet;
    Panel3: TPanel;
    Label19: TLabel;
    Edit2: TEdit;
    Label20: TLabel;
    Edit11: TEdit;
    BitBtn2: TBitBtn;
    MainMenu1: TMainMenu;
    s1: TMenuItem;
    s12: TMenuItem;
    s13: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    s2: TMenuItem;
    s3: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    s4: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure s11Click(Sender: TObject);
    procedure s12Click(Sender: TObject);
    procedure s13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure s2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);  
    procedure btnaddClick(Sender: TObject);
    procedure btnmodifyClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure btndeleteClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure N5Click(Sender: TObject);
    procedure s4Click(Sender: TObject);
    procedure s12Click(Sender: TObject);
    procedure s13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure s2Click(Sender: TObject);
    procedure s3Click(Sender: TObject);
    procedure N9Click(Sender: TObject);  
  private
    { Private declarations }
    procedure noinput;
    procedure getinput;
    procedure disprecord;
    procedure saverecord;
  public
    { Public declarations }
    add1:string;
  end;var
  frm_s21: Tfrm_s21;implementationuses main, s11, s12, s13, s31, s32, s33, s34, s35, s36, s37, s57;{$R *.dfm}

Answer 1

呵呵，是哦，太乱了
[Error] s21.pas(116): Overloaded procedure 'N6Click' must be ed with the 'overload' directive
  [Error] s21.pas(117): Overloaded procedure 's2Click' must be ed with the 'overload' directive
  [Error] s21.pas(97): Unsatisfied forward or external declaration: 'Tfrm_s21.N9Click'
  [Error] s21.pas(98): Unsatisfied forward or external declaration: 'Tfrm_s21.N10Click'
  [Error] s21.pas(99): Unsatisfied forward or external declaration: 'Tfrm_s21.N2Click'
  [Error] s21.pas(100): Unsatisfied forward or external declaration: 'Tfrm_s21.N1Click'
  [Error] s21.pas(101): Unsatisfied forward or external declaration: 'Tfrm_s21.N3Click'
  [Error] s21.pas(102): Unsatisfied forward or external declaration: 'Tfrm_s21.N4Click'
  [Error] s21.pas(103): Unsatisfied forward or external declaration: 'Tfrm_s21.N7Click'
  [Error] s21.pas(112): Unsatisfied forward or external declaration: 'Tfrm_s21.N5Click'
  [Error] s21.pas(114): Unsatisfied forward or external declaration: 'Tfrm_s21.s4Click'
  [Error] s21.pas(116): Unsatisfied forward or external declaration: 'Tfrm_s21.N6Click'
  [Error] s21.pas(117): Unsatisfied forward or external declaration: 'Tfrm_s21.s2Click'
  [Error] s21.pas(118): Unsatisfied forward or external declaration: 'Tfrm_s21.s3Click'
  [Fatal Error] account.dpr(19): Could not compile used unit 'program\s21.pas'

Answer 2

你的N6Click s2Click重复定义，你的N9Click N10Click N2Click N1Click N3Click N4Click N7Click N5Click s4Click N6Click s2Click s3Click定义了但没有代码实现。。
给你两条建议：
1.学好英语，并学会自己看懂英文提示
2.当你将一个控件从一个form复制到另一个form时，要将旧代码删干净，并充分考虑有没有重复的代码