ygbmdd.pas

服务信息管理系统

unit ygbmdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LbSpeedButton, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  ComCtrls;

type
  Tfrmygbmdd = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ButtonOk: TLbSpeedButton;
    ButtonCancel: TLbSpeedButton;
    dxButtonEdit: TdxButtonEdit;
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxButtonEditButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure ButtonOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmygbmdd: Tfrmygbmdd;
  ygbmdd_bmbh, ygbmdd_selectbmbh: string;
implementation

uses ygdagl, bmmlcx;

{$R *.dfm}

procedure Tfrmygbmdd.ButtonCancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrmygbmdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmygbmdd := nil;
end;

procedure Tfrmygbmdd.dxButtonEditButtonClick(Sender: TObject; AbsoluteIndex: Integer);
begin
  frmbmmlcx := Tfrmbmmlcx.Create(Self);
  with frmbmmlcx do
    begin
      bmmlcx_cxlx := 'ygbmdd';
      ShowModal;
    end;
end;

procedure Tfrmygbmdd.ButtonOkClick(Sender: TObject);
var
  lsbl_x: integer;
begin
  if edit1.Text <> dxButtonedit.Text then
    begin
      try
        frmygdagl.ygxxQuery.Edit;
        frmygdagl.ygxxQuery.FieldByName('yg_bmbh').AsString := ygbmdd_bmbh;
        frmygdagl.ygxxQuery.Post;
        for lsbl_x := 0 to frmygdagl.bmmlView.Items.Count - 1 do
          begin
            if frmygdagl.bmmlView.Items[lsbl_x].Text = ygbmdd_selectbmbh then
              begin
                frmygdagl.bmmlView.selected.MoveTo(frmygdagl.bmmlView.Items[lsbl_x], naAddChild);
                Break;
              end;
          end;
        Close;
      except
        MessageDlg('数据保存失败', mtError, [mbOk], 0);
        exit;
      end;
    end;
end;

end.