fpar.pas

一个很好的例子

unit fpar;

interface

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

type
  TF_par = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    tabsheet1: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit8: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit14KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit16KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_par: TF_par;

implementation
  uses fdata;
{$R *.dfm}

procedure TF_par.SpeedButton1Click(Sender: TObject);
begin
  Datamodule3.parqy.Edit;
  With Datamodule3.parse.DataSet do
  begin
    Fields[0].AsString:=Trim(Edit1.Text);
    Fields[3].AsString:=Trim(Edit2.Text);
    FIelds[4].AsString:=Trim(Edit3.Text);
    Fields[5].Asstring:=Trim(Edit4.Text);
    Fields[1].AsString:=Trim(Edit5.Text);
  end;
  if radiobutton1.Checked=true then
    datamodule3.parse.DataSet.Fields[1].AsString:='0';
  if radiobutton2.Checked=true then
    datamodule3.parse.DataSet.Fields[1].AsString:='1';
  Datamodule3.parqy.Post;
end;


procedure TF_par.SpeedButton2Click(Sender: TObject);
begin
  Datamodule3.hotqy.Edit;
  With datamodule3.hotse.DataSet do
  begin
    Fields[7].AsString:=Trim(Edit6.Text);
    Fields[8].AsString:=Trim(Edit7.Text);
    FIelds[9].AsString:=Trim(Edit8.Text);
    Fields[10].Asstring:=Trim(Edit9.Text);
    Fields[0].AsString:=Trim(Edit10.Text);
    Fields[1].AsString:=Trim(Edit11.Text);
    Fields[2].AsString:=Trim(Edit12.Text);
    FIelds[3].AsString:=Trim(Edit13.Text);
    Fields[6].AsString:=Trim(Edit15.Text);
  end;
  Datamodule3.hotqy.Post;
end;

procedure TF_par.FormShow(Sender: TObject);
begin
  With Datamodule3.parse.DataSet do
  begin
    Edit1.Text:=Fields[0].AsString;
    Edit2.Text:=Fields[3].AsString;
    Edit3.Text:=FIelds[4].AsString;
    Edit4.Text:=Fields[5].Asstring;
    Edit5.Text:=Fields[1].AsString;
  end;
  With datamodule3.hotse.DataSet do
  begin
    Edit6.Text:=Fields[7].AsString;
    Edit7.Text:=Fields[8].AsString;
    Edit8.Text:=FIelds[9].AsString;
    Edit9.Text:=Fields[10].Asstring;
    Edit10.Text:=Fields[0].AsString;
    Edit11.Text:=Fields[1].AsString;
    Edit12.Text:=Fields[2].AsString;
    Edit13.Text:=FIelds[3].AsString;
    //Edit14.Text:=Fields[6].Asstring;
    Edit15.Text:=Fields[6].AsString;
  end;
end;

procedure TF_par.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit6.Clear;
end;

procedure TF_par.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit7.Clear;
end;

procedure TF_par.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit8.Clear;
end;

procedure TF_par.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit9.Clear;
end;

procedure TF_par.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit10.Clear;
end;

procedure TF_par.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit11.Clear;
end;

procedure TF_par.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit12.Clear;
end;

procedure TF_par.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit13.Clear;
end;

procedure TF_par.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit14.Clear;
end;

procedure TF_par.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit15.Clear;
end;

procedure TF_par.Edit16KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit16.Clear;
end;

procedure TF_par.Edit6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit6.Text:=inttostr(key);
end;

procedure TF_par.Edit7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit7.Text:=inttostr(key);
end;

procedure TF_par.Edit8KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit8.Text:=inttostr(key);
end;

procedure TF_par.Edit9KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit9.Text:=inttostr(key);
end;

procedure TF_par.Edit10KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit10.Text:=inttostr(key);
end;

procedure TF_par.Edit11KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit11.Text:=inttostr(key);
end;

procedure TF_par.Edit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit12.Text:=inttostr(key);
end;

procedure TF_par.Edit13KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit13.Text:=inttostr(key);
end;

procedure TF_par.Edit14KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit14.Text:=inttostr(key);
end;

procedure TF_par.Edit15KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit15.Text:=inttostr(key);
end;

procedure TF_par.Edit16KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit16.Text:=inttostr(key);
end;

end.