【delphi开源代码栏目提醒】：网学会员为广大网友收集整理了，InoutForm.pas，希望对大家有所帮助！

    unit InoutForm;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, ExtCtrls, StdCtrls, Grids, DBGrids;
    
    type
      TFrmInout = class(TForm)
        Panel1: TPanel;
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        GroupBox2: TGroupBox;
        Label3: TLabel;
        Label4: TLabel;
        Edit3: TEdit;
        Edit4: TEdit;
        Label5: TLabel;
        Edit5: TEdit;
        GroupBox3: TGroupBox;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        Label7: TLabel;
        Edit6: TEdit;
        Label8: TLabel;
        Edit7: TEdit;
        GroupBox4: TGroupBox;
        Label6: TLabel;
        ComboBox1: TComboBox;
        RadioButton3: TRadioButton;
        RadioButton4: TRadioButton;
        DBGrid1: TDBGrid;
        Timer1: TTimer;
        Label9: TLabel;
        btAdd: TButton;
        btSearch: TButton;
        Memo1: TMemo;
        DBGrid2: TDBGrid;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure Timer1Timer(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
        procedure RadioButton4Click(Sender: TObject);
        procedure btAddClick(Sender: TObject);
        procedure btSearchClick(Sender: TObject);
        procedure PageControl1Change(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmInout: TFrmInout;
    
    implementation
    uses DataM,MainFrm;
    {$R *.dfm}
    
    procedure TFrmInout.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      FrmMain.Show;
    end;
    
    procedure TFrmInout.Timer1Timer(Sender: TObject);
    begin
      Label9.Caption:=DateTimeToStr(Now);
    end;
    
    procedure TFrmInout.RadioButton1Click(Sender: TObject);
    begin
      if RadioButton3.Checked then
      begin
        Edit1.Enabled:=False;
        Edit2.Enabled:=False;
        Edit5.Enabled:=False;
        Edit3.Enabled:=False;
        Edit4.Enabled:=False;
        Edit6.ReadOnly:=True;
        Edit7.ReadOnly:=True;
      end
      else if RadioButton4.Checked then
      begin
        Edit1.Enabled:=True;
        Edit2.Enabled:=True;
        Edit5.Enabled:=True;
        Edit3.Enabled:=False;
        Edit4.Enabled:=False;
        Edit6.ReadOnly:=True;
        Edit7.ReadOnly:=True;
      end;
    
    
    end;
    
    procedure TFrmInout.RadioButton2Click(Sender: TObject);
    begin
      if RadioButton3.Checked then
      begin
        Edit1.Enabled:=False;
        Edit2.Enabled:=False;
        Edit5.Enabled:=False;
        Edit3.Enabled:=False;
        Edit4.Enabled:=False;
        Edit6.ReadOnly:=True;
        Edit7.ReadOnly:=True;
      end
      else if RadioButton4.Checked then
      begin
        Edit1.Enabled:=False;
        Edit2.Enabled:=False;
        Edit5.Enabled:=False;
        Edit3.Enabled:=True;
        Edit4.Enabled:=True;
        Edit6.ReadOnly:=True;
        Edit7.ReadOnly:=True;
      end;
    end;
    
    procedure TFrmInout.FormCreate(Sender: TObject);
    begin
      Data.ADOQInOut.Close;
      Data.ADOQInOut.SQL.Clear;
      Data.ADOQInOut.SQL.Add('select * from InOut');
      Data.DataSInOut.DataSet:=Data.ADOQInOut;
      Data.ADOQInOut.Open;
      Edit1.Enabled:=True;
      Edit2.Enabled:=True;
      Edit5.Enabled:=True;
      Edit6.ReadOnly:=True;
      Edit7.ReadOnly:=True;
      Edit3.Enabled:=False;
      Edit4.Enabled:=False;
      Label9.Caption:=DateTimeToStr(Now);
    end;
    
    procedure TFrmInout.RadioButton3Click(Sender: TObject);
    begin
        if RadioButton1.Checked then
        begin
          Edit6.ReadOnly:=False;
          Edit7.ReadOnly:=False;
          Edit1.Enabled:=False;
          Edit2.Enabled:=False;
          Edit3.Enabled:=False;
          Edit4.Enabled:=False;
          Edit5.Enabled:=False;
        end
        else if RadioButton2.Checked then
        begin
          Edit6.ReadOnly:=False;
          Edit7.ReadOnly:=False;
          Edit1.Enabled:=False;
          Edit2.Enabled:=False;
          Edit3.Enabled:=False;
          Edit4.Enabled:=False;
          Edit5.Enabled:=False;
        end;
    end;
    
    procedure TFrmInout.RadioButton4Click(Sender: TObject);
    begin
        if RadioButton1.Checked then
        begin
          Edit6.ReadOnly:=True;
          Edit7.ReadOnly:=True;
          Edit1.Enabled:=True;
          Edit2.Enabled:=True;
          Edit3.Enabled:=False;
          Edit4.Enabled:=False;
          Edit5.Enabled:=True;
        end
        else if RadioButton2.Checked then
        begin
          Edit6.ReadOnly:=True;
          Edit7.ReadOnly:=True;
          Edit1.Enabled:=False;
          Edit2.Enabled:=False;
          Edit3.Enabled:=True;
          Edit4.Enabled:=True;
          Edit5.Enabled:=False;
        end;
    end;
    
    procedure TFrmInout.btAddClick(Sender: TObject);
    begin
      if RadioButton1.Checked then
      begin
        if RadioButton3.Checked then
        begin
          Data.ADOQInOut.Close;
          Data.ADOQInOut.SQL.Clear;
          Data.ADOQInOut.SQL.Add('select * from InOut where ID='+Edit6.Text);
          Data.ADOQ