xtsz_shszform.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit XTSZ_SHSZFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, ADODB;

type
  TXTSZ_SHSZ = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSZ_SHSZ: TXTSZ_SHSZ;

implementation

uses MR_WXFORM;

{$R *.DFM}


procedure TXTSZ_SHSZ.FormShow(Sender: TObject);    //初始化
begin
 label5.caption:=' 售'+#13+'  后'+#13+'   服'+#13+'    务'+#13+'信'+#13+
                 ' 息'+#13+'  管'+#13+'   理'+#13+'    设'+#13+'     置';
 label6.caption:=label5.caption;
 label7.Caption:=label5.caption;
 dbgrid1.refresh;
end;
procedure TXTSZ_SHSZ.BitBtn1Click(Sender: TObject);  //添加服务收费设置
var year,month:string;
begin
if tbitbtn(sender).caption='添加[&A]' then begin   //设置添加状态
 mr_wx.ADOTable3.Insert;
 edit1.ReadOnly:=false;
 dbedit1.ReadOnly:=false;
 dbedit2.ReadOnly:=false;
 bitbtn1.Caption:='保存[&P]';
 bitbtn2.Caption:='取消[&C]';
 dbgrid1.enabled:=false;
 edit1.text:='';
 edit1.setfocus;
end else begin
 if edit1.text='' then begin
   showmessage('维护方法不能为空,请添加');
   edit1.setfocus;
   exit;
 end;
 adoquery1.Close;
 adoquery1.sql.clear;
 adoquery1.sql.add('select 维护方法 from 维护方法 where 维护方法=:wei');
 adoquery1.Parameters.ParamByName('wei').datatype:=ftstring;
 adoquery1.Parameters.ParamByName('wei').value:=edit1.text;
 adoquery1.open;
 If adoquery1.RecordCount > 0 Then begin
  showmessage('对不起,['+edit1.text+']的维护方法以存在,请从新填写.');
  edit1.setfocus;
  exit;
 end;
 bitbtn1.caption:='添加[&A]';
 bitbtn2.Caption:='删除[&D]';
 dbgrid1.enabled:=true;
 mr_wx.adotable3.fieldbyname('维护方法').asstring:=edit1.text;
 if mr_wx.ADOTable3.fieldbyname('year').asinteger<>0 then begin
    year:=inttostr(mr_wx.ADOTable3.fieldbyname('year').asinteger)+'年';
 end else begin
    year:='';
 end;
 if mr_wx.adotable3.fieldbyname('month').asinteger<>0 then begin
    month:=inttostr(mr_wx.adotable3.fieldbyname('month').asinteger)+'个月';
 end else begin
    month:='';
 end;
 MR_WX.ADOTable3.FieldByName('维护期限').asstring:=year+month;
 mr_wx.ADOTable3.Post;      //保存添加
end;
end;
procedure TXTSZ_SHSZ.BitBtn2Click(Sender: TObject);    //删除服务收费设置
begin
if tbitbtn(sender).caption='删除[&D]' then begin
  If mr_wx.ADOTable3.RecordCount <> 0 Then begin
   if messagedlg('您确定要删除'+mr_wx.adotable3.fieldbyname('维护方法').asstring+
   '的维护期限吗',mtCustom,[mbyes,mbno],0)=mryes then begin
    mr_wx.ADOTable3.delete;
   end;
  end else begin
  showmessage('系统无信息.');
  end;
end else begin
  mr_wx.ADOTable3.Cancel;
  bitbtn1.Caption:='添加[&A]';
  bitbtn2.Caption:='删除[&D]';
  edit1.ReadOnly:=true;
  dbedit1.ReadOnly:=true;
  dbedit2.ReadOnly:=true;
  dbgrid1.enabled:=true;
end;
end;
procedure TXTSZ_SHSZ.DataSource1DataChange(Sender: TObject; Field: TField);
begin
If mr_wx.ADOTable3.RecordCount > 0 Then begin
  if mr_wx.ADOTable3.fieldbyname('维护方法').asstring<>'' then
        edit1.text:=mr_wx.ADOTable3.fieldbyname('维护方法').asstring;
end;
end;
procedure TXTSZ_SHSZ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
  If (ActiveControl Is Tedit) Or (ActiveControl Is tdbedit) Then
   Perform(WM_nextdlgctl,0,0);
end;
end;
procedure TXTSZ_SHSZ.BitBtn3Click(Sender: TObject);     //退出
begin
  close;
end;
end.