main_windows.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit MAIN_WINDOWS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FRMBASS, Grids, Impstringgrid, ComCtrls, StdCtrls,
  DsFancyButton, ExtCtrls, Buttons, DB, DBTables;

type
  TFrm_main_input = class(TFrm_bass)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    cb_depot: TComboBox;
    DTP_date: TDateTimePicker;
    IMPSG_DATA: TImpStringgrid;
    Query_data: TQuery;
    L_warning: TLabel;
    L_count: TLabel;
    procedure FormCreate(Sender: TObject);
  private
   I_lastcol,I_lastrow:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main_input: TFrm_main_input;

implementation

{$R *.dfm}

procedure TFrm_main_input.FormCreate(Sender: TObject);
var
   i_temp:integer;
begin
  inherited;
   self.Caption :=self.Caption +'商场期初数据录入';
   I_lastcol:=1;
   I_lastrow:=1;
   Query_data.DatabaseName :=HWSHOPDATA;
   with IMPSG_DATA do
   begin
      ColCount :=10;
      ColWidths[0]:=16;
      ColWidths[1]:=80;
      ColWidths[2]:=180;
      ColWidths[3]:=180;
      ColWidths[4]:=50;
      ColWidths[5]:=50;
      ColWidths[6]:=50;
      ColWidths[7]:=80;
      ColWidths[8]:=80;
      ColWidths[9]:=200 ;

      Columns.Items[0].Title.caption:='◎';
      Columns.Items[1].Title.caption:='商品编号';
      Columns.Items[2].Title.caption:='商品名称';
      Columns.Items[3].Title.caption:='商品型号';
      Columns.Items[4].Title.caption:='数量';
      Columns.Items[5].Title.caption:='单价';
      Columns.Items[6].Title.caption:='提成';
      Columns.Items[7].Title.caption:='合计金额';
      Columns.Items[8].Title.caption:='提成金额';
      Columns.Items[9].Title.caption:='备注';
      //商品型号列
      columns.Items[3].ButtonStyle := cbsPicklist;
      //合计金额
      Columns.Items[7].Title.Font.color := clBlue;
      Columns.Items[7].font.Color := clBlue;
      Columns.Items[7].Color := clInfoBk;
      columns.Items[7].Alignment := TaRightJustify;
      //提成金额
      Columns.Items[8].Title.Font.color := clBlue;
      Columns.Items[8].font.Color := clBlue;
      Columns.Items[8].Color := clInfoBk;
      columns.Items[8].Alignment := TaRightJustify;
      for i_temp:=1 to 99 do
         Cells [0,i_temp]:=inttostr(i_temp);
   end;
end;

end.