delphi+access水电管理系统(一)毕业论文(6)

end.

类型维护界面与代码设计实现

代码设计:
unit ufrmMeter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGridEh, StdCtrls, Buttons, Db, DBTables, ADODB, UCommon,
  DBCtrlsEh, Mask, DBLookupEh, DBCtrls, MyNavEh;

type
  TfrmMeter = class(TForm)
    Panel1: TPanel;
    dsMeter: TDataSource;
    adoMeter: TADOQuery;
    Label23: TLabel;
    Label15: TLabel;
    Label21: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBEditEh9: TDBEditEh;
    DBLookupComboboxEh2: TDBLookupComboboxEh;
    DBEditEh16: TDBEditEh;
    DBLookupComboboxEh3: TDBLookupComboboxEh;
    DBEditEh14: TDBEditEh;
    Label4: TLabel;
    Label16: TLabel;
    Label5: TLabel;
    Label22: TLabel;
    Label11: TLabel;
    Label7: TLabel;
    DBEditEh11: TDBEditEh;
    DBLookupComboboxEh6: TDBLookupComboboxEh;
    DBEditEh7: TDBEditEh;
    DBEditEh1: TDBEditEh;
    DBEditEh6: TDBEditEh;
    DBGridEh3: TDBGridEh;
    MyDBNavigator1: TMyDBNavigator;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    adoMeterMeterNO: TWideStringField;
    adoMeterMultiple: TIntegerField; （科教作文网http://zw.ΝsΕAc.com发布）
    adoMeterWorkShopID: TIntegerField;
    adoMeterPriceID: TIntegerField;
    adoMeterBaseNumber: TIntegerField;
    adoMeterMeterSort: TIntegerField;
    adoMeterType: TWideStringField;
    adoMeterSetupDate: TDateTimeField;
    adoMeterMaxBound: TIntegerField;
    adoMeterSubjoinNumber: TIntegerField;
    adoMeterFitPlace: TWideStringField;
    adoMeterSubWorkShopID: TSmallintField;
    adoMeterSubWorkShop: TStringField;
    adoMeterSubPrice: TStringField;
    adoMeterSubsubWorkShop: TStringField;
    adoMeterSortName: TStringField;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    DBEditEh2: TDBEditEh;
    adoMeterQuota: TBCDField;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBLookupComboboxEh3CloseUp(Sen