mulu.pas

一个项目工程监理系统的全部源码

unit MuLu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, ExtCtrls;

type
  TMuLuForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Label2: TLabel;
    Bevel1: TBevel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MuLuForm: TMuLuForm;

implementation
  uses WenDang;
{$R *.DFM}

procedure TMuLuForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TMuLuForm.Button1Click(Sender: TObject);
begin
  case WenDangForm.PageControl1.ActivePageIndex of
    0: begin
        WenDangForm.ComboBox1.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox1.Text:=Label1.Caption;
       end;
    1: begin
        WenDangForm.ComboBox2.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox2.Text:=Label1.Caption;
       end;
    2: begin
        WenDangForm.ComboBox3.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox3.Text:=Label1.Caption;
       end;
    3: begin
        WenDangForm.ComboBox4.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox4.Text:=Label1.Caption;
       end;
    4: begin
        WenDangForm.ComboBox5.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox5.Text:=Label1.Caption;
       end;
    5: case WenDangForm.PageControl2.ActivePageIndex of
        0:begin
          WenDangForm.ComboBox6.Items.Text:=Label1.Caption;
          WenDangForm.ComboBox6.Text:=Label1.Caption;
          end;
        1:begin
          WenDangForm.ComboBox7.Items.Text:=Label1.Caption;
          WenDangForm.ComboBox7.Text:=Label1.Caption;
          end;
       end;
   6: case WenDangForm.PageControl3.ActivePageIndex of
        0:begin
          WenDangForm.ComboBox8.Items.Text:=Label1.Caption;
          WenDangForm.ComboBox8.Text:=Label1.Caption;
          end;
        1:begin
          WenDangForm.ComboBox11.Items.Text:=Label1.Caption;
          WenDangForm.ComboBox11.Text:=Label1.Caption;
          end;
       end;
    7: begin
        WenDangForm.ComboBox9.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox9.Text:=Label1.Caption;
       end;
    8: begin
        WenDangForm.ComboBox10.Items.Text:=Label1.Caption;
        WenDangForm.ComboBox10.Text:=Label1.Caption;
       end;
  end;
  close;
end;

end.