unit3.pas

来自「“汇华印刷v2.0”是在实践的基础上开发的一个全自动多功能信封打印系统」· PAS 代码 · 共 99 行

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzLabel;

type
  Ttj = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RzLabel1: TRzLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tj: Ttj;

implementation

uses Unit2, data;

{$R *.dfm}

procedure Ttj.Button2Click(Sender: TObject);
var
i:integer;
begin
sj.l1.Items.Clear;
for i:=0 to listbox2.Count-1 do
sj.l1.Items.Add(listbox2.Items.Strings[i]);
listbox2.Items.SaveToFile(ExtractFileDir(Application.Exename)+'\save.cj');
tj.Visible:=false;
sj.Enabled:=true;
sj.Show;
end;

procedure Ttj.FormShow(Sender: TObject);
var
i:integer;
begin
listbox1.Clear;
if sj.com.Visible=true then
for i:=0 to dog.ADOTable1.FieldCount-1 do
listbox1.Items.Add(dog.ADOTable1.Fields.Fields[i].DisplayName)
else
for i:=0 to sj.t1.FieldCount-1 do
listbox1.Items.Add(sj.t1.FieldDefs.Items[i].DisplayName);
sj.Enabled:=false;
end;

procedure Ttj.ListBox1DblClick(Sender: TObject);
var
i:integer;
begin
i:=listbox1.ItemIndex;
listbox2.Items.Add(listbox1.Items.Strings[i]);
end;

procedure Ttj.ListBox2DblClick(Sender: TObject);
begin
listbox2.DeleteSelected;
end;

procedure Ttj.Button1Click(Sender: TObject);
begin
tj.Visible:=false;
sj.Enabled:=true;
sj.Show;
end;

procedure Ttj.FormCreate(Sender: TObject);
begin
tj.ListBox2.Clear;
tj.ListBox2.Items.LoadFromFile(ExtractFileDir(Application.Exename)+'\save.cj');
end;

end.