parameter_set.pas

delphi的一个开发实例

unit Parameter_Set;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, XPMenu, ToolWin, Buttons, StdCtrls, Grids,
  DBGrids, ImgList,IniFiles;
const
TColumnButtonStyle = (cbsEllipsis);

type
  Tfrm_Parameter_Set = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    Edit7: TLabeledEdit;
    Edit8: TLabeledEdit;
    Edit9: TLabeledEdit;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    GroupBox4: TGroupBox;
    Edit10: TLabeledEdit;
    Edit11: TLabeledEdit;
    Edit12: TLabeledEdit;
    DBGrid4: TDBGrid;
    TabSheet5: TTabSheet;
    GroupBox5: TGroupBox;
    Edit13: TLabeledEdit;
    Edit14: TLabeledEdit;
    Edit15: TLabeledEdit;
    DBGrid5: TDBGrid;
    TabSheet6: TTabSheet;
    GroupBox6: TGroupBox;
    E1: TLabeledEdit;
    E2: TLabeledEdit;
    E3: TLabeledEdit;
    TabSheet7: TTabSheet;
    GroupBox7: TGroupBox;
    Edit19: TLabeledEdit;
    Edit20: TLabeledEdit;
    Edit21: TLabeledEdit;
    DBGrid7: TDBGrid;
    TabSheet8: TTabSheet;
    GroupBox8: TGroupBox;
    Edit22: TLabeledEdit;
    Edit23: TLabeledEdit;
    Edit24: TLabeledEdit;
    DBGrid8: TDBGrid;
    TabSheet9: TTabSheet;
    GroupBox9: TGroupBox;
    Edit25: TLabeledEdit;
    Edit26: TLabeledEdit;
    Edit27: TLabeledEdit;
    DBGrid9: TDBGrid;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel3: TPanel;
    ToolBar2: TToolBar;
    Cmd_X_Add: TSpeedButton;
    Cmd_X_Delete: TSpeedButton;
    Cmd_X_Edit: TSpeedButton;
    Cmd_X_Save: TSpeedButton;
    Cmd_X_Exit: TSpeedButton;
    Panel4: TPanel;
    ToolBar3: TToolBar;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    Panel5: TPanel;
    ToolBar4: TToolBar;
    Cmd_T_Add: TSpeedButton;
    Cmd_T_Delete: TSpeedButton;
    Cmd_T_Edit: TSpeedButton;
    Cmd_T_Save: TSpeedButton;
    Cmd_T_Exit: TSpeedButton;
    Panel6: TPanel;
    ToolBar5: TToolBar;
    Cmd_P_Add: TSpeedButton;
    Cmd_P_Delete: TSpeedButton;
    Cmd_P_Edit: TSpeedButton;
    Cmd_P_Save: TSpeedButton;
    SpeedButton25: TSpeedButton;
    Panel8: TPanel;
    ToolBar7: TToolBar;
    Cmd_C_Add: TSpeedButton;
    Cmd_C_Delete: TSpeedButton;
    Cmd_C_Edit: TSpeedButton;
    Cmd_C_Save: TSpeedButton;
    Cmd_C_Exit: TSpeedButton;
    Panel9: TPanel;
    ToolBar8: TToolBar;
    Cmd_A_Add: TSpeedButton;
    Cmd_A_Delete: TSpeedButton;
    Cmd_A_Edit: TSpeedButton;
    Cmd_A_Save: TSpeedButton;
    Cmd_A_Exit: TSpeedButton;
    Panel10: TPanel;
    ToolBar9: TToolBar;
    Cmd_G_Add: TSpeedButton;
    Cmd_G_Delete: TSpeedButton;
    Cmd_G_Edit: TSpeedButton;
    Cmd_G_Save: TSpeedButton;
    Cmd_G_Exit: TSpeedButton;
    Panel11: TPanel;
    GroupBox10: TGroupBox;
    ImageList1: TImageList;
    ListView1: TListView;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    E4: TLabeledEdit;
    E5: TLabeledEdit;
    E6: TLabeledEdit;
    E7: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    Panel7: TPanel;
    ToolBar6: TToolBar;
    Cmd_Ca_Add: TSpeedButton;
    Cmd_Ca_Delete: TSpeedButton;
    Cmd_Ca_Edit: TSpeedButton;
    Cmd_Ca_Save: TSpeedButton;
    Cmd_Ca_Exit: TSpeedButton;
    DBGrid6: TDBGrid;
    GroupBox11: TGroupBox;
    LabeledEdit8: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    LabeledEdit10: TLabeledEdit;
    Panel12: TPanel;
    ToolBar10: TToolBar;
    Cmd_Br_Add: TSpeedButton;
    Cmd_Br_Delete: TSpeedButton;
    Cmd_Br_Edit: TSpeedButton;
    Cmd_Br_Save: TSpeedButton;
    Cmd_Br_Exit: TSpeedButton;
    DBGrid10: TDBGrid;
    GroupBox12: TGroupBox;
    LabeledEdit11: TLabeledEdit;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    Panel13: TPanel;
    ToolBar11: TToolBar;
    Cmd_M_Add: TSpeedButton;
    Cmd_M_Delete: TSpeedButton;
    Cmd_M_Edit: TSpeedButton;
    Cmd_M_Save: TSpeedButton;
    Cmd_M_Exit: TSpeedButton;
    DBGrid11: TDBGrid;
    GroupBox13: TGroupBox;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    TabSheet13: TTabSheet;
    GroupBox14: TGroupBox;
    LabeledEdit18: TLabeledEdit;
    LabeledEdit19: TLabeledEdit;
    LabeledEdit20: TLabeledEdit;
    DBGrid12: TDBGrid;
    Panel14: TPanel;
    ToolBar12: TToolBar;
    Cmd_Y_Add: TSpeedButton;
    Cmd_Y_Delete: TSpeedButton;
    Cmd_Y_Edit: TSpeedButton;
    Cmd_Y_Save: TSpeedButton;
    Cmd_Y_Exit: TSpeedButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton6: TSpeedButton;
    procedure LabeledEdit3Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Cmd_X_SaveClick(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Cmd_G_AddClick(Sender: TObject);
    procedure Cmd_G_ExitClick(Sender: TObject);
    procedure Cmd_G_SaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure Cmd_X_ExitClick(Sender: TObject);
    procedure Cmd_T_ExitClick(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure Cmd_C_ExitClick(Sender: TObject);
    procedure Cmd_A_ExitClick(Sender: TObject);
    procedure Cmd_X_AddClick(Sender: TObject);
    procedure Cmd_X_EditClick(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure Cmd_X_DeleteClick(Sender: TObject);
    procedure Cmd_T_AddClick(Sender: TObject);
    procedure Cmd_T_SaveClick(Sender: TObject);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure Cmd_T_EditClick(Sender: TObject);
    procedure Cmd_T_DeleteClick(Sender: TObject);
    procedure Cmd_P_AddClick(Sender: TObject);
    procedure DBGrid5CellClick(Column: TColumn);
    procedure Cmd_P_SaveClick(Sender: TObject);
    procedure Cmd_P_EditClick(Sender: TObject);
    procedure Cmd_P_DeleteClick(Sender: TObject);
    procedure DBGrid9CellClick(Column: TColumn);
    procedure Cmd_G_DeleteClick(Sender: TObject);
    procedure Cmd_G_EditClick(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure Cmd_C_SaveClick(Sender: TObject);
    procedure Cmd_C_AddClick(Sender: TObject);
    procedure DBGrid7CellClick(Column: TColumn);
    procedure Cmd_C_EditClick(Sender: TObject);
    procedure Cmd_C_DeleteClick(Sender: TObject);
    procedure Cmd_A_SaveClick(Sender: TObject);
    procedure Cmd_A_AddClick(Sender: TObject);
    procedure DBGrid8CellClick(Column: TColumn);
    procedure Cmd_A_EditClick(Sender: TObject);
    procedure Cmd_A_DeleteClick(Sender: TObject);
    procedure Edit24Change(Sender: TObject);
    procedure Cmd_Ca_AddClick(Sender: TObject);
    procedure Cmd_Br_AddClick(Sender: TObject);
    procedure Cmd_M_AddClick(Sender: TObject);
    procedure Cmd_Ca_SaveClick(Sender: TObject);
    procedure DBGrid6CellClick(Column: TColumn);
    procedure Cmd_Ca_EditClick(Sender: TObject);
    procedure Cmd_Ca_DeleteClick(Sender: TObject);
    procedure Cmd_Br_SaveClick(Sender: TObject);
    procedure DBGrid10CellClick(Column: TColumn);
    procedure Cmd_Br_EditClick(Sender: TObject);
    procedure Cmd_Br_DeleteClick(Sender: TObject);
    procedure Cmd_M_SaveClick(Sender: TObject);
    procedure Cmd_M_EditClick(Sender: TObject);
    procedure Cmd_M_DeleteClick(Sender: TObject);
    procedure DBGrid11CellClick(Column: TColumn);
    procedure DBGrid2EditButtonClick(Sender: TObject);
    procedure Cmd_Y_SaveClick(Sender: TObject);
    procedure Cmd_Y_EditClick(Sender: TObject);
    procedure DBGrid12CellClick(Column: TColumn);
    procedure Cmd_Y_DeleteClick(Sender: TObject);
    procedure Cmd_Y_AddClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Cmd_Ca_ExitClick(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Cmd_Br_ExitClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frm_Parameter_Set: Tfrm_Parameter_Set;
  f:TiniFile;
implementation

uses  IMCode, Data, func;

{$R *.dfm}


{避免让用户移动DBGrid的列，将DBGrid的Dragmode属性设为dmAutomatic。
}    

procedure Tfrm_Parameter_Set.LabeledEdit3Change(Sender: TObject);
begin
    LabeledEdit2.Text:=MakeSpellCode(LabeledEdit3.Text, 4, 255);
end;