Загруженность аудиторий КемГППК

  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ComObj,

  ActnList, ToolWin, ImgList, Grids, DB, DBTables, DBCtrls, Math, Variants,

  Spin, IBServices, RpBase, RpSystem, RpDefine, RpRave, XPMan, About; 

type

  TMainForm = class(TForm)

    Table1: TTable;

    Table2: TTable;

    Table3: TTable;

    Table4: TTable;

    Table5: TTable;

    Table6: TTable;

    Table7: TTable;

    Table8: TTable;

    Table9: TTable;

    Table0: TTable;

    Query1: TQuery;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

Продолжение приложения Г 

    MainMenu: TMainMenu;

    MainFile: TMenuItem;

    FileNewItem: TMenuItem;

    FileOpenItem: TMenuItem;

    FileCloseItem: TMenuItem;

    FileExitItem: TMenuItem;

    OpenDialog: TOpenDialog;

    FileSaveItem: TMenuItem;

    FileSaveAsItem: TMenuItem;

    Edit: TMenuItem;

    CutItem: TMenuItem;

    CopyItem: TMenuItem;

    PasteItem: TMenuItem;

    StatusBar: TStatusBar;

    ActionList1: TActionList;

    EditCut1: TEditCut;

    EditCopy1: TEditCopy;

    EditPaste1: TEditPaste;

    FileNew1: TAction;

    FileSave1: TAction;

    FileExit1: TAction;

    FileOpen1: TAction;

    FileSaveAs1: TAction;

    WindowCascade1: TWindowCascade;

    WindowTileHorizontal1: TWindowTileHorizontal;

    WindowArrangeAll1: TWindowArrange;

    WindowMinimizeAll1: TWindowMinimizeAll;

    HelpAbout1: TAction;

Продолжение приложения Г 

    FileClose1: TWindowClose;

    WindowTileVertical1: TWindowTileVertical;

    ImageList: TImageList;

    N1: TMenuItem;

    Delete: TMenuItem;

    ToolBar: TToolBar;

    ToolButton: TToolButton;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    RvSystem: TRvSystem;

    RvProject1: TRvProject;

    RvProject2: TRvProject;

    PopupMenu: TPopupMenu;

    XPManifest1: TXPManifest;

    Help: TMenuItem;

    SOS: TMenuItem;

    About: TMenuItem;

    N2: TMenuItem;

    TabControl1: TTabControl;

    Bevel1: TBevel;

    RadioGroup1: TRadioGroup;

    StaticText4: TStaticText;

    StringGrid1: TStringGrid;

    StaticText6: TStaticText;

Продолжение приложения Г 

    StaticText5: TStaticText;

    StaticText3: TStaticText;

    StaticText2: TStaticText;

    StaticText1: TStaticText;

    RadioGroup2: TRadioGroup;

    GroupBox1: TGroupBox;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    DBComboBox1: TDBComboBox;

    DBComboBox2: TDBComboBox;

    DBComboBox3: TDBComboBox;

    Button2: TButton;

    Button1: TButton;

    Button6: TButton;

    TabControl2: TTabControl;

    Label7: TLabel;

    Data: TDateTimePicker;

    GroupBox2: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBComboBox4: TDBComboBox;

    ComboBox4: TComboBox;

    DBComboBox5: TDBComboBox;

Продолжение приложения Г 

    DBComboBox6: TDBComboBox;

    Button3: TButton;

    ComboBox5: TComboBox;

    DBComboBox7: TDBComboBox;

    Button4: TButton;

    Button5: TButton;

    GroupBox3: TGroupBox;

    ListBox1: TListBox;

    CheckBox2: TCheckBox;

    GroupBox4: TGroupBox;

    StringGrid2: TStringGrid;

    StringGrid: TStringGrid;

    TabControl3: TTabControl;

    Bevel2: TBevel;

    Bevel3: TBevel;

    Bevel4: TBevel;

    Bevel5: TBevel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    StringGrid6: TStringGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

Продолжение приложения Г 

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    CheckBox1: TCheckBox;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    LabeledEdit3: TLabeledEdit;

    LabeledEdit4: TLabeledEdit;

    LabeledEdit5: TLabeledEdit;

    LabeledEdit6: TLabeledEdit;

    RadioGroup3: TRadioGroup;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    StringGrid3: TStringGrid;

    StringGrid4: TStringGrid;

    StringGrid5: TStringGrid;

    procedure FormCreate(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FileNew1Execute(Sender: TObject);

    procedure FileOpen1Execute(Sender: TObject);

    procedure FileExit1Execute(Sender: TObject);

    procedure FileCloseItemClick(Sender: TObject);

    procedure ControlChange(Sender: TObject);

    procedure DataChange(Sender: TObject);

    procedure DeleteClick(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

Продолжение приложения Г 

    procedure ComboBox5Change(Sender: TObject);

    procedure DBComboBox6Change(Sender: TObject);

    procedure DBComboBox7Change(Sender: TObject);

    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid1Click(Sender: TObject);

    procedure StringGrid3Click(Sender: TObject);

    procedure StringGrid4Click(Sender: TObject);

    procedure StringGrid5Click(Sender: TObject);

    procedure StringGrid6Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure RadioGroup3Click(Sender: TObject);

    procedure StringGridClick(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

    procedure BitBtn8Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

Продолжение приложения Г 

    procedure AboutClick(Sender: TObject);

    procedure SOSClick(Sender: TObject);

    procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure StringGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;

      Rect: TRect; State: TGridDrawState);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var i, j, r, c: integer;

  MainForm: TMainForm; s,d,a,q,w,e: string; f,g: boolean;

  Maincap: string = 'Основное расписание';   //заголовок главной формы

  IzmCap: string = 'Изменения  к расписанию'; //заголовок изменения

  Perv: string = ' (Первая  смена)';

  Vtor: string = ' (Вторая  смена)';

  Chet: string = ' - чётная  неделя';

  Nech: string = ' - нечётная  неделя'; 

Продолжение приложения Г 

implementation 

{$R *.dfm} 

procedure TMainForm.FileNew1Execute(Sender: TObject);

begin RadioGroup2.OnClick(Sender);

TabControl3.Visible:=false;

TabControl2.Visible:=false;

TabControl1.Visible:=true end; 

procedure TMainForm.FileOpen1Execute(Sender: TObject);

begin DataChange(Sender);

TabControl3.Visible:=false;

TabControl1.Visible:=false;

TabControl2.Visible:=true end; 

procedure TMainForm.FileExit1Execute(Sender: TObject);

begin Close end; 

procedure TMainForm.FormActivate(Sender: TObject);

begin with Session do if not g then begin ConfigMode:=cmSession;

try AddStandardAlias('My', ExtractFilePath(ParamStr(0))+'Tables\', 'PARADOX');

with Table1 do begin DatabaseName:='My';

TableName:='Groups';

Active:=true;

DBComboBox6.DataField:='Group';

while not Eof do begin

DBComboBox6.Items.Add(FieldByName('Group').AsString);

Продолжение приложения Г 

Next end; First end;

with Table2 do begin DatabaseName:='My';

TableName:='Disciplins';

Active:=true;

DBComboBox1.DataField:='Disciplin';

DBComboBox4.DataField:='Disciplin';

while not Eof do begin

DBComboBox1.Items.Add(FieldByName('Disciplin').AsString);

DBComboBox4.Items.Add(FieldByName('Disciplin').AsString);

Next end; First end;

with Table3 do begin DatabaseName:='My';

TableName:='Prepods';

Active:=true;

DBComboBox2.DataField:='Prepod';

DBComboBox5.DataField:='Prepod';

while not Eof do begin

DBComboBox2.Items.Add(FieldByName('Prepod').AsString);

DBComboBox5.Items.Add(FieldByName('Prepod').AsString);

Next end; First end;

with Table4 do begin DatabaseName:='My';

TableName:='Cabinets';

Active:=true;