u3_5.pas

前言 随着旅游业的发展

unit U3_5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, CheckLst, ExtCtrls;

type
  TF3_5 = class(TForm)
    bmzPanel1: TPanel;
    Splitter1: TSplitter;
    bmPanel1: TPanel;
    bmLabel1: TLabel;
    CBoxbumen: TComboBox;
    bmCheckListBox1: TCheckListBox;
    dwPanel1: TPanel;
    dwLabel1: TLabel;
    EDdingwei: TEdit;
    dwListBox1: TListBox;
    Panel1: TPanel;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    xhTabSheet2: TTabSheet;
    xhDBGrid2: TDBGrid;
    syTabSheet3: TTabSheet;
    syDBGrid1: TDBGrid;
    Panel2: TPanel;
    fkPanel1: TPanel;
    fkfLabel1: TLabel;
    jsLabel1: TLabel;
    ysLabel1: TLabel;
    sjLabel1: TLabel;
    mcLabel1: TLabel;
    khLabel1: TLabel;
    zhLabel1: TLabel;
    SBTzhangdan: TSpeedButton;
    SBTjiezhang: TSpeedButton;
    SBTback: TSpeedButton;
    CBoxfukuan: TComboBox;
    EDjiesuan: TEdit;
    EDyishou: TEdit;
    EDshoukuan: TEdit;
    CBoxbizhong: TComboBox;
    EDyinghang: TEdit;
    EDzhanghao: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CBoxfukuanChange(Sender: TObject);
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TF3_5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TF3_5.CBoxfukuanChange(Sender: TObject);
begin
  if CBoxFukuan.Text='现金' then
  begin
    EDyinghang.Enabled:=false;
    EDyinghang.Color:=clScrollBar;
    EDzhanghao.Enabled:=false;
    EDzhanghao.Color:=clScrollBar;
    Cboxbizhong.Enabled:=true;
    CBoxbizhong.Color:=clWindow;
    CBoxbizhong.Items.Clear;
    CBoxbizhong.Items.Add('人民币');
    CBoxbizhong.Items.Add('美元');
    CBoxbizhong.ItemIndex:=0;
  end else if CBoxFukuan.Text='信用卡' then
  begin
    EDzhanghao.Enabled:=true;
    EDzhanghao.Color:=clWindow;
    EDyinghang.Enabled:=false;
    EDyinghang.Color:=clScrollBar;
    CBoxbizhong.Enabled:=true;
    CBoxbizhong.Color:=clWindow;
    CBoxbizhong.Items.Clear;
    CBoxbizhong.Items.Add('牡丹卡');
    CBoxbizhong.Items.Add('灵通卡');
    CBoxbizhong.Items.Add('龙卡');
    CBoxbizhong.ItemIndex:=0;
  end else if CBoxFukuan.Text='支票' then
  begin
    EDyinghang.Enabled:=true;
    EDyinghang.Color:=clWindow;
    EDzhanghao.Enabled:=true;
    EDzhanghao.Color:=clWindow;
    CBoxbizhong.Enabled:=true;
    CBoxbizhong.Color:=clWindow;
    CBoxbizhong.Items.Clear;
    CBoxbizhong.Text:='';
  end else
  begin
    CBoxbizhong.Enabled:=false;
    CBoxbizhong.Color:=clScrollBar;
    EDyinghang.Enabled:=false;
    EDyinghang.Color:=clScrollBar;
    EDzhanghao.Enabled:=false;
    EDzhanghao.Color:=clScrollBar;
  end;
end;

procedure TF3_5.SBTbackClick(Sender: TObject);
begin
  Close;
end;

end.