unit gkglbm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, DBCtrls;

type
  Tfrmgkglbm = class(TForm)
    Labname: TLabel;
    Labpass: TLabel;
    Dacomdm: TDBComboBox;
    Dacomglbmmc: TDBComboBox;
    DBGrid1: TDBGrid;
    cmdadd: TButton;
    cmdmodi: TButton;
    cmdsearch: TButton;
    cmdpre: TButton;
    cmdnext: TButton;
    cmdstore: TButton;
    cmddel: TButton;
    cmdquit: TButton;
    cmddis: TButton;
    DataSource1: TDataSource;
    Tablegkglbm: TTable;
    Database1: TDatabase;
    Tablegkglbm2: TTable;
    procedure cmdaddClick(Sender: TObject);
    procedure setbuttons(bval:boolean);
    function storegkglbm():boolean;
    procedure cmddelClick(Sender: TObject);
    procedure cmdstoreClick(Sender: TObject);
    procedure cmdpreClick(Sender: TObject);
    procedure cmdnextClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdsearchClick(Sender: TObject);
    procedure cmddisClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgkglbm: Tfrmgkglbm;

addrecord:integer;
  m_glbmdm:string;
  m_glbmmc:string;
implementation

{$R *.dfm}

procedure Tfrmgkglbm.cmdaddClick(Sender: TObject);
begin
addrecord:=1;
setbuttons(false);
dacomdm.SetFocus;
Tablegkglbm.Append;
end;

procedure Tfrmgkglbm.setbuttons(bval:boolean);
begin
cmdadd.Enabled:=bval;
cmdmodi.Enabled:=bval;
cmdsearch.Enabled:=bval;
cmddis.Enabled:=bval;
cmdpre.Enabled:=bval;
cmdnext.Enabled:=bval;
cmddel.Enabled:=bval;
cmdstore.Enabled:=not bval;
//cmddel.Enabled:=not bval;
if cmdquit.Caption='退出' then
  cmdquit.Caption:='取消'
else
cmdquit.Caption:='退出';
dacomdm.Enabled:=not bval;
dacomglbmmc.Enabled:=not bval;
end;

function Tfrmgkglbm.storegkglbm():boolean;
var
note:array[1..5] of string;
label checkglbmmc;
begin
result:=false;
note[1]:='費用歸口管理部門代碼不能為空！';
note[2]:='費用歸口管理部門名稱不能為空！';
note[3]:='該費用歸口管理部門代碼已經存在！';
note[4]:='該費用歸口管理部門名稱已經存在！';
if dacomdm.Text='' then
   begin
    showmessage(note[1]);
    dacomdm.SetFocus;
    exit;
   end;
if dacomglbmmc.Text='' then
   begin
    showmessage(note[2]);
    dacomglbmmc.SetFocus;
    exit;
   end;
 if addrecord=1 then
   tablegkglbm2.Filter:='dm='''+dacomdm.Text+''''
   //tableuser2.Filter:='yhmc='''+'111'+''''
 else
   if m_glbmdm=dacomdm.Text then
       goto checkglbmmc
   else
     tablegkglbm2.Filter:='dm='''+ dacomdm.Text+'''';
if not tablegkglbm2.Eof then
    begin
     showmessage(note[3]);
     dacomdm.SetFocus;
     exit;
    end;
checkglbmmc:
if addrecord=1 then
   tablegkglbm2.Filter:='glbmmc='''+dacomglbmmc.Text+''''
   //tableuser2.Filter:='yhmc='''+'111'+''''
 else
   if m_glbmmc=dacomglbmmc.Text then
     begin
       result:=true;
       exit;
     end
   else
     tablegkglbm2.Filter:='glbmmc='''+ dacomglbmmc.Text+'''';
if not tablegkglbm2.Eof then
    begin
     showmessage(note[4]);
     dacomglbmmc.SetFocus;
     exit;
    end;
result:=true;
end;

procedure Tfrmgkglbm.cmddelClick(Sender: TObject);
begin
Tablegkglbm.Delete
end;


procedure Tfrmgkglbm.cmdstoreClick(Sender: TObject);
begin
if storegkglbm=true then
    begin
      tablegkglbm.Post;
      setbuttons(true);
    end;
end;
procedure Tfrmgkglbm.cmdpreClick(Sender: TObject);
begin
 tablegkglbm.MoveBy(-1);
 if tablegkglbm.Bof then
   begin
    showmessage('這是第一條記錄！');
   // tableuser.MoveBy(1);
   end;
end;

procedure Tfrmgkglbm.cmdnextClick(Sender: TObject);
begin
tablegkglbm.MoveBy(1);
 if tablegkglbm.Eof  then
   begin
    showmessage('這是最后一條記錄！');
    //tableuser.MoveBy(-1);
   end;
end;

procedure Tfrmgkglbm.cmdmodiClick(Sender: TObject);
begin
m_glbmmc:=dacomglbmmc.Text;
m_glbmdm:=dacomdm.Text;
setbuttons(false);
addrecord:=2;
tablegkglbm.Edit;
end;

procedure Tfrmgkglbm.cmdquitClick(Sender: TObject);
begin
if cmdquit.Caption='退出' then
  frmgkglbm.Close
else
  begin
    setbuttons(true);
    tablegkglbm.Cancel;
    cmdquit.Caption:='退出'
  end;
end ;

procedure Tfrmgkglbm.cmdsearchClick(Sender: TObject);
var
inputstring:string;
begin
InputString:= InputBox('輸入數據', '請輸入要查詢的費用歸屬部門代碼或名稱', '');
if InputString='' then
   exit;
tablegkglbm.Filter:='dm='''+inputstring+'''';
if tablegkglbm.Eof then
 begin
  tablegkglbm.Filter:='glbmmc='''+inputstring+'''';
  if tablegkglbm.Eof then
      begin
        showmessage('沒有你要查詢的數據！');
        tablegkglbm.Filter:='dm<>'' ''';
        exit;
      end;
  end;
end;

procedure Tfrmgkglbm.cmddisClick(Sender: TObject);
begin
  tablegkglbm.Filter:='dm<>'' ''';
end;

end.