setting.pas

管理车队用车记录

unit setting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm_setting = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    BitBtn1: TBitBtn;
    BitBtn_cancle: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn_cancleClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_setting: TForm_setting;

implementation
 uses dm;
{$R *.dfm}

procedure TForm_setting.FormShow(Sender: TObject);
begin
with form_dm.adotable_params  do
begin
   open;
   edit1.Text:=floattostr(fieldbyname('ld').asfloat);
   edit2.Text:=floattostr(fieldbyname('sjf').asfloat);
   edit3.Text:=floattostr(fieldbyname('snj').asfloat);
   edit4.Text:=floattostr(fieldbyname('swj').asfloat);
   edit5.Text:=floattostr(fieldbyname('jyj').asfloat);
   edit6.Text:=floattostr(fieldbyname('jdj').asfloat);
   edit7.Text:=floattostr(fieldbyname('jjj').asfloat);
   close;
end;
end;

procedure TForm_setting.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit2.SetFocus;
end;

procedure TForm_setting.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit3.SetFocus;
end;

procedure TForm_setting.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit4.SetFocus;
end;

procedure TForm_setting.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit6.SetFocus;
end;

procedure TForm_setting.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit7.SetFocus;
end;

procedure TForm_setting.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit5.SetFocus;
end;

procedure TForm_setting.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
if key = #13 then
edit1.SetFocus;
end;

end;

procedure TForm_setting.BitBtn_cancleClick(Sender: TObject);
begin
close;
end;

procedure TForm_setting.BitBtn1Click(Sender: TObject);
begin
  with form_dm.adotable_params  do
begin
    open;
    edit;
    fieldbyname('sjf').asfloat:=strtofloat(edit2.Text);
    fieldbyname('snj').asfloat:=strtofloat(edit3.Text);
    fieldbyname('swj').asfloat:=strtofloat(edit4.Text);
    fieldbyname('jyj').asfloat:=strtofloat(edit5.Text);
    fieldbyname('jdj').asfloat:=strtofloat(edit6.Text);
    fieldbyname('jjj').asfloat:=strtofloat(edit7.Text);
    fieldbyname('ld').asfloat:=strtofloat(edit1.Text);
    post;
    close;
end;
form_setting.OnShow(nil);
showmessage('设置成功！');
end;

end.