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+'    務(wù)'+#13+'信'+#13+
                 ' 息'+#13+'  管'+#13+'   理'+#13+'    設(shè)'+#13+'     置';
 label6.caption:=label5.caption;
 label7.Caption:=label5.caption;
 dbgrid1.refresh;
end;
procedure TXTSZ_SHSZ.BitBtn1Click(Sender: TObject);  //添加服務(wù)收費設(shè)置
var year,month:string;
begin
if tbitbtn(sender).caption='添加[&A]' then begin   //設(shè)置添加狀態(tài)
 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('維護方法不能為空,請?zhí)砑?#039;);
   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);    //刪除服務(wù)收費設(shè)置
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('系統(tǒng)無信息.');
  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.