djjcom.~pas

用delphi串口技术写成的土工试验自动衡量模块

unit djjcom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, SPComm,idglobal, Buttons, Grids, DBGrids, DB,
  DBTables, DBCtrls;

      procedure senddata;

  type
  TForm1 = class(TForm)
    Comm1: TComm;
    Shape3: TShape;
    Memo2: TMemo;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label12: TLabel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label11: TLabel;
    Bevel4: TBevel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Bevel7: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    Bevel1: TBevel;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox4: TGroupBox;
    CheckBox28: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    CheckBox31: TCheckBox;
    CheckBox32: TCheckBox;
    CheckBox33: TCheckBox;
    CheckBox34: TCheckBox;
    CheckBox35: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox37: TCheckBox;
    CheckBox38: TCheckBox;
    CheckBox39: TCheckBox;
    CheckBox40: TCheckBox;
    CheckBox41: TCheckBox;
    CheckBox42: TCheckBox;
    CheckBox43: TCheckBox;
    CheckBox44: TCheckBox;
    CheckBox45: TCheckBox;
    GroupBox5: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label9: TLabel;
    Label27: TLabel;
    Edit4: TEdit;
    GroupBox6: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Label28: TLabel;
    Label29: TLabel;
    ComboBox14: TComboBox;
    ComboBox15: TComboBox;
    Label30: TLabel;
    Label31: TLabel;
    BitBtn8: TBitBtn;
    Bevel9: TBevel;
    GroupBox7: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    DataSource1: TDataSource;
    Table1: TTable;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label7: TLabel;
    SpeedButton1: TSpeedButton;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner1: TStringField;
    Table1W_1: TFloatField;
    Table1BDEDesigner22: TStringField;
    Table1W_2: TFloatField;
    Table1BDEDesigner3: TStringField;
    Table1W_3: TFloatField;
    Table1P_1: TFloatField;
    Table1BDEDesigner13: TFloatField;
    Table1P_2: TFloatField;
    Table1BDEDesigner24: TFloatField;
    Table1P_3: TFloatField;
    Table1BDEDesigner33: TFloatField;
    Table1P_4: TFloatField;
    Table1BDEDesigner42: TFloatField;
    Table1P_5: TFloatField;
    Table1BDEDesigner52: TFloatField;
    Table1P_6: TFloatField;
    Table1BDEDesigner62: TFloatField;
    Table1P_7: TFloatField;
    Table1BDEDesigner72: TFloatField;
    Table1P_8: TFloatField;
    Table1BDEDesigner82: TFloatField;
    Table1P_9: TFloatField;
    Table1BDEDesigner92: TFloatField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner14: TStringField;
    Table1BDEDesigner15: TStringField;
    Table1BDEDesigner16: TStringField;
    Table1BDEDesigner17: TStringField;
    Table1BDEDesigner18: TStringField;
    Table1BDEDesigner19: TStringField;
    Table1BDEDesigner20: TStringField;
    Table1BDEDesigner21: TStringField;
    Table1BDEDesigner25: TStringField;
    Table1BDEDesigner26: TStringField;
    Table1BDEDesigner27: TStringField;
    Table1BDEDesigner28: TDateField;
    DataSource2: TDataSource;
    Table2: TTable;
    ComboBox16: TComboBox;
    ComboBox17: TComboBox;
    Panel2: TPanel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    DBText14: TDBText;
    DBText15: TDBText;
    DBText16: TDBText;
    DBText17: TDBText;
    DBText18: TDBText;
    BitBtn4: TBitBtn;
    Label8: TLabel;
    DBText19: TDBText;
    DBText20: TDBText;
    Label32: TLabel;
    Label33: TLabel;
    Bevel8: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner12: TFloatField;
    Table2BDEDesigner23: TFloatField;
    Table2BDEDesigner32: TFloatField;
    Table2BDEDesigner42: TFloatField;
    Table2BDEDesigner52: TFloatField;
    Table2BDEDesigner62: TFloatField;
    Table2BDEDesigner72: TFloatField;
    Table2BDEDesigner82: TFloatField;
    Table2BDEDesigner92: TFloatField;
    Table2BDEDesigner10: TStringField;
    Table1BDEDesigner11: TStringField;
    Table1BDEDesigner12: TStringField;
    Table1BDEDesigner23: TStringField;
    Table1BDEDesigner32: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TStringField;
    Table2BDEDesigner1: TStringField;
    Table2BDEDesigner22: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner5: TStringField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TStringField;
    Table2BDEDesigner8: TStringField;
    Table2BDEDesigner9: TStringField;
    CheckBox46: TCheckBox;
    CheckBox47: TCheckBox;
    CheckBox48: TCheckBox;
    CheckBox49: TCheckBox;
    CheckBox50: TCheckBox;
    CheckBox51: TCheckBox;
    CheckBox52: TCheckBox;
    CheckBox53: TCheckBox;
    CheckBox54: TCheckBox;
    SpeedButton2: TSpeedButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    CheckBox55: TCheckBox;
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure ComboBox17Change(Sender: TObject);
    procedure ComboBox16Change(Sender: TObject);
    procedure ComboBox16Exit(Sender: TObject);
    procedure ComboBox17KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox16KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure CheckBox55Click(Sender: TObject);
  private