xitong.~pas

一个初级的条码应用管理系统,应用于DT9

unit xitong;

interface

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

type
  TFormxitong = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    Button1: TButton;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formxitong: TFormxitong;

implementation

uses datamodel;

{$R *.dfm}

procedure TFormxitong.ComboBox1Change(Sender: TObject);
  var
   str,temp:string;
begin

end;

end.