u_xtgl_xxgl.~pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Xtgl_Xxgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, ActnList,
  XPStyleActnCtrls, ActnMan,u_public_define, DBCtrls, Mask;

type
  TFrm_Xtgl_xxgl = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Btn_Zj: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label3: TLabel;
    Lbl_lb: TLabel;
    ActionManager1: TActionManager;
    Zj: TAction;
    Xg: TAction;
    Sc: TAction;
    Tc: TAction;
    Action1: TAction;
    Action2: TAction;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    EDT_Bh: TEdit;
    Edt_name: TEdit;
    Cmx_lb: TComboBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    procedure SpeedButton4Click(Sender: TObject);
    procedure ZjExecute(Sender: TObject);
    procedure XgExecute(Sender: TObject);
    procedure ScExecute(Sender: TObject);
    procedure TcExecute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Xtgl_xxgl: TFrm_Xtgl_xxgl;

implementation
  uses u_data,U_data_update;
{$R *.dfm}

procedure TFrm_Xtgl_xxgl.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_Xtgl_xxgl.ZjExecute(Sender: TObject);
 var aa:string;
begin
 if btn_zj.Caption='增加' then
    begin

    aa:=num_return('select * from mr_jbb where M_LBBh='+quotedstr(inttostr(self.tag)),'mr_jbb');
    edt_bh.Text:=aa;
   // edt_name.Text:='';
   // cmx_lb.Items.Clear;
     btn_zj.Caption:='保存';
    end
  else
    begin
      if trim(edt_name.Text)='' then
     begin
       application.MessageBox('名称不能为空！','明日科技有限公司');
       exit;
     end;
     if g_str_jbxx='增减管理' then
        begin
        end;
        data.G_Rst.Append;
        dbedit1.Text:=edt_bh.Text;
        dbedit4.Text:=inttostr(self.Tag);
        dbedit2.Text:=edt_name.Text;
        dbedit3.Text:=cmx_lb.Text;
        data.G_Rst.Post;
        Action1Execute(sender);
        edt_bh.Text:='';
        edt_name.Text:='';
         btn_zj.Caption:='增加';
    end;

//
end;

procedure TFrm_Xtgl_xxgl.XgExecute(Sender: TObject);
begin
if trim(edt_bh.Text)='' then
     begin
       application.MessageBox('你没有选择对应的数据！','明日科技有限公司');
       exit;
     end;
  if edt_bh.Text= dbedit1.Text then
    begin
     data.G_Rst.Edit;
     dbedit2.Text:=edt_name.Text;
     dbedit3.Text:=cmx_lb.Text;
     data.G_rst.Post;
     application.MessageBox('修改成功','明日科技有限公司');
      Action1Execute(sender);
    end
  else
    begin
     application.MessageBox('你没有选择列表项','明日科技有限公司');
    end;
//
end;

procedure TFrm_Xtgl_xxgl.ScExecute(Sender: TObject);
 var
   aa:string;
begin
   if trim(edt_bh.Text)='' then
     begin
       application.MessageBox('你没有选择对应的数据！','明日科技有限公司');
       exit;
     end;
     data.G_rst.Delete;
     Action1Execute(sender);
     edt_bh.Text:='';
     edt_name.Text:='';

//
end;

procedure TFrm_Xtgl_xxgl.TcExecute(Sender: TObject);
begin
//
  close;
end;

procedure TFrm_Xtgl_xxgl.Action1Execute(Sender: TObject);
begin
      data.G_Rst.SQL.Clear;
      data.G_con.Open();
   if g_str_jbxx='部门管理' then
     begin
      //  data.Mr_jbb.r
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=1');
        self.Tag:=1;
     end
   else if g_str_jbxx='职务管理' then
     begin
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=2');
         self.Tag:=2;
     end
  else if g_str_jbxx='民族管理' then
     begin
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=3');
         self.Tag:=3;
     end
  else if g_str_jbxx='籍贯管理' then
     begin
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=4');
         self.Tag:=4;
     end
  else if g_str_jbxx='增减管理' then
     begin
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=5');
        
        lbl_lb.Visible:=true;
        cmx_lb.Visible:=true;
        cmx_lb.Items.Clear;
        cmx_lb.Items.Add ('增款');
        cmx_lb.Items.Add ('减款');
         self.Tag:=5;
     end
  else if g_str_jbxx='机号管理' then
     begin
        data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=6');
         self.Tag:=6;
     end;
     self.Caption:=g_str_jbxx;
     data.G_Rst.ExecSQL;
     data.G_Rst.Open;
end;

procedure TFrm_Xtgl_xxgl.Action2Execute(Sender: TObject);
begin
    edt_bh.Text:=dbedit1.Text;
    edt_name.Text :=dbedit2.Text;
    cmx_lb.Text :=dbedit3.Text;

end;

end.