shoufei1.~pas

来自「湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的」· ~PAS 代码 · 共 170 行

unit shoufei1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,connectdlg;

type
  Tshoufei = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    Label7: TLabel;
    BitBtn3: TBitBtn;
    Label8: TLabel;
    Edit7: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
      //procedure WMSYSCOMMAND(VAR   Message:   TMessage);message   WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shoufei: Tshoufei;

implementation

{$R *.dfm}
//procedure Tshoufei.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
   //if  Message.WParam   =   SC_CLOSE   then
    //applicationinimize //拦截后什么也不做！
//else
   //inherited
//end;

procedure Tshoufei.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from jg');
 adoquery1.Open;
 dbgrid1.Columns[0].FieldName:='id';
dbgrid1.Columns[1].FieldName:='xiangmu';
dbgrid1.Columns[2].FieldName:='sprice1';
dbgrid1.Columns[3].FieldName:='spriceway';
end;

procedure Tshoufei.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  i:integer;
  s:string;
begin
     s:='';
    if key=vk_shift then
    begin
      if length(edit1.Text)>8 then
       edit1.Text:=copy(edit1.Text,1,8);
       if length(edit1.Text)<8 then
       begin
       i:=8 - length(edit1.Text);
       for i:=1 to(8 - length(edit1.Text)) do
       begin
       s:=s+'0';
       end;
       edit1.Text:=trim(s)+trim(edit1.Text);
       end;
       end;
end;

procedure Tshoufei.BitBtn3Click(Sender: TObject);
  var
     i,k,j:variant;


begin

     edit5.Enabled:=true;
      k:=0;
      i:=strtofloat(edit4.Text);
      j:=strtofloat(edit7.Text);
      k:=i*j;
      edit5.Text:=floattostr(k);
      
      


end;

procedure Tshoufei.BitBtn3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
  bitbtn2.SetFocus;
 
end;

procedure Tshoufei.BitBtn2Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from shfjl where id='''+edit1.Text+'''');
adoquery2.Open;
if adoquery2.Recordset.RecordCount <> 0 then
begin
showmessage('该编号已经存在了');
 end
 else
 begin
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('insert into shfjl values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.text+''','''+edit5.Text+''','''+edit6.Text+''')');
    adoquery2.ExecSQL;

    end;
    end;

procedure Tshoufei.BitBtn4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
end;

procedure Tshoufei.BitBtn5Click(Sender: TObject);
begin

    close;

end;

end.