khgjxxbj.pas

服务信息管理系统

unit khgjxxbj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, ComCtrls, Buttons, DB, DBCtrls, Grids,
  DBGrids, fcCombo, fcCalcEdit, ToolEdit, CurrEdit;

type
  Tfrmkhgjxxbj = class(TForm)
    BitBtnOK: TBitBtn;
    BitBtnCancel: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    jqxhEdit: TLabeledEdit;
    xlhEdit: TLabeledEdit;
    bzEdit: TLabeledEdit;
    Label2: TLabel;
    djEdit: TCurrencyEdit;
    slEdit: TCurrencyEdit;
    gjrqEdit: TDateEdit;
    lrEdit: TCurrencyEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    zbsjEdit: TCurrencyEdit;
    Label6: TLabel;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtnOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkhgjxxbj: Tfrmkhgjxxbj;
  khgjxxbj_zt: string;

implementation
uses khzlbj;
{$R *.dfm}

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

procedure Tfrmkhgjxxbj.BitBtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrmkhgjxxbj.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      key := #0;
      SelectNext(ActiveControl, True, True);
    end;
end;

procedure Tfrmkhgjxxbj.BitBtnOKClick(Sender: TObject);
begin
  if jqxhEdit.Text = '' then
    begin
      MessageDlg('请输入机器型号', mtError, [mbOk], 0);
      jqxhEdit.SetFocus;
      Exit;
    end;
  with frmkhzlbj.KhgjTable do
    begin
      if khgjxxbj_zt = 'khbjxxAdd' then
        Append
      else
        Edit;
      FieldByName('gj_khbh').AsString := khxx_ybh;
      FieldByName('gj_gjrq').AsString := gjrqEdit.Text;
      FieldByName('gj_jqxh').AsString := Trim(jqxhEdit.Text);
      FieldByName('gj_jxlh').AsString := Trim(xlhEdit.Text);
      FieldByName('gj_jqdj').AsFloat := djEdit.value;
      FieldByName('gj_jqsl').AsFloat := slEdit.value;
      FieldByName('gj_lr').AsFloat := lrEdit.value;
      FieldByName('gj_zbsj').AsFloat := zbsjEdit.value;
      FieldByName('gj_bz').AsString := Trim(bzEdit.Text);
    end;
  frmkhzlbj.BitBtnsave.Enabled := True;
  if khgjxxbj_zt = 'khbjxxAdd' then
    begin
      gjrqEdit.Text := '';
      jqxhEdit.Text := '';
      xlhEdit.Text := '';
      djEdit.Text := '';
      slEdit.Text := '';
      lrEdit.text := '';
      zbsjEdit.Text := '';
      bzEdit.Text := '';
      gjrqEdit.SetFocus;
    end;
end;

procedure Tfrmkhgjxxbj.FormShow(Sender: TObject);
begin
  if khgjxxbj_zt = 'khbjxxAdd' then
    begin
      frmkhgjxxbj.Caption := '客户购机信息增加';
      Panel2.Visible := False;
      frmkhgjxxbj.Height := 293;
      BitBtnOk.Top := BitBtnOk.Top - 30;
      BitBtnCancel.Top := BitBtnCancel.Top - 30;
    end
  else
    begin
      frmkhgjxxbj.Caption := '客户购机信息修改';
      with frmkhzlbj.KhgjTable do
        begin
          gjrqEdit.Text := FieldByName('gj_gjrq').AsString;
          jqxhEdit.Text := FieldByName('gj_jqxh').AsString;
          xlhEdit.Text := FieldByName('gj_jxlh').AsString;
          djEdit.value := FieldByName('gj_jqdj').AsFloat;
          slEdit.value := FieldByName('gj_jqsl').AsFloat;
          lrEdit.value := FieldByName('gj_lr').AsFloat;
          zbsjEdit.value := FieldByName('gj_zbsj').AsFloat;
          bzEdit.Text := FieldByName('gj_bz').AsString;
        end;
    end;
end;

procedure Tfrmkhgjxxbj.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
  if (Button = nbFirst) or (Button = nbPrior) or (Button = nbNext) or (Button = nbLast) then
    begin
      if khgjxxbj_zt = 'khbjxxEdit' then
        begin
          with frmkhzlbj.KhgjTable do
            begin
              gjrqEdit.Text := FieldByName('gj_gjrq').AsString;
              jqxhEdit.Text := FieldByName('gj_jqxh').AsString;
              xlhEdit.Text := FieldByName('gj_jxlh').AsString;
              djEdit.value := FieldByName('gj_jqdj').AsFloat;
              slEdit.value := FieldByName('gj_jqsl').AsFloat;
              lrEdit.value := FieldByName('gj_lr').AsFloat;
              zbsjEdit.value := FieldByName('gj_zbsj').AsFloat;
              bzEdit.Text := FieldByName('gj_bz').AsString;
            end;
        end;
    end;
end;

end.