u_zhgl_zhgl_zj.~pas

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

unit U_Zhgl_Zhgl_Zj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, ImgList, StdCtrls, Buttons,
  DBCtrls, Mask, Spin, ActnList, XPStyleActnCtrls, ActnMan,u_public_define,U_Data_Update,U_card;

type
  TFrm_Zhgl_ZHgl_Zj = class(TForm)
    Panel1: TPanel;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DB_xm: TDBEdit;
    DB_kh: TDBEdit;
    DB_ycje: TDBEdit;
    DB_yj: TDBEdit;
    DB_xfxe: TDBEdit;
    SpeedButton1: TSpeedButton;
    GroupBox2: TGroupBox;
    Sp1: TSpinEdit;
    Sp2: TSpinEdit;
    Sp3: TSpinEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    GroupBox3: TGroupBox;
    DBMemo1: TDBMemo;
    Cmx_bm: TComboBox;
    Cmx_zw: TComboBox;
    Cmx_mz: TComboBox;
    Cmx_jg: TComboBox;
    DB_Bm: TDBEdit;
    DB_zw: TDBEdit;
    DB_Mz: TDBEdit;
    DB_jg: TDBEdit;
    DB_S1: TDBEdit;
    DB_S2: TDBEdit;
    DB_S3: TDBEdit;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    DB_bh: TDBEdit;
    Chk: TCheckBox;
    DBEdit1: TDBEdit;
    Action7: TAction;
    procedure Action6Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure DB_BmChange(Sender: TObject);
    procedure DB_zwChange(Sender: TObject);
    procedure DB_MzChange(Sender: TObject);
    procedure DB_jgChange(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure  kh_xx(); //进行刷卡信息查询
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Zhgl_ZHgl_Zj: TFrm_Zhgl_ZHgl_Zj;

implementation
   uses u_data;
{$R *.dfm}

procedure TFrm_Zhgl_ZHgl_Zj.Action6Execute(Sender: TObject);
 var aa:string;
begin

      // g_str_jbxx='部门管理'
        data.G_con.Open();
        aa:='select * from mr_jbb where m_lbbh=1';
        cmx_bm.Items.Clear;
        cmx_jg.Items.Clear;
        cmx_zw.Items.Clear;
        cmx_mz.Items.Clear;
        with data do
         begin
            g_rst_temp.SQL.Clear;
            g_rst_temp.SQL.Add(aa);
            g_rst_temp.ExecSQL;
            g_Rst_temp.Open;
            while not g_Rst_temp.Eof do
              begin
                cmx_bm.Items.Add(g_rst_temp.FieldValues['m_name']);
                g_rst_temp.Next;
              end;
         end;

  //'职务管理'

       aa:='select * from mr_jbb where m_lbbh=2';
         with data do
         begin
            g_rst_temp.SQL.Clear;
            g_rst_temp.SQL.Add(aa);
            g_rst_temp.ExecSQL;
             g_Rst_temp.Open;
            while not g_Rst_temp.Eof do
              begin
                cmx_zw.Items.Add(g_rst_temp.FieldValues['m_name']);
                g_rst_temp.Next;
              end;
         end;

  //'民族管理' then
     aa:='select * from mr_jbb where m_lbbh=3';
        with data do
         begin
            g_rst_temp.SQL.Clear;
            g_rst_temp.SQL.Add(aa);
            g_rst_temp.ExecSQL;
             g_Rst_temp.Open;
            while not g_Rst_temp.Eof do
              begin
                cmx_mz.Items.Add(g_rst_temp.FieldValues['m_name']);
                g_rst_temp.Next;
              end;
         end;

   //'籍贯管理' then
      aa:='select * from mr_jbb where m_lbbh=4';
        with data do
         begin
            g_rst_temp.SQL.Clear;
            g_rst_temp.SQL.Add(aa);
            g_rst_temp.ExecSQL;
             g_Rst_temp.Open;
            while not g_Rst_temp.Eof do
              begin
                cmx_jg.Items.Add(g_rst_temp.FieldValues['m_name']);
                g_rst_temp.Next;
              end;
         end;
   if G_Str_JBxx='人员insert' then
     begin
       data.Mr_people.Append;
       db_bh.Text:=num_return('select * from mr_people order by bh','mr_people');
       db_yj.Text:=floattostr(G_Gj_KxzhYj);

     end
   else
     begin
       kh_xx();
       data.mr_people.Edit;
     end;
//
end;

procedure TFrm_Zhgl_ZHgl_Zj.Action1Execute(Sender: TObject);
begin
  if db_kh.Text='' then
    begin
      application.MessageBox('卡号不能为空！','明日科技');
      exit;
    end;
   if db_xm.Text='' then
    begin
      application.MessageBox('姓名不能为空！','明日科技');
      exit;
    end;
     if db_yj.Text='' then
    begin
      application.MessageBox('押金不能为空！','明日科技');
      exit;
    end;
      db_bm.Text :=cmx_bm.Text;
      db_zw.Text:=cmx_zw.Text;
      db_mz.Text:=cmx_zw.Text;
      db_jg.Text:=cmx_jg.Text;
      db_s1.Text:=inttostr(sp1.Value);
      db_s2.Text:=inttostr(sp2.Value);
      db_s3.Text:=inttostr(sp3.Value);
   if chk.Checked then
    begin
      dbedit1.Text:='正常卡';
      data.Mr_people.Post;
      Action6Execute(Sender);
    end
   else
     begin
      data.Mr_People.Post;
      close;
     end;

//
end;

procedure TFrm_Zhgl_ZHgl_Zj.Action2Execute(Sender: TObject);
begin
  db_xm.Text:='';
  db_kh.Text:='';
  db_ycje.Text:='';
  dbmemo1.Text:='';
//
end;

procedure TFrm_Zhgl_ZHgl_Zj.Action3Execute(Sender: TObject);
begin
  close;//
end;

procedure TFrm_Zhgl_ZHgl_Zj.DB_BmChange(Sender: TObject);
begin
   cmx_bm.Text:=db_bm.Text;
end;

procedure TFrm_Zhgl_ZHgl_Zj.DB_zwChange(Sender: TObject);
begin
cmx_zw.Text:=db_zw.Text;
end;

procedure TFrm_Zhgl_ZHgl_Zj.DB_MzChange(Sender: TObject);
begin
  cmx_mz.Text:=db_mz.Text;
end;

procedure TFrm_Zhgl_ZHgl_Zj.DB_jgChange(Sender: TObject);
begin
cmx_jg.Text:=db_jg.Text;
end;

procedure TFrm_Zhgl_ZHgl_Zj.Action7Execute(Sender: TObject);
begin
   If OPen_Card Then
    begin
    db_kh.Text:=  Read_Card;
    G_str_SelectBh:= db_kh.Text;
     If Close_card Then
        begin
          kh_xx ;
          Exit;
        end;
    end;
///
end;
procedure Tfrm_zhgl_zhgl_zj.kh_xx();
  var dd:string;
  begin
      dd:=trim(G_str_SelectBh);
     if G_Str_JBxx='人员insert' then
       begin
       end
     else
       begin
       with data do
         begin
           g_con.Open();
            g_Rst_temp.SQL.Clear;
            dd:='select * from mr_people where kh='+quotedstr(dd);
            g_rst_temp.SQL.Add(dd);
            g_rst_temp.ExecSQL;
            data.Mr_People_add.DataSet:=g_rst_temp;
            g_rst_temp.Active:=true;
            cmx_bm.Text :=db_bm.Text;
            cmx_zw.Text:=db_zw.Text;
            cmx_zw.Text:=db_mz.Text;
            cmx_jg.Text:=db_jg.Text;


            sp1.Value:= strtoint(db_s1.Text);
            sp2.Value:=Strtoint(db_s2.Text);
            sp3.Value:=Strtoint(db_s3.Text);
         end;
       end;
  end;
end.