u_xtgl_xkff.pas

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

unit U_Xtgl_Xkff;

interface

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

type
  TFrm_Xtgl_Xkff = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Lbl: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton4: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Lvw_lb1: TListView;
    Lvw_lb2: TListView;
    Action4: TAction;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Xtgl_Xkff: TFrm_Xtgl_Xkff;

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

procedure TFrm_Xtgl_Xkff.Action1Execute(Sender: TObject);
  var
  aa:string;
  bb:string;
begin


  aa:=num_return('select * from mr_khgl','mr_khgl');

  lbl.Caption:=aa;
//
end;

procedure TFrm_Xtgl_Xkff.Action2Execute(Sender: TObject);
var
  pp:string;
begin
  if lbl.Caption='' then
    begin
      application.MessageBox('你没有生成新号','明日科技');
      exit;
    end;
  if Open_Card() then
     if Write_card(lbl.caption) then
      if CLose_Card then
        begin
           pp:='insert into mr_khgl (kh,zt) values(' ;
           pp:=pp+quotedstr(lbl.Caption)+','+quotedstr('新卡')+')';
           data.G_con.Open();
           data.G_Rst_use.SQL.Clear;
           data.G_Rst_use.SQL.Add(pp);
           data.G_Rst_use.ExecSQL;
        end;
   Action4Execute(Sender);


end;

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

procedure TFrm_Xtgl_Xkff.Action4Execute(Sender: TObject);
var
  PP:String;
  kh1:string;
begin
    pp:='select * from mr_khgl where zt='+quotedstr('新卡');
    data.G_con.Open();
    data.G_Rst_use.SQL.Clear;

    data.G_Rst_use.SQL.Add(pp);
    data.G_Rst_use.ExecSQL;
    data.G_Rst_use.Open;
    self.Lvw_lb1.Items.Clear;
    while not data.G_Rst_use.Eof do
      begin
        kh1:=data.G_Rst_use.FieldValues['kh'];
        with lvw_lb1.Items.Add do
           begin
             caption:=kh1;
           end;
           data.G_Rst_use.Next;
      end;
      data.G_Rst_use.Close;
    pp:='select * from mr_khgl where zt='+quotedstr('正常卡');

    data.G_Rst_use.SQL.Clear;

    data.G_Rst_use.SQL.Add(pp);
    data.G_Rst_use.ExecSQL;
    data.G_Rst_use.Open;
    self.Lvw_lb2.Items.Clear;
    while not data.G_Rst_use.Eof do
      begin
        kh1:=data.G_Rst_use.FieldValues['kh'];
        with lvw_lb2.Items.Add do
           begin
             caption:=kh1;
           end;
           data.G_Rst_use.Next;
      end;
      data.G_Rst_use.Close;
end;

end.