module.pas

delphi控件相关 ADOcon ADOQUery DBGrid

unit module;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    btn_view: TButton;
    btn_add: TButton;
    btn_edit: TButton;
    btn_del: TButton;
    btn_quit: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    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;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    enable: TEdit;
    part_num: TEdit;
    manu_num: TEdit;
    name: TEdit;
    site: TEdit;
    id: TEdit;
    add_sectA: TEdit;
    add_sectB: TEdit;
    add_sectC: TEdit;
    add_sectD: TEdit;
    port: TEdit;
    in_ch: TEdit;
    in_bits: TEdit;
    in_min_interval: TEdit;
    out_ch: TEdit;
    out_bits: TEdit;
    out_max_estb: TEdit;
    operate_mode: TEdit;
    db_site: TEdit;
    db_id: TEdit;
    type_code: TEdit;
    procedure btn_viewClick(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure btn_editClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure btn_quitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_viewClick(Sender: TObject);

  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from module order by module_id');
    adoquery1.Open;

  end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
  begin
      self.id.Tag:=self.DBGrid1.Fields[5].Value;
      self.id.Text :=self.DBGrid1.Fields[5].Value;
      self.enable.Text:=self.DBGrid1.Fields[0].Value;
      self.part_num.Text:=self.DBGrid1.Fields[1].Value;
      self.manu_num.Text:=self.DBGrid1.Fields[2].Value;
      self.name.Text:=self.DBGrid1.Fields[3].Value;
      self.site.Text:=self.DBGrid1.Fields[4].Value;
      self.add_sectA.Text:=self.DBGrid1.Fields[6].Value;
      self.add_sectB.Text:=self.DBGrid1.Fields[7].Value;
      self.add_sectC.Text:=self.DBGrid1.Fields[8].Value;
      self.add_sectD.Text:=self.DBGrid1.Fields[9].Value;
      self.port.Text:=self.DBGrid1.Fields[10].Value;
      self.in_ch.Text:=self.DBGrid1.Fields[11].Value;
      self.in_bits.Text:=self.DBGrid1.Fields[12].Value;
      self.in_min_interval.Text:=self.DBGrid1.Fields[13].Value;
      self.out_ch.Text:=self.DBGrid1.Fields[14].Value;
      self.out_bits.Text:=self.DBGrid1.Fields[15].Value;
      self.out_max_estb.Text:=self.DBGrid1.Fields[16].Value;
      self.operate_mode.Text:=self.DBGrid1.Fields[17].Value;
      self.db_site.Text:=self.DBGrid1.Fields[19].Value;
      self.db_id.Text:=self.DBGrid1.Fields[20].Value;
      self.type_code.Text:=self.DBGrid1.Fields[21].Value;

  inherited;
  end;

procedure TForm1.btn_addClick(Sender: TObject);
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    if(strtoint(id.text)<>3) then
      begin
      MessageBox(Handle, 'module_id填写不正确！', '信息', MB_ICONEXCLAMATION);
      exit;
      end;
      adoquery1.SQL.Add('insert into module(module_enable,module_part_num,module_manu_num,module_name,'
                       +'module_site,module_id,module_address_sectA,module_address_sectB,'
                       +'module_address_sectC,module_address_sectD,module_port,module_in_ch,'
                       +'module_in_bits,module_in_min_interval,module_out_ch,module_out_bits,'
                       +'module_out_max_estb,module_operate_mode,last_upd_db_site,'
                       +'last_upd_db_id,rstat_type_code'
                       +')values('''+enable.Text+''','''+part_num.Text+''','''+manu_num.Text+''','''+name.Text+''','
                       +''''+site.Text+''','+id.Text+','''+add_sectA.Text+''','''+add_sectB.Text+''','
                       +''''+add_sectC.Text+''','''+add_sectD.Text+''','''+port.Text+''','''+in_ch.Text+''','
                       +''''+in_bits.Text+''','''+in_min_interval.Text+''','''+out_ch.Text+''','''+out_bits.Text+''','
                       +''''+out_max_estb.Text+''','''+operate_mode.Text+''','''+db_site.Text+''','
                       +''''+db_id.Text+''','''+type_code.Text+''')');
     adoquery1.ExecSQL;



  end;



procedure TForm1.btn_editClick(Sender: TObject);
  begin
    
      adoquery1.Close;
      adoquery1.SQL.Clear;

      adoquery1.SQL.Add('update module set module_enable='+enable.Text+','
                       +'module_part_num='+part_num.Text+','
                       +'module_manu_num='+manu_num.Text+','
                       +'module_name='''+name.Text+''','
                       +'module_site='+part_num.Text+','
                       +'module_address_sectA='+add_sectA.Text+','
                       +'module_address_sectB='+add_sectB.Text+','
                       +'module_address_sectC='+add_sectC.Text+','
                       +'module_address_sectD='+add_sectD.Text+','
                       +'module_port='+port.Text+','
                       +'module_in_ch='+in_ch.Text+','
                       +'module_in_bits='+in_bits.Text+','
                       +'module_in_min_interval='+in_min_interval.Text+','
                       +'module_out_ch='+out_ch.Text+','
                       +'module_out_bits='+out_bits.Text+','
                       +'module_out_max_estb='+out_max_estb.Text+','
                       +'module_operate_mode='+operate_mode.Text+','
                       +'last_upd_db_site='+db_site.Text+','
                       +'last_upd_db_id='+db_id.Text+','
                       +'rstat_type_code='+type_code.Text+' where module_id='+id.Text+'');

      adoquery1.ExecSQL ;
  end;

procedure TForm1.btn_delClick(Sender: TObject);
  begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
       if MessageBox(Handle, '您确定要删除该学生信息', '信息',
         MB_ICONQUESTION or MB_OKCANCEL) = IDCancel then
       begin
       exit;
       end;
       adoquery1.SQL.Add('delete from module where module_id='''+id.Text+'''');
       adoquery1.ExecSQL;

  end;


procedure TForm1.btn_quitClick(Sender: TObject);
  begin
     close;
  end;



end.