【delphi开源代码栏目提醒】：本文主要为网学会员提供JS240Unit.pas，希望对需要JS240Unit.pas网友有所帮助，学习一下!

    unit JS240Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, PublicUnit, jpeg, ExtCtrls, Grids, DBGrids, StdCtrls, DBCtrls,
      Mask, ComCtrls;
    
    type
      TJS240Form = class(TPublicUnit)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        Panel3: TPanel;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        Button6: TButton;
        DBNavigator1: TDBNavigator;
        Panel2: TPanel;
        Label14: TLabel;
        Label51: TLabel;
        Label7: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label1: TLabel;
        Label2: TLabel;
        Label15: TLabel;
        Label22: TLabel;
        Label4: TLabel;
        Label8: TLabel;
        DBComboBox1: TDBComboBox;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit10: TDBMemo;
        DBEdit8: TDBEdit;
        DBGrid2: TDBGrid;
        TabSheet2: TTabSheet;
        DBGrid1: TDBGrid;
        DBComboBox2: TDBComboBox;
        procedure DBComboBox1DropDown(Sender: TObject);
        procedure DBComboBox2DropDown(Sender: TObject);
        procedure DBComboBox1Change(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button6Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        procedure CLS; // 清除控件内容
        procedure ENA; // 所有控件可用
        procedure DIS; //  所有控件不可用
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      JS240Form: TJS240Form;
    
    implementation
    
    uses DMUnit, main;
    {$R *.dfm}
    
    procedure TJS240Form.CLS;
    var
      i: Integer;
    begin
      for i := ComponentCount - 1 downto 0 do
      begin
          {--- 清除所有的TDBEdit控件的内容  ---}
        if (Components[i] is TDBEDIT) then
          TDBEDIT(components[i]).Clear;
          {--- 清除所有的TDBComboBox控件的内容  ---}
        if (Components[i] is TDBComboBox) then
          TDBComboBox(components[i]).Clear;
        if (Components[i] is TDBCheckBox) then
          TDBCheckBox(components[i]).Checked := False;
          {--- 清除所有的TDBMemo控件的内容  ---}
        if (Components[i] is TDBMemo) then
          TDBMemo(components[i]).Clear;
      end;
    end;
    
    procedure TJS240Form.ENA; // 新增记录的时候使所有的控件可用
    var
      i: Integer;
    begin
      for i := ComponentCount - 1 downto 0 do
      begin
        if (components[i] is TDBEdit) then
        begin {--- 使所有的TDBEdit控件可用  ---}
          TDBEdit(components[i]).Color := clwindow;
          TDBEdit(components[i]).ReadOnly := false;
        end;
        if (components[i] is TDBComboBox) then
        begin {--- 使所有的TDBComboBox控件可用  ---}
          TDBComboBox(components[i]).Color := clWindow;
        end;
        if (Components[i] is TDBCheckBox) then
          TDBCheckBox(components[i]).Enabled := True;
        if (components[i] is TDBMemo) then
        begin {--- 使所有的TDBMemo控件可用  ---}
          TDBMemo(components[i]).Color := clwindow;
          TDBMemo(components[i]).ReadOnly := false;
        end;
      end;
      Button1.Enabled := False; //  '新增'不可用
      Button2.Enabled := False; //  '编辑'不可用
      Button3.Enabled := True; //  '储存'可用
      Button4.Enabled := True; //  '取消'可用
    end;
    
    procedure TJS240Form.DIS;
    var
      i: Integer;
    begin
      for i := ComponentCount - 1 downto 0 do
      begin // 使所有的TDBEdit控件不可用
        if (components[i] is TDBEdit) then
        begin //  改变TDBEdit控件的颜色
          TDBEdit(components[i]).Color := $00D8D8D8;
          TDBEdit(components[i]).ReadOnly := true;
        end;
        if (components[i] is TDBComboBox) then
        begin //  改变TDBEdit控件的颜色
          TDBComboBox(components[i]).Color := $00D8D8D8;
        end;
        if (Components[i] is TDBCheckBox) then
          TDBCheckBox(components[i]).Enabled := False;
        if (components[i] is TDBMemo) then
        begin //  改变TDBEdit控件的颜色
          TDBMemo(components[i]).Color := $00D8D8D8;
          TDBMemo(components[i]).ReadOnly := true;
        end;
      end;
      Button1.Enabled := True; //  '新增'可用
      Button2.Enabled := True; //  '编辑'可用
      Button3.Enabled := False; //  '储存'不可用
      Button4.Enabled := False; //  '取消'不可用
    end;
    
    procedure TJS240Form.DBComboBox1DropDown(Sender: TObject);
    var
      I: Integer;
    begin
      inherited;
      DBComboBox1.Clear;
      with DM.Querytemp do
      begin
        SQL.clear;
        SQl.Text := 'select 委托单号 from 货运作业总表 ';
        Close;
        Active := False;
        prepared := False;
        prepared := True;
        Active := True;
        if (recordcount > 0) then
          first;
        for i := 0 to recordcount - 1 do
        begin {--- 取得该列所有的数据到combobox1控件中 ---}
          DBComboBox1.Items.add(FieldByName('委托单号').asstring);
          next;
        end;
      end;
    end;
    
    procedure TJS240Form.DBComboBox2DropDown(Sender: TObje