clientunit.pas

如果您在试用或使用过程中认为软件需修改

unit clientUnit;

interface

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

type
  TClientForm = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    Panel2: TPanel;
    Label6: TLabel;
    Label8: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    TS_ID: TDBEdit;
    TS_User: TDBEdit;
    UserTel: TDBEdit;
    AddRess: TDBEdit;
    chargeItemNum: TDBEdit;
    Com_Person: TDBEdit;
    TS_Memo: TDBMemo;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Page1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel4: TPanel;
    Panel5: TPanel;
    Label2: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBGrid2: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    Label19: TLabel;
    DBEdit9: TDBEdit;
    Label20: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label21: TLabel;
    DBEdit12: TDBEdit;
    Label22: TLabel;
    DBEdit13: TDBEdit;
    Label23: TLabel;
    DBEdit14: TDBEdit;
    Label24: TLabel;
    DBEdit15: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label25: TLabel;
    DBEdit16: TDBEdit;
    Label26: TLabel;
    DBEdit17: TDBEdit;
    Label27: TLabel;
    DBEdit18: TDBEdit;
    Label28: TLabel;
    DBEdit19: TDBEdit;
    Label29: TLabel;
    DBMemo2: TDBMemo;
    Panel6: TPanel;
    DBGrid3: TDBGrid;
    SpeedButton4: TSpeedButton;
    Panel7: TPanel;
    DBGrid4: TDBGrid;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label39: TLabel;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBMemo3: TDBMemo;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    procedure CheckStr(Sender: TObject; Name: string);
    procedure FormCreate(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure Page1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientForm: TClientForm;

implementation

uses udm, dateUnit, selectTextUnit, SelectDataUnit;
{$R *.dfm}

procedure TClientForm.CheckStr(Sender: TObject; Name: string);
begin
  if Trim((sender as Tdbedit).Text) = '' then
  begin
    ShowMessage(Name + ': 此栏必须填写信息!');
    (Sender as TDBEdit).SetFocus;
  end;
end;

procedure TClientForm.FormCreate(Sender: TObject);
begin
  caption := '住户资料录入';
  page1.TabIndex := 0; // 初始化，选项卡显示第一个
end;

procedure TClientForm.btaddClick(Sender: TObject);
var
  NewID: string;
begin
  try
    case page1.ActivePageIndex of
      0:
        begin
          adodm.client.Last; //返到记录的最后一个
          NewID := IntToStr(adodm.client.FieldByName('住户编号').AsInteger + 1);
            //新记录的编号
          adodm.client.Append; //增加新记录
          TS_ID.Text := NewID; //把新记录的编号
        end;
      1:
        begin
          adodm.ttemp.Append;
            //当追加新记录的时候，把当前记录的编号和名称自动输入
          DBedit9.Text := adodm.client.FieldByName('住户编号').AsString;
          DBedit10.Text := adodm.client.FieldByName('住户名称').AsString;
        end;
      2:
        begin
          adodm.search1.Append;
            //当追加新记录的时候，把当前记录的编号和名称自动输入
          DBedit12.Text := adodm.client.FieldByName('住户编号').AsString;
          DBedit11.Text := adodm.client.FieldByName('住户名称').AsString;
        end;
      3:
        begin
          adodm.ClientFamily.Append;
            //当追加新记录的时候，把当前记录的编号和名称自动输入
          DBedit14.Text := adodm.client.FieldByName('住户编号').AsString;
          DBedit13.Text := adodm.client.FieldByName('住户名称').AsString;
        end;
    end;
  except
    showmessage('产生例外错误，请联系我们');
  end;
end;

procedure TClientForm.btokClick(Sender: TObject);
begin
  try
    case page1.ActivePageIndex of
      0:
        begin
          CheckStr(TS_ID, '住户编号'); //检查不能够为空的项目
          CheckStr(TS_user, '住户名称');
          CheckStr(UserTel, '联系电话');
          CheckStr(Address, '联系电话'); //检查不能够为空的项目
          adodm.client.Post; //提交新记录
        end;
      1:
        begin
          CheckStr(DBEdit9, '住户编号'); //检查不能够为空的项目
          CheckStr(DBEdit10, '住户名称');
          CheckStr(DBEdit15, '使用状况');
          CheckStr(DBEdit1, '小区名称'); //检查不能够为空的项目
          CheckStr(DBEdit2, '楼宇名称');
          CheckStr(DBEdit3, '楼层');
          CheckStr(DBEdit4, '房屋号'); //检查不能够为空的项目
          CheckStr(DBEdit5, '单元');
          CheckStr(DBEdit6, '迁入日期');
          CheckStr(DBEdit8, '房型'); //检查不能够为空的项目
          adodm.ttemp.Post;
        end;
      2:
        begin
          CheckStr(DBEdit12, '住户编号'); //检查不能够为空的项目
          CheckStr(DBEdit11, '住户名称');
          CheckStr(DBEdit20, '收费名称');
          CheckStr(DBEdit23, '定额用量');
          CheckStr(DBEdit24, '定额内价格');
          CheckStr(DBEdit25, '超定额价格'); //检查不能够为空的项目
          adodm.search1.Post;
        end;
      3:
        begin
          CheckStr(DBEdit14, '住户编号'); //检查不能够为空的项目
          CheckStr(DBEdit13, '住户名称');
          CheckStr(DBEdit16, '姓名');
          CheckStr(DBEdit17, '性别');
          CheckStr(DBEdit18, '生日');
          CheckStr(DBEdit19, '称谓'); //检查不能够为空的项目
          adodm.ClientFamily.Post;
        end;
    end;

  except
    showmessage('产生例外错误，请联系我们');
  end;
end;

procedure TClientForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0)
    = mrYes then
  begin
    try
      case page1.ActivePageIndex of
        0: adodm.client.Delete; //删除当前记录
        1: adodm.Ttemp.Delete;
        2: adodm.search1.Delete;
        3: adodm.ClientFamily.Delete;
      end;
    except
      showmessage('产生例外错误，请联系我们');
    end;
  end;
end;

procedure TClientForm.btno1Click(Sender: TObject);
begin